操作符丢失 错误
<%
set con=server.createobject("adodb.connection")
constr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("rss.mdb")
con.open constr
sql1="select * from feed "
set rs=server.createobject("adodb.recordset")
rs.open sql1,con,1,3
do while not rs.EOF
dim xmldoc,http
set http=server.createobject("microsoft.xmlhttp")
http.open "get",""&rs("f_url")&"",false
http.send
set xmldoc=server.createobject("microsoft.xmldom")
xmldoc.async=false
xmldoc.validateonparse=false
xmldoc.load(http.responsexml)
set items=xmldoc.getelementsbytagname("item")
for i=0 to items.length-1
title=items(i).selectSingleNode("title").text
link=items(i).selectSingleNode("link").text
i_description=items(i).selectSingleNode("description").text
sql2="select * from item where title='"&title&"'"
set rs2=con.execute(sql2)
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"')")
end if
next
rs.movenext
loop
con.close
set con=nothing
%>
以上代码实现的功能是:根据URL下载远程XML文件,解析后取得更新的信息并添加到数据库中.
程序报错如下:
Microsoft JET Database Engine '80040e14'
语法错误 (操作符丢失) 在查询表达式 ''
\feed.asp, line 26
求高手赐教