reg_check.asp

来自「是一套很好的数码购物系统」· ASP 代码 · 共 38 行

ASP
38
字号
<!--#include file="include/buyok_shop_30_conn.asp"-->
<HTML><HEAD><TITLE>检测会员名-此页面将在10后自动关闭</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="buyok_shop.css" type="text/css">
<script language="JavaScript">
function closeit() {
setTimeout("self.close()",8000)
}
</script>
</HEAD>
<BODY leftmargin="0" topmargin="0" background=images/admin/back.gif onload="closeit()">
<%
call aspsql()
userid=request.ServerVariables("query_string")
if userid = "" then
	    response.write "<img border=0 src=images/small/wrong.gif alt='出错了,您没有输入用户名,或者输入的用户名中含有非法字符'>"
	    response.end
elseif checktext(userid)<>userid then
	    response.write "<img border=0 src=images/small/wrong.gif alt='出错了,您没有输入用户名,或者输入的用户名中含有非法字符'>"
	    response.end
else
    set rs = conn.execute("SELECT * FROM buyok_user where UserId= '" & UserId & "'")
    if not (rs.Bof or rs.eof) then
	response.write "<img border=0 src=images/small/no.gif alt='非常遗憾,此用户名已被他人注册,请选用其它用户名。'>"
    else
 	response.write "<img border=0 src=images/small/yes.gif alt='恭喜,您可以使用此用户名。'>"
    end if
    set rs=nothing
end if

conn.close
set conn=nothing
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?