用Asp+XmlHttp实现RssReader功能
点击次数：29 次 发布日期：2008-11-26 12:50:21 作者：源代码网
|
源代码网推荐 body {margin:10px;background-color:#ffffff;margin-top:6px;} 源代码网推荐 form{margin:0px;} 源代码网推荐 * {font:12px tahoma;line-height:140%;color:#000000} 源代码网推荐 .title {font-weight:bold;color:red;} 源代码网推荐 .time {font:10px;color:#999999;} 源代码网推荐 a {text-decoration:none;color:blue;} 源代码网推荐 </style> 源代码网推荐 <script type="text/javascript"> 源代码网推荐 var switcher=0; 源代码网推荐 </script> 源代码网推荐 <body ondblclick="if(switcher==0){document.styleSheets[0].addRule("div","display:none");switcher=1}else{document.styleSheets[0].addRule("div","display:block");switcher=0}"> 源代码网推荐 <form name="rssform" method=post action=""> 源代码网推荐 RSS资源：<INPUT TYPE="text" NAME="RssFeed" size=60 style="height:22px" value="<%=request("RssFeed")%>" onfocus=select()> <input type="submit" value="Read It"> 双击鼠标可以关闭摘要，只显示标题 源代码网推荐 </form> 源代码网推荐 <hr/> 源代码网推荐 <% 源代码网推荐 If(request("RssFeed")="") Then 源代码网推荐 url="/rss2.asp" 源代码网推荐 else 源代码网推荐 url=request("RssFeed") 源代码网推荐 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 源代码网推荐 源代码网推荐 set oItem=xmlDom.getElementsByTagName("item") 源代码网推荐 源代码网推荐 for i=0 to oItem.length-1 源代码网推荐 response.write "<span style="font:bold 9px verdana;color:#000000">"&i+1&"</span>. <a class="title" href=""&oItem(i).childNodes(1).text&"" target="_blank">"&oItem(i).childNodes(0).text&"</a> <span class="time">["&oItem(i).childNodes(3).text&"]<br />" 源代码网推荐 response.write "<div>摘要："&oItem(i).childNodes(4).text&"</div><br>" 源代码网推荐 next 源代码网推荐 end if 源代码网推荐 %> 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
