ASP-XML-RSS

原创 2004年07月07日 13:57:00


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

http://blog.csdn.net/hbzxf

收藏助手
不良信息举报
您举报文章:ASP-XML-RSS
举报原因:
原因补充:

(最多只允许输入30个字)