regchk.asp

信息类网站的不错选择

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