旗下导航:搜·么
当前位置:网站首页 > XML教程 > 正文

运用纯HTML的通用数据管理和效劳【XML教程】,HTML,数据管理,服务

作者:搜教程发布时间:2019-12-01分类:XML教程浏览:95评论:0


导读:运用纯HTML的通用数据管理和效劳。但是,为了网络数据,你须要一个数据储存库。要防止运用数据库效劳器带来的许多题目,你能够在xml中网络这些数据。下面是我们的项目的基础构造:...
运用纯HTML的通用数据管理和效劳。但是,为了网络数据,你须要一个数据储存库。要防止运用数据库效劳器带来的许多题目,你能够在xml中网络这些数据。下面是我们的项目的基础构造:

<user>
    <first_name/>
    <last_name/>
    <mi/>
</user>

我最初将数据限制为first name,last name和middle。这个页面今后的基础思想是用户信息在这个页面中取得。在用户信息需求获得满足今后,流程必需被转到下一个逻辑网络步骤。为了使事变变得简朴,我将把用户功用包装到一个asp类中。

Function Coalesce(vVar, vAlt)
    If vVal = "" Or VarType(vVal) = 1 Or VarType(vVal) = 0 Then
        Coalesce = vAlt
    Else
        Coalesce = vVal
    End If
End Function
Class CUser
PRivate m_SQL, m_DOM
Public Property Get DOM()
    Set DOM = m_DOM
End Property
Public Sub saveUser()
    m_SQL.save "save_user", m_DOM
End Sub
Public Function validate()
    m_DOM.loadXML "<root>" & m_SQL.validateUser(m_DOM) & "</root>"
    If Not m_DOM.selectSingleNode("//error") Is Nothing Then
        validate = False
    Else
        validate = True
    End If
End Function
Private Sub collectData(dom, oCollection)
    Dim nItem, node, parent_node, n, sKey
    For nItem = 1 To oCollection.Count
        sKey = oCollection.Key(nItem)
        Set parent_node = dom.selectSingleNode("//" & sKey & "s")
        If Not parent_node Is Nothing Then
            For n = 1 To oCollection(sKey).Count
                Set node = parent_node.selectSingleNode(sKey & _
                                                        "[string(.)='" &
oCollection(sKey)(n) & "']")
                If node Is Nothing Then
                    Set node = dom.createNode(1, sKey, "")
                    Set node = parent_node.appendChild(node)
                End If
                node.text = Coalesce(oCollection(sKey)(n), "")
            Next
        Else
            Set node = dom.selectSingleNode("//" & sKey)
            If Not node Is Nothing Then _
                node.text = Coalesce(oCollection(sKey), "")
        End If
    Next
End Sub
Private Sub Class_Initialize()
    Set m_SQL = New CSQL
    Set m_DOM = Server.CreateObject("MSXML2.DOMDocument")
    m_DOM.async = False
    If VarType(Request ("txtUserXML")) = 0 Or Request ("txtUserXML") = "" Then
        m_DOM.loadXML Request("txtUserXML")
    Else
        m_DOM.load "<root>" & Server.MapPath("user.xml") & "</root>"
    End If
    collectData m_DOM, Request.Form
    collectData m_DOM, Request.QueryString
End Sub
Private Sub Class_Terminate()
    Set m_SQL = Nothing
    Set m_DOM = Nothing
End Sub
End Class
Class CSQL
Private m_DAL, m_Stream
Public Function save(sStoredProc, oDOM)
    'adVarChar = 200
    m_DAL.RunSP Array(m_DAL.mp("@xml_param", 200, 8000, oDOM.xml))
End Function
Public Function validateUser(oDOM)
    Set m_Stream = m_DAL.RunSPReturnStream("validate_user", Array(_
            m_DAL.mp("@xml_param", 200, 8000, oDOM.xml)))
    validateUser = m_Stream.ReadText(-1)
    m_Stream.Close
End Function
Private Sub Class_Initialize()
    Set m_DAL = Server.CreateObject("MyPkg.MyDAL")
    m_DAL.GetConnection "some connection string"
    Set m_Stream = Server.CreateObject("ADODB.Stream")
End Sub
Private Sub Class_Terminate()
    Set m_DAL = Nothing
    Set m_Stream = Nothing
End Sub
End Class


CSQL类是基于一个数据接见层(m_DAL)组件MyPkg.MyDAL建立起来的。而这个组件则是基于Fitch和Mather DAL组件建立起来的,这两个组件能够从MSDN找到。如许我们就在SQL Server与你的代码建立了桥梁。


当CUser对象初始化今后,它网络Request数据并运用collectData()子函数将网络到的数据放到UserDOM的一个响应的节点中。(代码我不再诠释,因为它本身相称轻易明白。)在网络了数据今后(或许不网络数据),我们将运用XSL将数据内容转变成规划。

<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl=http://www.w3.org/1999/XSL/Transform
    version="1.0">
<xsl:output method="html"/>
<xsl:template match="/">
    <xsl:if test="//error">
    <font color="red">*Information in red is required<br/></font>
    </xsl:if>
    <xsl:apply-templates select="//user"/>
</xsl:template>
<xsl:template match="user">
    <font>
        <xsl:attribute name="color">
            <xsl:choose>
                <xsl:when test="//error[.='first name']">red</xsl:when>
                <xsl:otherwise>black</xsl:otherwise>
            </xsl:choose>
        </xsl:attribute>
    First Name:
    </font>
    <input type="text" name="first_name">
        <xsl:attribute name="value"><xsl:value-of
select="first_name"/></xsl:attribute>
    </input><br/>
    <font>
        <xsl:attribute name="color">
            <xsl:choose>
                <xsl:when test="//error[.='mi']">red</xsl:when>
                <xsl:otherwise>black</xsl:otherwise>
            </xsl:choose>
        </xsl:attribute>
    MI:
    </font>
    <input type="text" name="mi">
        <xsl:attribute name="value"><xsl:value-of select="mi"/></xsl:attribute>
    </input><br/>
    <font>
        <xsl:attribute name="color">
            <xsl:choose>
                <xsl:when test="//error[.='last_name']">red</xsl:when>
                <xsl:otherwise>black</xsl:otherwise>
            </xsl:choose>
        </xsl:attribute>
    Last Name:
    </font>
    <input type="text" name="last_name">
        <xsl:attribute name="value"><xsl:value-of
 select="last_name"/></xsl:attribute>
    </input><br/>
</xsl:template>
</xsl:stylesheet>

这个样式表将把内容转成规划。毛病搜检是很主要的,存储历程经由过程肯定数据是不是须要处置惩罚来搜检数据。关于不能为空但又没有添补数据的每一个域返回一个“errors”节点。这个XML的输出大抵以下:

    <user>. . .</user><errors><error>first_name</error>. . .</errors>

这个样式表将把内容转成规划。毛病搜检是很主要的,存储历程经由过程肯定数据是不是须要处置惩罚来搜检数据。关于不能为空但又没有添补数据的每一个域返回一个“errors”节点。这个XML的输出大抵以下:

    <user>. . .</user><errors><error>first_name</error>. . .</errors>

注重如果有一个毛病匹配了节点名,那末发生的输出将会是赤色的。我们须要下面的一个ASP将前面的一切东西组合起来。

<%@ Language=VBScript %>
<%
Option Explicit
Dim oUser
Set oUser = New CUser
If oUser.validate() Then
    Set oUser = Nothing
    Server.Transfer "NextPage.asp"
End If
%>
<html>
<body>
<form method="POST" action="GetUser.asp" name="thisForm" id="thisForm">
<%
Response.Write xslTransform(oUser.DOM, "user.xsl")
%>
<input type="hidden" name="txtUserXML" id="txtUserXML"
 value="<%=oUser.DOM.xml%>">
<input type="submit" value="Submit">
</form>
</body>
</html>
<%
Set oUser = Nothing
Function xslTransform(vXML, XSLFileName)
    Dim m_xml, m_xsl
    If VarType(vXML) = 8 Then
        Set m_xml = m_dom
        m_xml.loadXML vXML
    ElseIf VarType(vXML) = 9 Then
        Set m_xml = vXML
    End If
    If m_xml.parseError.errorCode <> 0 Then _
        Err.Raise vbObjectError, "XMLTransform(...)", m_xml.parseError.reason
    Set m_xsl = Server.CreateObject("MSXML2.DOMDocument")
    m_xsl.async = False
    m_xsl.load Server.MapPath(XSLFileName)
    If m_xsl.parseError.errorCode <> 0 Then _
        Err.Raise vbObjectError, "XMLTransform(...)", m_xsl.parseError.reason
    xslTransform = m_xml.transformNode(m_xsl)
    Set m_xsl = Nothing
End Function
%>
<!--#include file="CUser.asp"-->

ASP代码建立CUser对象,如果有数据就添补数据。然后运用CUser的DOM经由过程XSL转换来建立效果HTML。转换被包装到一个叫做xslTransform的函数当中。而且,记着要将效果CUser DOM存储到一个隐蔽的<INPUT>元素中。或许你能够将CUser DOM存储到一个session变量中并在初始化历程当中将其掏出。

在完成这个页面今后,你能够基于前面的骨架代码建立别的的页面。如今你已建立了一个数据网络的拷贝-粘贴计划。这个计划最优美的部份在于一切的输出都是纯HTML,没有任何浏览器特有的性子或许样式表。而且因为功用都被包装到类中,所以你能够运用XSLT发生规划,代码运转相称快。

以上就是运用纯HTML的通用数据管理和效劳的内容,更多相关内容请关注ki4网(www.ki4.cn)!

标签:HTML数据管理服务


欢迎 发表评论: