asp读取feed
今天没有什么事做,写了一个用asp读取feed源的代码.花了半个小时.本打算用javascript脚本写的-因为脚本比较简单通用,不需要什么配置,不过后来发现用想脚本在不通的浏览器显示相同的效果,简直是在做梦--难道是我的水平不够吗?于是觉得用最简单的asp来写.靠一下子就完成了,不过测试的时候发现 如果你的yo2.没有开启插件是就是直接使用默认的feed.读取老是有一个错误.但是把feed下回来保存.xml文件又可以使用了.真是奇怪的问题或者是asp本身的解析缺陷吧.隔天用java写个好点的.不过支持java的服务器价格真是高啊. 下面给大家看看源码.高手就指点一下怎么样修改.经过测试wordpress能读取,但是我只测试了小部分,可能存在不能读取的.而且种子源只能是托管的,默认的读取不了.提示错误如下:
Error: 文本内容中发现无效字符。
Code: 0xC00CE508
At Line: 1
At pos: 1791
但是这个位置怎么可能有无效字符呢?
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<title></title>
</head>
<body>
<%
dim objXML
dim objRootElement
dim strValue
dim strInetURL
dim strXML
dim item
const max_per=5 '每个feed显示最大条数
'以后这个考传值过来
'设置feed 源的
strInetURL ="http://www.kafeitime.cn/feed/"
Dim HttpReq
'set HttpReq = server.CreateObject("Microsoft.XMLHTTP")
'上面也行,不过有时会不能读取
set HttpReq = server.CreateObject("MSXML2.ServerXMLHTTP")
HttpReq.open "GET",strInetURL,False
HttpReq.send
strXML = HttpReq.responseText
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.validateonparse = true
objXML.async=false
objXML.loadXML(strXML)
'用来显示错误信息
if objXML.ParseError.errorCode <> 0 then
Response.Write("Error: " & objXML.parseError.reason & "<br>")
Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>")
Response.Write("At Line: " & objXML.parseError.line & "<br>")
Response.Write("At pos: " & objXML.parseError.linePos & "<br>")
else
set blogname= objXML.getElementsByTagName("title")
set bloglink =objXML.getElementsByTagName("link")
Response.Write "<a href='" &" "&_
bloglink.Item(0).Text &"'>"&_
blogname.Item(0).Text &"</a>" &"<hr />"
set item = objXML.getElementsByTagName("item")
j=1
For i=0 To (item.Length-1)
Set title=item.Item(i).getElementsByTagName("title")
Set link=item.Item(i).getElementsByTagName("link")
Response.Write "<a href='" &" "&_
link.Item(0).Text &"'>"&_
title.Item(0).Text&"</a>"&"<hr />"
j=j+1
if j>max_per then
exit for
end if
Next
end if
%>
</body>
</html>
athere :
Wrote on 2007年06月17日 @ 18:26 pm
以前比较喜欢ＡＳＰ的，但是自从ＷＰ后ＡＳＰ就很少看了，在加上不愿意在本机上面加装ＩＩＳ，接触的机会就更加少了。
ronghai :
Wrote on 2007年06月17日 @ 18:28 pm
asp也不是太好,我自己也只做JavaEE.偶尔写点asp.
mercy :
Wrote on 2007年06月17日 @ 21:41 pm
很久没编程了，都有点阅读障碍了。
黑星星 :
Wrote on 2007年06月17日 @ 22:50 pm
不知道注意到没有，WP的RSS输出有两个版本
一个是2.0 地址类似http://blog.ccoio.com/feed/
一个是.92地址类似 http://blog.ccoio.com/feed/rss
所以，若是把strInetURL ="http://www.kafeitime.cn/feed/
改成
strInetURL ="http://www.kafeitime.cn/feed/rss
试试效果如何呢??