从rss中读取内容(备注类型内容更新问题)
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的内容还是往数据库中写入错误?