快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

用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"> &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
%>
返回类别: 教程
上一教程: ASP中数据库调用中常见错误的现象和解决
下一教程: 网络寻呼机数据库版发送消息TOMESSAGE.ASP

您可以阅读与"用ASP+XMLHTTP实现RSSREADER功能"相关的教程:
· XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(三)
· XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(二)
· ASP环境下邮件列表功能的实现 (四)
· XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(一)
· ASP中实现网络打印功能
    微笑服务 优质保证 索取样品