当前位置：IDC资讯中心 > 网络编程 > ASP教程 > 正文

用asp+xmlhttp实现rssreader功能_asp实例

2007-08-23 分类：ASP教程阅读(549) 评论(0)

建站超值云服务器，限时71元/月

<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”)
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
%>

赞(0)

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » 用asp+xmlhttp实现rssreader功能_asp实例

相关推荐