zxj7409 发表于 2008-12-3 16:26
求助，错误类型：Microsoft VBScript 编译器错误 (0x800A03F2) 缺少标识符
新弄了了网页，注册用户时出现如下错误：
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F2)
缺少标识符
/User_RegPost.asp, line 15, column 3
dim
--^
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; TheWorld)
网页：
POST 202 ??? /User_RegPost.asp
POST Data:
UserName=&UserTrueName=&Password=&PwdConfirm=&Question=&Answer=&sex=1&Email=&birthyear=&birthmonth=&birthday=&address=&homepage=http%3A%2F%2F&QQ=&msn=&mobile=&Signature=&showre=1&Submit2=+%D7%A2+%B2%E . . .
时间：
2008年12月3日, 16:19:38
详细信息：
Microsoft 支持
user_regpost.asp中代码如下：、
<%
if EnableUserReg<>"Yes" then
FoundErr=true
ErrMsg=ErrMsg & "
对不起，本站暂停新用户注册服务！"
call WriteErrMsg()
response.end
end if
const ChannelID=2
Const ShowRunTime="Yes"
SkinID=0
dim
RUserName,UserTrueName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,QQ,MSN,birthday,birthyear,birthmonth,address,signature,showre,mobile
RUserName=trim(request("UserName"))
UserTrueName=trim(request("usertruename"))
Password=trim(request("Password"))
PwdConfirm=trim(request("PwdConfirm"))
Question=trim(request("Question"))
Answer=trim(request("Answer"))
Sex=trim(Request("Sex"))
Email=trim(request("Email"))
Homepage=trim(request("Homepage"))
if Homepage="http://" or isnull(Homepage) then Homepage=""
QQ=trim(request("QQ"))
MSN=trim(request("MSN"))
birthyear=trim(request("birthyear"))
birthmonth=trim(request("birthmonth"))
birthday=trim(request("birthday"))
address=trim(request("address"))
signature=trim(request("signature"))
showre=trim(request("showre"))
mobile=trim(request("mobile"))
dim CheckNum,CheckUrl
randomize
CheckNum = int(7999*rnd+2000) '随机验证码
CheckUrl=Request.ServerVariables("HTTP_REFERER")
CheckUrl=left(CheckUrl,instrrev(CheckUrl,"/")) & "User_RegCheck.asp?Action=Check&UserName=" & RUserName & "&Password=" & Password & "&CheckNum=" & CheckNum
if RUserName="" or strLength(RUserName)>14 or strLength(RUserName)<4 then
founderr=true
errmsg=errmsg & "
请输入用户名(不能大于14小于4)"
else
if Instr(RUserName,"=")>0 or Instr(RUserName,"%")>0 or Instr(RUserName,chr(32))>0 or Instr(RUserName,"?")>0 or Instr(RUserName,"&")>0 or Instr(RUserName,";")>0 or Instr(RUserName,",")>0 or Instr(RUserName,"'")>0 or Instr(RUserName,",")>0 or Instr(RUserName,chr(34))>0 or Instr(RUserName,chr(9))>0 or Instr(RUserName,"")>0 or Instr(RUserName,"$")>0 then
errmsg=errmsg+"
用户名中含有非法字符"
founderr=true
end if
end if
if Password="" or strLength(Password)>12 or strLength(Password)<6 then
founderr=true
errmsg=errmsg & "
请输入密码(不能大于12小于6)"
else
if Instr(Password,"=")>0 or Instr(Password,"%")>0 or Instr(Password,chr(32))>0 or Instr(Password,"?")>0 or Instr(Password,"&")>0 or Instr(Password,";")>0 or Instr(Password,",")>0 or Instr(Password,"'")>0 or Instr(Password,",")>0 or Instr(Password,chr(34))>0 or Instr(Password,chr(9))>0 or Instr(Password,"")>0 or Instr(Password,"$")>0 then
errmsg=errmsg+"
密码中含有非法字符"
founderr=true
end if
end if
if PwdConfirm="" then
founderr=true
errmsg=errmsg & "
请输入确认密码(不能大于12小于6)"
else
if Password<>PwdConfirm then
founderr=true
errmsg=errmsg & "
密码和确认密码不一致"
end if
end if
if Question="" then
founderr=true
errmsg=errmsg & "
密码提示问题不能为空"
end if
if Answer="" then
founderr=true
errmsg=errmsg & "
密码答案不能为空"
end if
if Sex="" then
founderr=true
errmsg=errmsg & "
性别不能为空"
else
sex=cint(sex)
if Sex<>0 and Sex<>1 then
Sex=1
end if
end if
if Email="" then
founderr=true
errmsg=errmsg & "
Email不能为空"
else
if IsValidEmail(Email)=false then
errmsg=errmsg & "
您的Email有错误"
founderr=true
end if
end if
if QQ<>"" then
if not isnumeric(QQ) or len(cstr(QQ))>20 then
errmsg=errmsg & "
QQ号码只能是4-20位数字，您可以选择不输入。"
founderr=true
end if
end if
if mobile<>"" then
if not isnumeric(mobile) or len(cstr(mobile))>12 then
errmsg=errmsg & "
手机号必须是数字，不超过11位，您可以选择不输入。"
founderr=true
end if
end if
if MSN<>"" then
if IsValidEmail(MSN)=false then
errmsg=errmsg & "
你的MSN有误。"
founderr=true
end if
end if
if founderr=false then
dim sqlReg,rsReg
sqlReg="select * from " & db_User_Table & " where " & db_User_Name & "='" & RUserName & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,Conn_User,1,3
if not(rsReg.bof and rsReg.eof) then
founderr=true
errmsg=errmsg & "
你注册的用户已经存在！请换一个用户名再试试！"
else
rsReg.addnew
rsReg(db_User_Name)=RUserName
rsReg(db_User_Password)=md5(Password)
rsreg(db_user_truename)=usertruename
rsReg(db_User_Question)=Question
rsReg(db_User_Answer)=md5(Answer)
rsReg(db_User_Sex)=Sex
rsReg(db_User_Email)=Email
rsReg(db_User_Homepage)=Homepage
rsReg(db_User_QQ)=QQ
rsReg(db_User_Msn)=MSN
rsReg(db_User_RegDate)=Now()
rsReg(db_User_ArticleCount)=0
rsReg(db_User_ArticleChecked)=0
rsReg(db_User_LoginTimes)=1
rsReg(db_User_LastLoginTime)=NOW()
rsReg(db_User_ChargeType)=ChargeType_999
rsReg(db_User_UserPoint)=UserPoint_999
rsReg(db_User_BeginDate)=formatdatetime(now(),2)
rsReg(db_User_Valid_Num)=ValidDays_999
rsReg(db_User_Valid_Unit)=1
rsReg(db_User_address)=address
rsReg(db_User_sign)=signature
rsReg(db_User_showre)=showre
rsReg(db_User_mobile)=mobile
if len(birthyear&birthmonth&birthday)>1 then
rsReg(db_User_Birthday)=dateserial(cint(birthyear),cint(birthmonth),cint(birthday))
end if
if EmailCheckReg="Yes" then
rsReg(db_User_UserLevel)=3000
call SendRegEmail()
else
if AdminCheckReg="Yes" then
rsReg(db_User_UserLevel)=2000
else
rsReg(db_User_UserLevel)=999
Response.Cookies(CookiesName)("UserName")=RUserName
Response.Cookies(CookiesName)("Password") =md5(Password)
Response.Cookies(CookiesName)("UserLevel")=999
end if
end if
rsReg.update
end if
rsReg.close
set rsReg=nothing
end if
PageTitle="注册成功"
%>
<%=strPageTitle & " - " & PageTitle%>
|
注册步骤
一、阅读并同意协议√
二、填写注册资料√
三、完成注册→ |
|
|
|
<%
if founderr=false then
call RegSuccess()
else
call WriteErrmsg()
end if
%>
|
|
<%
call Bottom()
%>
<%
call CloseConn
call CloseConn_User
sub WriteErrMsg()
response.write "
"
response.write "| 由于以下的原因不能注册用户！ |
"
response.write "
" & errmsg & "【返 回】
|
"
response.write "
"
end sub
sub RegSuccess()
response.write "
"
response.write "| 成功注册用户！ |
"
response.write "
你注册的用户名：" & RUserName & "
"
if EmailCheckReg="Yes" then
response.write "系统已经发送了一封确认信到你注册时填写的信箱中，你必须在收到确认信并通过确认信中链接进行确认后，你才能正式成为本站的注册用户。"
else
if AdminCheckReg="Yes" then
response.write "请等待管理通过你的注册申请后，你就可以正式成为本站的注册用户了。"
else
response.write "欢迎您的加入！！！"
end if
end if
response.write "【关 闭】
|
"
response.write "
"
end sub
sub SendRegEmail()
dim MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority
MailtoAddress=Email
MailtoName=RegUserName
Subject="注册确认信"
MailBody="这是一封注册确认信。你的验证码是：" & CheckNum & vbcrlf & "
请点此进行确认：" & CheckUrl & ""
FromName=SiteName
MailFrom=WebmasterEmail
Priority=3
ErrMsg=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
if ErrMsg<>"" then FoundErr=True
end sub
%>
aspic 发表于 2008-12-3 22:03
dim
RUserName,UserTrueName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,QQ,MSN,birthday,birthyear,birthmonth,address,signature,showre,mobile
你应该换行了 改为
dim RUserName,UserTrueName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,QQ,MSN,birthday,birthyear,birthmonth,address,signature,showre,mobile
[ 本帖最后由 aspic 于 2008-12-3 22:05 编辑 [/it]]
页:
[1] 