检查用户名

<% dim UserName,Password,PwdConfirm,Question,Answer,Sex,Email,HomePage,CompanyName,Add,Receiver,Postcode,Phone,Fax UserName=trim(request("UserName")) 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")) CompanyName=trim(request("CompanyName")) Add=trim(request("Add")) Receiver=trim(request("Receiver")) Postcode=trim(request("Postcode")) Phone=trim(request("Phone")) Mobile=trim(request("Mobile")) Fax=trim(request("Fax")) if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then founderr=true errmsg=errmsg & "
- 请输入用户名(不能大于14小于4)
" else if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"")>0 or Instr(UserName,"$")>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 Postcode="" then founderr=true errmsg=errmsg & "
- 邮政编码不能为空
" end if if Phone="" then founderr=true errmsg=errmsg & "
- 联系电话不能为空
" end if if founderr=false then dim sqlReg,rsReg sqlReg="select * from [User] where UserName='" & Username & "'" set rsReg=server.createobject("adodb.recordset") rsReg.open sqlReg,conn,1,3 if not(rsReg.bof and rsReg.eof) then founderr=true errmsg=errmsg & "
- 你注册的用户已经存在！请换一个用户名再试试！
" else rsReg.addnew rsReg("UserName")=UserName rsReg("Password")=md5(Password) rsReg("Question")=Question rsReg("Answer")=md5(Answer) rsReg("Sex")=Sex rsReg("Email")=Email rsReg("HomePage")=HomePage rsReg("CompanyName")=CompanyName rsReg("Add")=Add rsReg("Receiver")=Receiver rsReg("Postcode")=Postcode rsReg("Phone")=Phone rsReg("Mobile")=Mobile rsReg("Fax")=Fax rsReg("RegDate")=Now() rsReg("LockUser")=false rsReg.update founderr=false end if rsReg.close set rsReg=nothing end if %>

会员中心

<% if founderr=false then call RegSuccess() else call WriteErrmsg() end if %>

<%call CloseConn sub WriteErrMsg() response.write "

" response.write "
由于以下的原因不能注册用户！
" response.write "
" & errmsg & " 【返 回】
" response.write "

" end sub sub RegSuccess() response.write "

" response.write "
成功注册用户！
" response.write "
你注册的用户名：" & UserName & " 【关 闭】
" response.write "

" end sub %>