<!--#include file="UserConn.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)>16 then
    Response.Write"<div id='regcss'>必须大于6位小于16位！</Div>"
	Else
	Set rs = Conn.Execute("Select uname from qvodcms_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()
%>