实例演练ASP+XML编程(2)

　　三、格式转换XSL文件说明(Persons.xsl)

??例程中使用XSL对xml(标准化越来越近了)数据进行格式化，并以HTML的形式返回到客户端。这个过程也可以放在客户端进行，但考虑到兼容性的问题，例程中采用了在服务器端通过ASP操纵DOM进行格式化的方法。

??XSL文件的内容如下，

　　＜?xml(标准化越来越近了) version=1.0 encoding=gb2312?＞
＜xsl:stylesheet xml(标准化越来越近了)ns:xsl=＞
＜xsl:template match=/Persons＞
＜script language=javascript＞
function add()
{
window.open(add.asp, add, width=300,height=320,resize=no);
}

　　function edit(intId)
{
window.open(edit.asp?id=+intId, edit, width=300,height=320,resize=no);
}
＜/script＞
＜table width=600 border=0 align=center＞
＜tr＞
＜td align=right＞＜a href=javascript:add(); title=添加新联系人＞添加新联系人＜/a＞＜/td＞
＜/tr＞
＜/table＞

＜table align=center width=680 cellspacing=1 cellpadding=2 border=0 bgcolor=#666600＞
＜tr class=title bgcolor=#E5E5E5＞
＜td width=25＞＜xsl:text disable-output-escaping=yes＞＜/xsl:text＞nbsp;＜/td＞
＜td＞姓名＜/td＞
＜td＞英文名＜/td＞
＜td＞手机＜/td＞
＜td＞电话＜/td＞
＜td＞Email＜/td＞
＜td＞QQ＜/td＞
＜td＞所在公司＜/td＞
＜/tr＞
＜xsl:for-each select=Person＞
＜TR BGCOLOR=#FFFFFF＞
＜TD ALIGN=right＞＜xsl:value-of select=position()/＞＜/TD＞
＜TD STYLE=color:#990000＞＜A＞＜xsl:attribute name=HREF＞javascript:edit(＜xsl:value-of select=position()/＞);＜/xsl:attribute＞＜xsl:attribute name=title＞修改信息＜/xsl:attribute＞＜xsl:value-of select=Name/＞＜/A＞＜/TD＞
＜TD＞＜xsl:value-of select=Nick/＞＜/TD＞
＜TD＞＜xsl:value-of select=Mobile/＞＜/TD＞
＜TD＞＜xsl:value-of select=Tel/＞＜/TD＞
＜TD＞＜A＞＜xsl:attribute name=HREF＞mailto:＜xsl:value-of select=Email/＞＜/xsl:attribute＞＜xsl:value-of select=Email/＞＜/A＞＜/TD＞
＜TD＞＜xsl:value-of select=QQ/＞＜/TD＞
＜TD＞＜xsl:value-of select=Company/＞＜/TD＞
＜/TR＞
＜/xsl:for-each＞
＜/table＞
＜/xsl:template＞
＜/xsl:stylesheet＞

　　??在服务器端的转换使用一个函数来完成，格式化成功，返回HTML字符串，格式化失败，打印出错误信息，如下，

　　*******************************************
说明：使用XSL文件格式化xml(标准化越来越近了)文件。
作者：gwd 2002-11-05
参数：strxml(标准化越来越近了)File -- xml(标准化越来越近了)文件，路径＋文件名
strXslFile -- Xsl文件，路径＋文件名
返回：成功 -- 格式化后的HTML字符串
失败 -- 自定义的错误信息
*******************************************
Function Formatxml(标准化越来越近了)(strxml(标准化越来越近了)File, strXslFile)
Dim objxml(标准化越来越近了), objXsl

　　strxml(标准化越来越近了)File = Server.MapPath(strxml(标准化越来越近了)File)
strXslFile = Server.MapPath(strXslFile)

　　Set objxml(标准化越来越近了) = Server.CreateObject(MSxml(标准化越来越近了)2.DOMDocument)
Set objXsl = Server.CreateObject(MSxml(标准化越来越近了)2.DOMDocument)

　　objxml(标准化越来越近了).Async = False
If objxml(标准化越来越近了).Load(strxml(标准化越来越近了)File) Then
objXsl.Async = False
objXsl.ValidateonParse = False
If objXsl.Load(strXslFile) Then
On Error Resume Next 捕获transformNode方法的错误
Formatxml(标准化越来越近了) = objxml(标准化越来越近了).transformNode(objXsl)
If objXsl.parseError.errorCode ＜＞ 0 Then
Response.Write ＜br＞＜hr＞
Response.Write Error Code: objXsl.parseError.errorCode
Response.Write ＜br＞Error Reason: objXsl.parseError.reason
Response.Write ＜br＞Error Line: objXsl.parseError.line
Formatxml(标准化越来越近了) = ＜span class=alert＞格式化xml(标准化越来越近了)文件错误！＜/span＞
End If
Else
Response.Write ＜br＞＜hr＞
Response.Write Error Code: objXsl.parseError.errorCode
Response.Write ＜br＞Error Reason: objXsl.parseError.reason
Response.Write ＜br＞Error Line: objXsl.parseError.line
Formatxml(标准化越来越近了) = ＜span class=alert＞装载XSL文件错误！＜/span＞
End If
Else
Response.Write ＜br＞＜hr＞
Response.Write Error Code: objxml(标准化越来越近了).parseError.errorCode
Response.Write ＜br＞Error Reason: objxml(标准化越来越近了).parseError.reason
Response.Write ＜br＞Error Line: objxml(标准化越来越近了).parseError.line
Formatxml(标准化越来越近了) = ＜span class=alert＞装载xml(标准化越来越近了)文件错误！＜/span＞
End If

　　Set objXsl = Nothing
Set objxml(标准化越来越近了) = Nothing
End Function