下一步，向blog里增加rss阅读

 
<%
dim xmlDoc 
dim root
dim number
Set http=Server.CreateObject("Microsoft.XMLHTTP") 
http.Open "GET","http://all2rss.com/star.asp?starid=6",False 
http.send 
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM") 
xmlDoc.Async=False 
xmlDoc.ValidateOnParse=False 
xmlDoc.Load(http.ResponseXML)
set root=xmlDoc.documentElement
tt=replace( root.childNodes(0).childNodes(7).text,"http://astro.sina.com.cn/pc/west/frame0_5.htmlhttp://astro.sina.com.cn/pc/west/frame0_5.html","<br>")
response.write "<p align='center' class='font'>" & root.childNodes(0).childNodes(0).text & "<p>"     
response.write "<p >" &tt& "</p>"
%>