Question

请教高人，<ASP>参数不足，期待是 1

<%

'保存注册的信息----------------------------------
Sub Ew_RegSave()
Dim UserName,UserPassword,ReUserPassword,UserCheckCode,UserEmail,UserQuesion,UserAnswer
Dim mama,mamasr,TrueName,UserBirthday,UserAddress,PostCode,tel
'一定要写的资料----------------------------------
UserName = Request("UserName")
UserPassword = Request("UserPassword")
ReUserPassword =Request("ReUserPassword")
UserEmail = Request("UserEmail")
UserQuesion =Request("UserQuesion")
UserAnswer = Request("UserAnswer")
'可以不填的资料----------------------------------
mama = Request("mama")
mamasr = Request("mamasr")
TrueName = Request("TrueName")
UserBirthday = Request("UserBirthday")
Tel=request("tel")
UserAddress = Request("UserAddress")
PostCode = Request("PostCode")

If IsEmpty(Request("UserName")) OR IsEmpty(Request("UserEmail")) Then
'Response.write UserName & UserEmail
Response.write"<script>alert(""信息填写不完整！"");location.href=""javascript:history.back()"";</script>"
Response.End
End if
If IsEmpty(UserQuesion) OR IsEmpty(UserAnswer) Then
Response.write"<script>alert(""问题答案填写不完整！"");location.href=""javascript:history.back()"";</script>"
Response.End
End if

If UserPassword <> ReUserPassword then
response.write"<script>alert(""两次输入密码不一样!\n\n请重新输入！"");location.href=""javascript:history.back()"";</script>"
response.End
End if
set rs=server.createobject("adodb.recordset")
sql="select * from "&Ew_DBTable&" where "&UserName&"='"&UserName&"'"
rs.open sql,conn_user,3,2
if (rs.eof and rs.bof) then
Rs.addnew
'一定要写的资料----------------------------------

Rs("UserName")=UserName
UserPassword=Md5("UserPassword") 'MD5()
Rs("UserPassword")=UserPassword
Rs("UserEmail")=UserEmail
Rs("UserQuesion")=UserQuesion
UserAnswer=Md5("UserAnswer") 'MD5()
Rs("Ew_UserAnswer")=UserAnswer
'可以不填的资料----------------------------------
Rs("mama")=mama 'W
Rs("mamasr")=mamasr 'W
Rs("TrueName")=TrueName 'W
Rs("UserBirthday")=UserBirthday
Rs("UserAddress")=UserAddress 'W
Rs("PostCode")=PostCode 'W
Rs("tel")=tel
Rs("UserIP")=Request.ServerVariables("REMOTE_ADDR")
if NeedCheck=1 then
Rs("IsActive")=False
else
Rs("IsActive")=True
end if
rs.update
if NeedCheck=1 then
response.write"<script>alert(""恭喜你 "&UserName&" 已注册成功!\n管理员会尽快通过验证的！"");location.replace(""index.asp"");</script>"
response.end
else
Call DealCookie_EwSys()
' Session("UserID")=rs("UserID")
' Session("PUsername")=rs("Username")
end if
rs.close
set rs=nothing
Response.write"<script>alert("" 恭喜你 "&UserName&" 注册成功!\n "");location.href=""index.asp"";</script>"
Else
Response.write"<script>alert("" 用户名 "&UserName&" 已被注册!\n "");location.href=""javascript:history.back()"";</script>"
End if
End Sub
%>

显示错误显示说在651行。。。。。
rs.open sql,conn_user,3,2

Answer 1

sql="select * from "&Ew_DBTable&" where "&UserName&"='"&UserName&"'"
你这句话错了。改成这样：
sql="select * from Ew_DBTable where UserName='"&UserName&"'"
表名和表中的字段不用引号的。

Answer 2

是不是把conn_user,3,2
改成conn,1,3