实例演练ASP+XML编程比较全的了第1/2页(3)


  <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 
' 参数: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 

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3097.html