操作符丢失 错误

cqnuzjj 2008-04-11 11:44:41
<%
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
求高手赐教
...全文
74 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
小逗狗 2008-04-12
  • 打赏
  • 举报
回复
如果你表中还有别的字段,一定要用1楼的方法!
mysite365 2008-04-12
  • 打赏
  • 举报
回复
con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs

如果添加的字符不是全部列的话,要用item(列名1,列名2,...),如果是是全部列,你的用法应该是正确的。。。
Anlige 2008-04-12
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 dogfish 的回复:]
少了那些字段要insert。

VBScript code
con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs("f_sort") & "')"
[/Quote]
Anlige 2008-04-12
  • 打赏
  • 举报
回复
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"')")
end if

if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"'")
end if
  • 打赏
  • 举报
回复
不完整,请检查你各个变量传值问题
cqnuzjj 2008-04-12
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 dogfish 的回复:]
少了那些字段要insert。

VBScript code
con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs("f_sort") & "')"
[/Quote]
没有少字段
程序虽然会报错
但是目的达到了
数据库里有数据
但这样总不完整
cqnuzjj 2008-04-12
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 Anlige 的回复:]
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"')")
end if

if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"'")
end if
[/Quote]
你这个不正确
直接报错
INSERT INTO 错误
Dogfish 2008-04-11
  • 打赏
  • 举报
回复
少了那些字段要insert。

con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs("f_sort") & "')"

28,409

社区成员

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

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