<!--#include file="top.asp" -->
<%Righttrue=False%>
<div class="articlesbox">
	<div class="leftarticles">
	<h1>Rss频道搜索</h1>
<form action="Select.asp" method="get">
<ul id="select">
	<li>关键字: <input name="key" type="text" size="20" /></li>
	<li id="submits"><input name="" type="submit" value=" 我要查询 " /><input name="select" type="hidden" value="rss" /></li>
</ul>
</form>
	<h1>RSS分类导航</h1>
	<%DefCls.RssClass()%>
	</div>
	<div class="articleslist">
	<h1>RSS阅读</h1>
<%
	On Error Resume Next 
	dim xmlDoc,Root,Number,RSSURL,j,http
	RssUrl=CblogObj.GetRequest("RssUrl")
	If RssUrl="" or left(RssUrl,7)<>"http://" Or instr(RssUrl,".")<2 then
		Response.write "Rss地址非法或不存在!"
		Response.end
	end if
	Set http=Server.CreateObject("Microsoft.XMLHTTP") 
	http.Open "GET",RssUrl,False 
	http.send
	if http.Status<>200 then
		response.write "Rss地址非法或不存在!!"
	else
		Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM") 
		xmlDoc.Async=False 
		xmlDoc.ValidateOnParse=False 
		xmlDoc.Load(http.ResponseXML)
		set root=xmlDoc.documentElement
		number=root.selectNodes("//channel/item").length-1
		for j=0 to number
			Response.Write "<h3 class=""rssshowh1""><a href="""& Root.selectNodes("//channel/item/link")(J).text &""" target=""_blank"">"& Root.selectNodes("//channel/item/title")(j).text &"</a> <u>"&Root.selectNodes("//channel/item/pubDate")(j).text&"</u></h3>"
			Response.write "<p>"&Root.selectNodes("//channel/item/description")(j).text&"</p>"
		Next
	End IF
%>
	</div>
</div>
<!--#include file="copy.asp" -->