一款ajax驗證使用者名稱是否存在

<script language="網頁特效" type="text/javascript">
<!--
function checkusername(username){
 //建立跨瀏覽器的xmlhttprequest對象
 var xmlhttp;
 try{
  xmlhttp= new activexobject('msxml2.xmlhttp');
 }catch(e){
  try{
   xmlhttp= new activexobject('microsoft.xmlhttp');
  }catch(e){
   try{
    xmlhttp= new xmlhttprequest();
   }catch(e){}
  }
 }
 //建立請求，並使用escape對username編碼，以避免亂碼
 xmlhttp.open("get","checkusername.asp?username="+escape(username));
 xmlhttp.onreadystatechange=function(){
  if(xmlhttp.readystate==4){
   if(xmlhttp.status==200){
    //根據responsetext判斷使用者名稱是否存在
    if(xmlhttp.responsetext=="1")alert("對不起，該使用者名稱以存在！");
    else alert("恭喜！該使用者名稱未被註冊！");
   }else{
    alert("網路失敗。");
   }
  }
 }
 xmlhttp.send(null);
}
//-->
</script>

asp.檔案

<%
dim conn,rs
dim connstr
dim sqlcmd
dim username

'得到使用者名稱查詢字串
username=request.querystring("username")

'建立資料庫教程連線物件並開啟
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("data.mdb")
conn.open connstr

'建立資料集對象
set rs=server.createobject("adodb.recordset")

'查詢使用者名稱等於指定值的記錄
sqlcmd="select id from user where username='" & username & "'"
rs=conn.execute(sqlcmd)

//定義變數表示使用者名稱是否存在
dim exist

//根據是否有資料判斷使用者名稱是否存在
if rs.eof then exist=1 else exist=0

//關閉資料庫連接
rs.close
conn.close
set rs=nothing
set conn=nothing

//將結果返回
response.write(exist)
%>