ASP-XML-RSS

DIM Objhttp, Objxml, Objxsl

Set objxsl = server.createObject ("Microsoft.xmldom") objxsl.async = falseobjxsl.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 = rsscodehttp: //blog.9cbs.net / hbzxf