asp读取QQ的rss之xml数据 -- [ASP]─ 深山工作室提供网络投票系统|微信公众号投票|微信公众号小程序|抖音小程序|百度小程序|微信公众号开发|企业网站建设

asp读取QQ的rss之xml数据

网络 2009/8/5 20:35:15 深山行者字体:大中小浏览 5914

以下为详细代码

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")

%>
<table width="550" border="0" cellspacing="0" cellpadding="6">
  <tr>
    <td width="20%" height="25" align="center"><a href="index.asp">QQ新闻聚合</a></td>
    <td width="20%" align="center"><a href="163.asp">163新闻聚合</a></td>
    <td width="20%" align="center">&nbsp;</td>
    <td width="20%" align="center">&nbsp;</td>
    <td width="20%" align="center">&nbsp;</td>
  </tr>
</table>
<table width="550" border="0" cellpadding="3" cellspacing="1" bgcolor="#ECEFF4">
 <%
for i=0 to oItem.length-1
word=oItem(i).childNodes(0).text
title=oItem(i).childNodes.item(0).text
Link=oItem(i).childNodes.item(1).text
pubdate=oItem(i).childNodes.item(4).text
%> 
<tr>
    <td height="24" bgcolor="#FFFFFF">·<a href="<%=link%>" target="_blank"><font style="font-size:14px;" color="#003366"><%=word%>  </font><font color="#999999">(<%=pubdate%>)</font></a></td>
</tr>
<%
next
end if
%>
</table>

前一页:asp读取163的rss之xml数据

后一页:asp正则表达式详细

相关阅读: 一个非常好的photoshop cs 教程下载地址; 北京顺义阿来电脑科技有限公司电脑配件在线网店; document对象详解; 旅游网站的企业站自定义功能完成。; 页面文字变色、变大、还原; 淡蓝色的V2.1加强版; Dreamweaver错误：以下翻译器没有被装载，由于错误;xsltransform.htm;有不正确的设置信息; 奸商修改器病毒篡改ThinkPad CPU信息

更多信息>>栏目类别选择: 百度小程序开发; 微信小程序开发; 微信公众号开发; uni-app; asp函数库; ASP; DIV+CSS; HTML; python

更多>>同类信息: ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明; asp显示随机密码; 通过阿里云服务接口获得ip地址详细信息; iis点开后任务栏上有显示，但是窗口看不到的解决办法; RSA加密解密插件; 微软Encoder加密解密函数

更多>>最新添加文章: dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT; Android移动端自动化测试：使用UIAutomatorViewer与Selenium定位元素; 抖音直播音挂载小雪花懂车帝小程序; javascript获取浏览器指纹可以用来做投票; 火狐Mozilla Firefox出现：无法载入您的Firefox配置文件它可能已经丢失或是无法访问问题解决集合处理办法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路径; python通过代码修改pip下载源让下载库飞起; python里面requests.post返回的res.text还有其它的吗

更多>>随机抽取信息: 另外一种符合web2.0的链接打开方式--利用base打开链接; 网页小键盘/软键盘; 微信小程序打开客服提示：该小程序提供的服务出现故障，请稍后重试; 亿菇缘; 利用CSS的position定位属性定义一个顶部飘动的柳叶效果非常酷; ASP汉字转拼音，支持自定义特殊词语

更多标签热门标签

windows 程序爱墙 asp.net 展示建立日期限制 table 留言板 javascript 斜线硬件 flash 透明快捷表达式绝对管用的iis安装包下载展开滑动 cpu 眼睛 ResponseXML Google 邮箱下拉框执行手 imprt 经典 mop 获得 adobe jpg blog 技巧经典的 option 考试屏幕移动菜单自动隐藏刷新滑过层控制时钟加长字节数超出添加