首先展示例子，可以看懂的人不用往下了。
dim objHTTP,objXML,objXSL
Set objXSL = Server.CreateObject("Microsoft.XMLDOM")
objXSL.async=False
objXSL.load(Server.MapPath("rss.xsl"))
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open "GET",objURL, false
objHTTP.send
set objXML = objHTTP.responseXML
objHTML = objXML.transformNode(objXSL)
objHTML = replace(objHTML,"""","'")
Set objHTTP = Nothing
'objHTML = Server.HTMLEncode( objHTML )
%>
var rsscode;
rsscode="<%=objHTML%>";
RSSbox.innerHTML = "";
if(rsscode == "")
{
RSSbox.innerHTML = "nothing found";
}
RSSbox.innerHTML = rsscode
再来一个例子
ASP读取XML数据文件的方法
分别保存下面两段代码，一个保存为Readxml.asp另一个保存为text.xml，放在同一个目录下面，调试程序即可，在程序里面我已经做了解释，读取代码可以做成一个readxml的函数，通过使用输入的参数而读取xml不同数据记录的不同的值。
<%
dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.Load(Server.MapPath("text.xml"))
Set objNode=xml.documentElement
nCntChd=objNode.ChildNodes.length-1
'这个可以定义asp读取xml文件的那一个值，通过传递这个值来确定读取的数据
for i=0 to nCntChd
set objAtr=objNode.ChildNodes.item(i)
nCntAtr=objAtr.Attributes.length-1
'历遍一条记录里面的所有的记录项，记录是从0开始的
for j=0 to nCntAtr
response.write objAtr.Attributes.item(j).Text&"<br>"
next
response.write "<br>"
next
Set objAtr=Nothing
Set objNode=Nothing
Set xml=Nothing
%>
<?xml version="1.0" encoding="utf-8" ?>
<root>
<row ID="1" COMPNAME="过桥轩" ADDR="广东省广州市越秀区北京路" 邮编="510000" TEL="8620-8333" PRODSERV="经营面" 经济行业="粥粉面店" 省份="广东省" 地市="广州市" 区域="越秀区" visit="0" 优先级="9999999999" zhuangtai="最新"/>
<row ID="2" COMPNAME="周仔" ADDR="广东省广州市" 邮编="510000" TEL="8620-8330" PRODSERV="经营快餐饮食" 经济行业="快餐" 省份="广东省" 地市="广州市" 区域="越秀区" visit="0" 优先级="9999999999" zhuangtai="最新"/>
<row ID="3" COMPNAME="香菜馆" ADDR="广东省广州市越秀区" 邮编="510000" TEL="8620-837" PRODSERV="经营湘菜" 经济行业="湘菜" 省份="广东省" 地市="广州市" 区域="越秀区" visit="0" 优先级="9999999999" zhuangtai="最新"/>
</root>
