<% @language="VBScript"%>
<%
dim uurl
uurl=Request.ServerVariables("Server_name")
Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
For i=0 To (item.Length-1)
Set title=item.Item(i).getElementsByTagName("title")
Set link=item.Item(i).getElementsByTagName("link")
Response.Write(""& title.Item(0).Text &" ")
Next
End Function
%>
最新更新
今日最新更新、发表文章.实时更新
<%
call readrss("http://"&uurl&"/bbs/RssFeed.asp?RssID=4")
%>