无效的SQL语句

lary817 2010-06-13 06:38:22
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 无效的 SQL语句;期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。
/jishi/zhucechuli.asp, 第 28 行
麻烦各位高手再帮我解决这个问题!多谢啦!
第二十八行代码是:rs.open sql,conn

<%
if request.form("userid")="" then
response.redirect"register.asp"
response.End
else
function sqlstr(data)
sql="'" & replace(data,"'","""")&"'"
end function
userid=trim(request("userid"))
userpw=trim(request("userpw"))
idnumber=trim(request("idnumber"))
name=trim(request("name"))
sex=trim(request("sex"))
age=trim(request("age"))
address=trim(request("address"))
zipcode=trim(request("zipcode"))
email=trim(request("email"))
phone=trim(request("phone"))
if phone="" then
phone="没有电话号码"
set conn=server.createobject("adodb.connection")
connstring="driver={microsoft access driver (*.mdb)};"
connstring=connstring & "dbq=" & server.mappath("shopping.mdb")
conn.open connstring
set rs=server.createobject("adodb.recordset")
sql="select * from users where userid="
sql=sql & sqlstr(userid)
rs.open sql,conn
if not rs.eof then
response.write"已经存在此用户名"
rs.close
response.end
else
response.write"<p>"
response.write"<font color=red size=2>您的资料如下:</font>"
response.write"会员名:"&userid&"<br>"
response.write"密码:"&userpw&"<br>"
response.write"姓名:"&name&"<br>"
response.write"身份证:"&idnumber&"<br>"
response.write"性别:"&sex&"<br>"
response.write"年龄:"&age&"<br>"
response.write"地址:"&address&"<br>"
response.write"邮编:"&zipcode&"<br>"
response.write"电话:"&phone&"<br>"
response.write"Email:"&email&"<br>"
set rs1=server.createobject("adodb.recordset")
rs1.activeconnection=conn
application.lock
sql="select * from users order by custid desc"
rs1.open sql,conn,1,3
if not rs1.eof then
tt=rs1("custid")
tt=right(tt,5)
for i=1 to 5-len(tt)
tt="0"&tt
next
custid="c"&tt
else
custid="C00001"
end if
points=0
rs1.addnew
rs1("custid")=custid
rs1("userid")=userid
rs1("userpw")=userpw
rs1("name")=name
rs1("idnumber")=idnumber
rs1("sex")=sex
rs1("age")=age
rs1("address")=address
rs1("zipcode")=zipcode
rs1("phone")=phone
rs1("email")=email
rs1("point")=point
rs1.update
application.unlock
response.write"<br>"
response.write"<hr color=#999933 size=1>"
response.write"</br>"
response.write"<br>"
response.write"您的资料已经注入我们的系统中,请您<a href=""temp.html"">继续购物</a>"
response.write"</br>"
response.write"或者您可以现在就"
response.write"<a href=""login.asp"">登录</a>"
response.write"本网站,享受网上购物的乐趣!"
end if
end if
end if
%>
...全文
341 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
sy_binbin 2010-06-14
  • 打赏
  • 举报
回复
set rs=server.createobject("adodb.recordset")
sql="select * from users where userid="
sql=sql & sqlstr(userid)
response.write sql
response.end

rs.open sql,conn,1,1
if not rs.eof then
response.write"已经存在此用户名"
rs.close
response.end
else


先把SQL语句打印出来,如果SQL语句没问题,再改下蓝色的代码
灬上海爽爷 2010-06-14
  • 打赏
  • 举报
回复
sql="select * from users where userid="&userid&""
rs.open sql,conn,1,1
XSTT_ 2010-06-14
  • 打赏
  • 举报
回复
rs.open sql,conn,[必要参数1],[必要参数2] 后边还有2个参数的.你没有跟~
lary817 2010-06-14
  • 打赏
  • 举报
回复
问题已解决了,谢谢各位!
超维电脑科技 2010-06-14
  • 打赏
  • 举报
回复
路过.
Msxindl_Com 2010-06-13
  • 打赏
  • 举报
回复

<%
'....省略....
sql="select * from users where userid='"&replace(userid,"'","""")&"'"
'如果userid为数字类型:
'sql="select * from users where userid="&replace(userid,"'","""")
rs.open sql,conn,1,1
if not rs.eof then
response.write "已经存在此用户名"
'....省略....
%>
lary817 2010-06-13
  • 打赏
  • 举报
回复
麻烦各位了啊,急用请大家多帮帮忙哦,我先谢谢各位哦

28,390

社区成员

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

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