ASP读取RSS的函数程序/远程读取XML文件(可直接引用)

idcbe.com

<%@LANGUAGE="VBSCRIPT" codepage="65001"%>
<%response.charset="utf-8"

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<=10 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于10条新闻条数!");
</script>
<%
else
For i=0 To (item.Length-1)
Response.Write("<a href="""& Item(i).childNodes(1).Text &""" target='_blank'>"& Item(i).childNodes(0).Text &"</a><br>")
Next
end if
End Function
%>
<html>
<head>
<title>远程读取XML文件</title>
</head>
<body>
<%
call readrss("http://hi.baidu.com/houdawei/rss/")
%>
<br><br>

</body>
</html>

注:此程序源于网络,但由于原程序在使用时有错误,此为本人改良版本,可直接使用--

改进:1、没有错误信息;2、适用于任何编码页面(UTF-8\GB2312...),不会乱码



评论: 0 | 引用: 0 | 查看次数: 11474
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 50 字 | UBB代码 关闭 | [img]标签 关闭
idcbe.com