求助!!操作符丢失 问题
Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 '0154898840f0ebdf' 中。
/jn/reg2.asp, 第 45 行
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
POST 93 ??? /jn/reg2.asp
name=qq&pass1=qq&pass2=qq&dj=0&qq=&email=dfgbdf@yjh.com&dianhua=&zhuye=&Submit=%D7%A2++%B2%E1
源码如下:
<%
user=request("name")
pass1=request("pass1")
pass2=request("pass2")
xb=cint(request("xb"))
dj=cint(request("dj"))
qq=request("qq")
email=request("email")
dianhua=request("dianhua")
zhuye=request("zhuye")
i=1
r="<p style='font-size: 12px'><span style='color: #FF0000'>"
l="</span></p>"
if user="" then
mess1="用户名不能为空!!"
mess1=r+mess1+l
i=0
end if
if pass1="" then
mess2="密码不能为空!!"
mess2=r+mess2+l
i=0
end if
if pass2="" then
mess2="密码不能为空!!"
i=0
end if
if email="" then
mess3="邮箱不能为空!!"
mess3=r+mess3+l
i=0
end if
if i=1 then
if pass1=pass2 then
re.Open "Select * From userlist Where user = '" & user & "'",Conn
If re.Eof Then
Pass1 = md5(Request ("Pass1"))
money=0.00
zhuangtai=1
rs.Open "Insert Into userlist values('" & user & "', " & pass1 & ", '" & dj & "', '" & money & "','" & email & "','" & zhuangtai & "', '" & xb & "','" & qq & "','" & dianhua & "','" & zhuye & "',Now())",Conn
Conn.Close
else
mess="该用户名已经存在,请更换一个重新申请!!"
i=0
end if
else
mess="两次输入的密码不同请重新输入!!"
i=0
end if
else
mess=mess1+mess2+mess3
end if
%>