在线RssReader核心代码

<%

dim xml,xmlDom,oItem

If(request("RssFeed")="" and request.QueryString("RssFeed")="" ) Then

response.write ("
")

response.end

else

if(request("RssFeed")<>"") Then

url=request("RssFeed")

end if

if(request.QueryString("RssFeed")<>"") Then

url=request.QueryString("RssFeed")

end if

End If

Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", url, False

xml.Send

Set xmlDom = server.createObject("microsoft.xmldom")

xmlDom.async=False

xmlDom.ValidateOnParse=false

xmlDom.load(xml.responseXML)

if xmlDom.ReadyState>2 Then

dim description,link,title,time,tagname,i,j

set oItem=xmlDom.getElementsByTagName("item") 'set item标签

for i=0 to oItem.length-1

for j=0 to oItem(i).childNodes.length-1

tagname=oItem(i).childNodes(j).tagname '选出标签

Select Case tagname

Case "description" description=oItem(i).childNodes(j).text '选出描述部分

Case "title" title=oItem(i).childNodes(j).text '选出标题部分

Case "link" link=oItem(i).childNodes(j).text '选出url部分

Case "pubDate" time=oItem(i).childNodes(j).text '选出时间部分

End Select

next

response.write ""&i+1&". "&title&" ["& time &"]
"

response.write "

next

end if

%>