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