<!--#include file="../tgzcm.Scnn.asp" -->
<%Response.Charset="GB2312"
Dim action,valuestr
action=Trim(Request.QueryString("action"))
valuestr=NoSqlHack(Trim(Request.QueryString("value")))
Select Case action
Case "reg"'检查重名
   if Len(valuestr)<6 or Len(valuestr)>18 then
    Response.Write"<div id='regcss'>必须大于6位小于18位！</Div>"
	Else
	Set rs = Conn.Execute("Select uname from tgzcm_user where uname='"&valuestr&"'")
	If Not rs.eof then
	Response.Write"<div id='regcss'>抱歉！用户已经注册,请更换！</Div>"
	Else
	Response.Write"<div id='regcss'>恭喜.可以注册！</Div>" 
	End if
	rs.close
	Set rs = nothing
   End If	
End Select
Call CloseConn()
%>