regchk.asp

重庆二手网

<!--#include file=conn.asp-->
<!--#include file=err.asp-->
<!--#include file=ipt.asp-->
<title>会员注册</title>
<%
dim username,email,rs,sql
username=trim(request("username"))
email=trim(request("email"))
if username="" or email="" then
call errijob(0)
response.end
end if
chkijob(username)
if nothaveChinese(username)=false then
call errijob(3)
response.end
end if
if IsValidEmail(email)=false then
call errijob(1)
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select username,email from [user] where username='"&username&"' or email='"&email&"'"
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then
 if trim(rs("email"))=email then
 call errijob(23)
 response.end
 end if
  if trim(rs("username"))=username then
 call errijob(22)
 response.end
 end if
 call errijob(24)
 response.end
else
%>
<!--#include file=reg1.asp-->
<%
end if
rs.close
set rs=nothing
closedb
%>