sq_checkuser.asp

来自「重庆二手网」· ASP 代码 · 共 27 行

<!--#include file=conn.asp-->
<!--#include file=err.asp-->
<!--#include file=ipt.asp-->
<title>会员注册</title>
<%
dim username,rs,sql,come
come=Request.ServerVariables("HTTP_REFERER")
username=trim(request("username"))
if username="" then
call errijob(0)
response.end
end if
chkijob(username)
set rs=server.createobject("adodb.recordset")
sql="select username from [user] where username='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then
  call errijob(22)
  response.end
else
 response.redirect replace(come,"agree","checkuseryes")+"&users="+username
 response.end
end if
rs.close
set rs=nothing
closedb
%>