无效的SQL语句
错误类型:
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,connif 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
%>