ʵÀýÑÝÁ·ASP+XML±à³Ì(2)

£¼?xml(±ê×¼»¯Ô½À´Ô½½üÁË) version="1.0" encoding="gb2312"?£¾
£¼xsl:stylesheet xml(±ê×¼»¯Ô½À´Ô½½üÁË)ns: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
²ÎÊý£º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
¡¡¡¡