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