以文本方式查看主题 - 中文XML论坛 - 专业的XML技术讨论区 (http://bbs.xml.org.cn/index.asp) -- 『 Dot NET,C#,ASP,VB 』 (http://bbs.xml.org.cn/list.asp?boardid=43) ---- [转帖]用Asp+XmlHttp实现RssReader功能 (http://bbs.xml.org.cn/dispbbs.asp?boardid=43&rootid=&id=14194) |
-- 作者:Qr -- 发布时间:2/1/2005 5:04:00 PM -- [转帖]用Asp+XmlHttp实现RssReader功能 <style> 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") Set xmlDom = server.createObject("microsoft.xmldom") if xmlDom.ReadyState>2 Then set oItem=xmlDom.getElementsByTagName("item") for i=0 to oItem.length-1 |
W 3 C h i n a ( since 2003 ) 旗 下 站 点 苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》 |
31.250ms |