AJAX使用者檢測

來源:互聯網
上載者:User

AJAX帶來的使用者體驗是有目共睹的,就最小的應用,我們來嘗試著實現一下。依然採用HotHeart的AJAXRequest 類 ,使用參見另一篇文章ASP的AJAX開始。

實現效果如下:

 

其他的不多說,老規矩,看代碼:

reg.html

<html>
<head>
<title>AJAX使用者名稱檢測</title>
<script type="text/javascript" src="ajaxrequest.js"></script>
<script type="text/javascript" >
var ajax=new AJAXRequest();
function regCheck() {
  var uname=document.getElementById("user_name");
  ajax.get("proc_user.asp?action=regcheck&user_name="+uname.value,usercheck);
}
function usercheck(obj) {
  document.getElementById("msg_user_name").innerHTML=unescape(obj.responseText);
}
</script>
</head>
<body>
使用者名稱:<input type="text" name="user_name" id="user_name"/>
<button onclick="regCheck();">檢測使用者</button><label id="msg_user_name">註:資料庫中只有admin和shaoyun兩個使用者</label>
</body>
</html>

proc_user.asp

<!--#include file="conn.asp"-->
<%
dim action:action=trim(Request.QueryString("action"))
select case action
case "regcheck"
    dim user_name,ret_string
    user_name=trim(Request.QueryString("user_name"))
    if isReg(user_name) then
        ret_string=escape(user_name & "已被註冊!重新輸入!")
    else
        ret_string=escape(user_name & "未被註冊!可以使用!")
    end if
    Response.Write ret_string
end select

function isReg(username)
    dim retval:retval=false
    openConn("db.mdb")
    sqlstr="select user_name from [user] where user_name='" & username &"'"
    call openRS(sqlstr,1)
    If not(rs.bof and rs.eof) Then retval=true
    closeRS():closeConn():isReg=retval
end function
%>

註:以上執行個體需要IIS環境。

附件:ajax_usercheck_demo.rar

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.