<%data_path="../"%>
<!-- #include File="../conn/conn.asp" -->
<%
' 文件内容格式为XML
Response.ContentType = "text/xml"
' 不保存在客户端缓存
Response.Expires = 0
user=Request.QueryString("user")


     bytes=split(citypingname,"|")
 for  ii=0 to ubound(bytes)

          if user= bytes(ii)  then
		        flag="0"
		   end if
    next

Dim objDBConn, strDSNless, strSQL
 Set rsSearch=Server.CreateObject("ADODB.RecordSet")
sqlSearch="SELECT COUNT(*) from Websen_corporation where [user]='"&Request.QueryString("user")&"'"
		//打开记录集
		rsSearch.Open sqlSearch,conn,1,1
		
Response.Write("<?xml version='1.0' encoding='gb2312'?>")
Response.Write(" <?xml-stylesheet   type='text/css'   href='cd_catalog.css'?>")
Response.Write("<user>")
if rsSearch(0) >= 1 Then
   Response.Write("<msg color='red'>用户名已存在!</msg>")
End if
if user<>"" then
     if  flag<>"0"  then
           Response.Write("<msg>输入符合规范</msg>")
    else 
          Response.Write("<msg>用户名不能注册!</msg>")
	 End if	   
else
   Response.Write("<msg>用户名不能为空!</msg>")
End if

Response.Write("</user>")
Set rsSearch = Nothing
conn=nothing
set conn=nothing
%>

