|
|
|
|
|
|
|
|
迅速体验绿叶OA王
快速了解
绿叶OA优势
技术框架
售后服务及其它
　oa点击排行

用Asp+XmlHttp实现RssReader功能
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　发布时间:2007-3-26 0:53:47 点击:

<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"> &nbsp;&nbsp;双击鼠标可以关闭摘要，只显示标题
</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
%>

　　　　　
返回顶部

　　OA关键词:用Asp+XmlHttp实现RssReader功能,asp源码下载,asp下载,asp空间　OA OA办公系统 OA系统 OA办公软件 办公自动化 无纸化办公 协同办公系统

　 OA信息:[1][2][3][4][5][6][7][8][9][10][11][12][13][14][15][16][17][18][19][20][21][22][23]更多>> (后续页1 后续页2 后续页3)
oa系统精选
oa知识相关
  联系我们 |OA王地图 |友情连接   电话:400-888-6166    0791-8839172
合作站点:  华军  天空  中国站长站       ©2008 中国·南昌绿新软件技术有限公司   赣ICP备06047197号