北京燃气集团领导名单:<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 = Trim(Request("ReUserPassword"))
UserEmail = Request("UserEmail")
UserQuesion = Trim(Request("UserQuesion"))
UserAnswer = Trim(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
%>