我要评论使用纯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产生布局，代码运行相当快。
--------------------------------------------------------------------------------
本文作者：phillip perkins是ajilon consulting的签约人。他的经验很丰富，从机器控制和客户/服务器到企业内部网应用。
如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！
网友评论