<!--#include file="inc/conn.asp"-->
<% 
dim uid,Msg
uid=request.QueryString("regUserid")
set rs=server.CreateObject("adodb.recordset")
sql="select userid from user_info where username='"& uid &"'"
rs.open sql,conn,1
if rs.eof and rs.bof then
  Msg="此用户名目前无人使用，请继续注册。"
else
  Msg="此用户名已被人注册，请想出一个比它更可爱的名字^-^"
end if
rs.close
set rs=nothing
dbclose
response.write "<?xml version=""1.0"" encoding=""gb2312""?>"
response.Write "<root>"
response.Write "<returnMsg>"& Msg &"</returnMsg>"
response.Write "</root>"
%>