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

asp读取QQ的rss之xml数据

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

以下为详细代码

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正则表达式详细

相关阅读: 深山网吧留言板系统v4.0; 舞阳风情旅行社; 开始百度小程序开发需要准备工作; 网页页面变灰，网页变成黑白色; windows xp 安装IIS，设置IIS。; 利用position把div放在flash上; CSS教程：弄懂闭合浮动元素; 非常酷的javascript实现万年历功能

更多信息>>栏目类别选择: 百度小程序开发; 微信小程序开发; 微信公众号开发; 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还有其它的吗

更多>>随机抽取信息: 纯div+css制作的弹出菜单-02; 一个非常好的photoshop cs 教程下载地址; 详解VBScript里的对象正则表达式功能介绍; uni-app用map组件建立微信小程序显示商家地图位置并且打上标志然后点标志进行调用手机地图导航到对应的地址; 九江市交通国际旅行社有限公司; CSS编写过程中常见的10个错误

更多标签热门标签

IP 虚拟创建 tags 柱状自动隐藏系统上传光标样式翻转 FSO 标语绝对做标 DOCTYPE 兼容网易 blog VBScript margin 点击建立日期爱墙 strong 调节间隔 flush 竖排类别 textarea js 注册彩色游戏 sql ie6 注册表关闭许愿墙百度物理文本杈规 万年历渐变 web2.0 对联 html Margin加倍