ʵÀýÑÝÁ·ASP XML±à³Ì

£¼?xml version="1.0" encoding="gb2312"?£¾
£¼xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"£¾
£¼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£¾

'*******************************************
' ˵Ã÷£ºÊ¹ÓÃXSLÎļþ¸ñʽ»¯XMLÎļþ¡£
' ×÷Õߣºgwd 2002-11-05
' ²ÎÊý£ºstrXmlFile -- XmlÎļþ£¬Â·¾¶£«ÎļþÃû
' strXslFile -- XslÎļþ£¬Â·¾¶£«ÎļþÃû
' ·µ»Ø£º³É¹¦ -- ¸ñʽ»¯ºóµÄHTML×Ö·û´®
' ʧ°Ü -- ×Ô¶¨ÒåµÄ´íÎóÐÅÏ¢
'*******************************************
Function FormatXml(strXmlFile, strXslFile)
¡¡Dim objXml, objXsl

¡¡strXmlFile = Server.MapPath(strXmlFile)
¡¡strXslFile = Server.MapPath(strXslFile)

¡¡Set objXml = Server.CreateObject("MSXML2.DOMDocument")
¡¡Set objXsl = Server.CreateObject("MSXML2.DOMDocument")

¡¡objXML.Async = False
¡¡If objXml.Load(strXmlFile) 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