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
%>