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
转自:http://goaler.xicp.net/ShowLog.asp?ID=481
ASP中XML操作代码示例
博客展示了ASP中XML的操作代码,包括创建XMLDOM对象、加载XSL文件、使用XMLHTTP对象获取数据、进行XML转换等操作,还包含了部分JavaScript代码用于处理转换结果。
2348

被折叠的 条评论
为什么被折叠?



