chknewusername.asp

来自「. 缓存处理技术」· ASP 代码 · 共 22 行

<!-- #include file="Conn_And_Config.asp" -->
<%
   Dim BBRName,BBRPass,BBRRePass,BBREmail
   BBRName=CheckStr(Trim(Request.Form("BBRName")))
   if BBRName="" then Call AlertInfo("对不起，请填写你想要注册的用户名！","",0)
   if Len(BBRName)<5 or Len(BBRName)>20 then Call AlertInfo("对不起，你填写的用户名超出长度限制范围！","",0)

        On Error Resume Next
	Dim RsNewUserID
	Sql="Select RegID,RegAdmin,RegValidated from users where RegUserName='"& BBRName &"'"
	Set RsNewUserID=Server.CreateObject("ADODB.RecordSet")
	RsNewUserID.Open Sql,conn,1,1
	if RsNewUserID.Eof then
	   Response.Write"<Span Style=""Color: #dd2222; Font-size: 9pt; Font-Family: 宋体,Arail"">恭喜你，此用户名可以注册！</Span>"
	   Response.End
	else
	   Response.Write"<Span Style=""Font-size: 9pt; Font-Family: 宋体,Arail"">很遗憾，此用户名已经被注册了！</Span>"
	   Response.End
	end if

%>