regcheck.asp

来自「九酷网络个人主页系统破解版」· ASP 代码 · 共 23 行

<!--#include file="config.asp"-->
<%
username=htmlencode2(request("username"))
if Checkchar(username,"")=false then WriteErrMsg("用户名中含有非法字符,请重新输入！")
if filters<>"" then
filters=split(filters,"|")
for i = 0 to ubound(filters)
	if LCase(username)=filters(i) then
		response.write "<script>alert('对不起，此用户名被系统保留或禁用！');location.href='javascript:self.close()'</script>"
		erro=true
		exit for
	end if
next
end if
sql="select username from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script>alert('恭喜，您还可以注册帐号："&username&"');</script>"
else
response.write "<script>alert('对不起，帐号："&username&"已经被人注册了！');</script>"
end if
%>