从rss中读取内容(备注类型内容更新问题)

tttran 2006-04-24 07:42:47
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.ValidateOnParse=False
xml.Load(http.ResponseBody)
Set http=Nothing

If xml.ReadyState=4 Then'2
'获取链接
Set channel=xml.documentElement.selectSingleNode("channel")
Set item=xml.getElementsByTagName("item")

ItemNum=item.Length

redim RS_link(ItemNum)
redim RS_title(ItemNum)
redim RS_Author(ItemNum)
redim RS_pubDate(ItemNum)
redim RS_description(ItemNum)

addcount=0

For i=0 To ItemNum-1
'链接获取
RS_link(i)=item(i).selectSingleNode("link").text
RS_title(i)=item(i).selectSingleNode("title").text
RS_pubDate(i)=item(i).selectSingleNode("pubDate").text
RS_description(i)=item(i).selectSingleNode("description").text
conn.execute("insert into [H_Blog](Blog_Title,Blog_Url,Blog_Content) values ('"&RS_title(i)&"','"&RS_link(i)&"','"&RS_description(i)&"' )")
Next



End if '1 下载成功
Response.Write "<script>progress1.style.width ="""&int(k/p1*100)&"%"";progress1.innerHTML="""&int(k/p1*100)&"%"";pstr1.innerHTML="""&RssUrl&"更新:"&addcount&"条成功"";</script>" & VbCrLf
'response.Write RssUrl+"更新"&addcount&"条成功<br>"
Set xml=Nothing



我想从rss地址中获取内容, 但是每次往数据库写入都无法更新,如果把'"&RS_description(i)&"' 改成字符串则正常,不知道是因为没有正确获得description的内容还是往数据库中写入错误?
...全文
127 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hanxiao_0210 2006-05-12
  • 打赏
  • 举报
回复
不明白
  • 打赏
  • 举报
回复
可以在for中屏蔽conn.execute

先response.write 看看有什么值的

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧