gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/User/CheckRegName.asp
<!--#include file="../Inc/conn.asp"--> <% Dim UserName UserName = trim(Request.QueryString("UserName")) If UserName = "" Then Response.Write("用户名不能为空") Response.End Elseif Not ChkRegName(UserName) then Response.Write("WordErr") Else If len(UserName) < 2 Then Response.Write("用户名不能少于两位") Response.End Else sql="select [ID] From ["&tbname&"_user] where username='"& UserName &"'" set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 If Not Rs.eof Then Response.Write("False") Else Response.Write("True") End if End if End if Rs.Close Set Rs = Nothing Conn.Close Conn = Nothing %>