张锋的博客

石家庄人,qq3716162

ASP-XML-RSS


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.NET
上一篇Oracle常用功能集锦
下一篇XML Web Server
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭