getstyledxml.asp

关于XML和网页配合使用的好书

<%@ language=VBScript %>
<%
  '定义使用的变量
  dim xmldoc,xsldoc,result,filename
  
  '创建DOMDocument对象实例xmldoc
  '将使用xmldoc来加载需要转换的XML文档
  set  xmldoc=Server.createObject("Microsoft.XMLDOM")
  
  '设置并不同步加载XML文档
  xmldoc.async=false
  
  '加载XML文档
  xmldoc.load(Server.MapPath("xmlsrc.xml"))
  
  '判断加载的XML文档是否有错，有则输出错误原因
  if (xmldoc.parseError.errorCode<>0) then
    Response.write("发生错误："+xmldoc.parseError.reason)
	Response.End
  end if
 
  '创建DOMDocument对象实例xsldoc
  '将使用xsldoc来加载转换XML文档使用的样式单
  set xsldoc=Server.createObject("Microsoft.XMLDOM")
  xsldoc.async=false
  
  '获得样式单文件名
  filename=Request.QueryString("style")
  
  '加载样式单
  xsldoc.load(Server.MapPath(filename))
  
  '判断样式单中是否有错，有则输出出错原因
  if(xsldoc.parseError.errorCode<>0) then
    Response.write("发生错误："+xsldoc.parseError.reason)
	Response.End
  end if
  
  '使用样式单转换XML文档
  result=xmldoc.transformNode(xsldoc)
  
  '输出转换结果
  Response.write(result)
 %>