最简单_用户注册程序

最简单_用户注册程序

<%
dim UserName,FoundErr,ErrMsg
UserName=trim(request("UserName"))
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,"