为什么注册不了???

[shunlee]

<%
if session("register")<>1 then
ErrMsg=ErrMsg+"<br><li>对不起，请勿重复注册会员..."
else


'''''''''''''''''''''''''''''''''''''''''
if Str_Length(request("UName"))<4 or Str_Length(request("UName"))>16 then
ErrMsg=ErrMsg+"<br><li>对不起，您的用户名称过短或过长(长度为5-16位)..."
elseif Instr(request("UName"),".")>0 or Instr(request("UName"),",")>0 or Instr(request("UName"),"/")>0 or Instr(request("UName"),":")>0 or Instr(request("UName"),";")>0 or Instr(request("UName"),"\")>0 or Instr(request("UName"),"&")>0 or Instr(request("UName"),"=")>0 or Instr(request("UName"),"?")>0 or Instr(request("UName"),"'")>0 or Instr(request("UName"),chr(32))>0 or Instr(request("UName"),chr(34))>0 then
ErrMsg=ErrMsg+"<br><li>对不起，您的用户名称含有非法字符..."
else
UName=request("UName")
set rsk=server.createobject("adodb.recordset")
queryk="select top 1 * from KeepWords"
rsk.open queryk,conn,1,1
if Chk_Master(UName,rsk("WrdWords"))=true then
ErrMsg=ErrMsg+"<br><li>对不起，您的用户名称为本站所保留，请重新选择..."
end if
rsk.close
set rsk=nothing
end if

if Str_Length(request("PassWord1"))<5 or Str_Length(request("PassWord1"))>16 then
ErrMsg=ErrMsg+"<br><li>对不起，您的用户密码过短或过长(长度为5-16位)..."
elseif Chk_PassWord(request("PassWord1"))=0 then
ErrMsg=ErrMsg+"<br><li>对不起，您的用户密码含有非法字符..."
elseif request("PassWord1")<>request("PassWord2") then
ErrMsg=ErrMsg+"<br><li>对不起，您的用户密码和确认密码不一致..."
else
UPass=request("PassWord1")
end if

if request("RealName")="" then
ErrMsg=ErrMsg+"<br><li>对不起，请输入您的真实姓名..."
else
RealName=request("RealName")
end if
if request("UCity")="" then
ErrMsg=ErrMsg+"<br><li>对不起，请输入您所在的城市..."
else
UCity=request("UCity")
end if

if Chk_Email(request("UEmail"))=false then
ErrMsg=ErrMsg+"<br><li>对不起，请输入正确有效的电子邮件..."
else
UEmail=request("UEmail")
end if
UOicq=request("UOicq")
if request("UPhone")="" then
ErrMsg=ErrMsg+"<br><li>对不起，请输入您的电话号码..."
else
UPhone=request("UPhone")
end if

UMobile=request("UMobile")
UClass=0
RegTime=now()
Scenes=0
BeginTime=now()
EndTime=now()
RegIp=request.servervariables("REMOTE_ADDR")
LastIp=request.servervariables("REMOTE_ADDR")
LastTime=now()
if ErrMsg="" then
set rs=server.CreateObject("adodb.recordset")
query="select * from Reg_User where UName='"&UName&"'"
rs.Open query,conn,3,3
if rs.RecordCount >=1 then
ErrMsg=ErrMsg+"<br><li>对不起，此用户名称已被注册..."
else
rs.AddNew
rs("UName")=UName
rs("UPass")=UPass
rs("RealName")=RealName
rs("UCity")=UCity
rs("UEmail")=UEmail
if UOicq<>"" then
rs("UOicq")=UOicq
end if
rs("UEmail")=UEmail
rs("UPhone")=UPhone
if UMobile<>"" then
rs("UMobile")=UMobile
end if
rs("UClass")=UClass
rs("RegTime")=RegTime
rs("BeginTime")=BeginTime
rs("EndTime")=EndTime
rs("Scenes")=Scenes
rs("RegIp")=RegIp
rs("LastTime")=LastTime
rs("LastIp")=LastIp

rs.Update
session("register")=0
end if
rs.Close
set rs=nothing
ErrMsg="<br><li>注册成功！！"
end if

'''''''''''''''''''''''''''''''''
end if
%>