<%
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>"
%>
先输出一下 今日星座（处女座）
然后找个好地方插入一下。替换掉里面的文本。
