中文XML论坛--关于读取rss出错

新书推介：《语义网技术体系》
作者：瞿裕忠，胡伟，程龚

XML论坛

W3CHINA.ORG讨论区

计算机科学论坛

SOAChina论坛

Blog

开放翻译计划

新浪微博

首页

软件下载

资料下载

核心成员

帮助

>> XML网站展示，XML源代码，XML编程示例。本版仅接受原创、转贴、网站展示，具体的技术交流请前往各相关版块。

[返回] 中文XML论坛 - 专业的XML技术讨论区 → XML.ORG.CN讨论区 - XML技术 → 『 XML源码及示例(仅原创和转载) 』 → 关于读取rss出错

◇查看新帖 ◇ 用户列表 ◇

(订阅本版)

您是本帖的第 5805 个阅读者　　

*	贴子主题：关于读取rss出错	举报打印推荐 IE收藏夹
	本主题类别:

jafu

  等级：大一新生
  文章：5
  积分：74
  门派：XML.ORG.CN
  注册：2007/6/25

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

	楼主

关于读取rss出错

请多指教
<%
Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=1 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于1条新闻条数!");
</script>
<%
else
end if
End Function
%>
<%
call readrss("http://www.richfree.c/")
%>

如果call readrss的地址不对的话，会出错，请高手指教

收藏分享
顶(0)

2007/7/30 0:08:00

GoogleAdSense

  等级：大一新生
  文章：1
  积分：50
  门派：无门无派
  院校：未填写
  注册：2007-01-01

	广告

2024/11/28 19:40:38

本主题贴数1，分页： [1]

管理选项：修改tag | 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	5,656.250ms