使用純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("http://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("http://" 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("http://" 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="http://error">
font color="red">*Information in red is requiredbr/>/font>
/xsl:if>
xsl:apply-templates select="http://user"/>
/xsl:template>
xsl:template match="user">
font>
xsl:attribute name="color">
xsl:choose>
xsl:when test="http://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="http://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="http://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產生布局，代碼運行相當快。
--------------------------------------------------------------------------------
本文作者：Phillip Perkins是Ajilon Consulting的簽約人。他的經驗很豐富，從機器控制和客戶/服務器到企業內部網應用。
