分享asp判斷是否登錄的代碼

申請(qǐng)免費(fèi)試用、咨詢電話：400-8352-114

    這篇文章由撫州網(wǎng)站建設(shè)公司來分享asp判斷是否登錄的代碼，這也是網(wǎng)站建設(shè)中經(jīng)常會(huì)用到的。

    <%
    dim admin_username,admin_password
    admin_username=trim(request("username"))
    admin_password=trim(request("password"))

    if admin_username="" or admin_password="" then
    response.write "<script>alert(’對(duì)不起，用戶名和密碼不能為空！’);document.location.href=’index.asp’;</script>"
    response.end
    end if’這里是判斷輸入是不是為空
    %>

    <%
    set conn = Server.CreateObject("ADODB.Connection")
    DBPath = Server.MapPath("db1.mdb")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from info where Username=’"&admin_username&"’"
    rs.open sql,conn,1,1

    if not rs.eof then
    ’這個(gè)IF判斷的意思是：輸入的用戶名和數(shù)據(jù)庫(kù)里的用戶名一致的時(shí)候。這是你還要判斷輸入的密碼對(duì)不對(duì)，是吧？所以就有下面的IF。
    if rs("UserPwd")<>admin_password then
    response.write "<script>alert(’對(duì)不起，密碼不正確，請(qǐng)重新輸入’);document.location.href=’index.asp’;</script>"
    response.end
    else
    response.redirect "index2.asp"
    ’密碼也對(duì)的情況下，就可以登錄index2.asp頁(yè)面了
    ’一般，你最好是還要設(shè)置session。這樣方便別的頁(yè)面判斷是不是登錄了。如
    ’session("jsusername")=username
    ’session("jsPassword")=Password
    end if
    end if
    %>
    <%
    rs.close
    set rs=nothing
    conn.close
    set rs=nothing
    %>

    以上就是asp判斷是否登錄的代碼，如果想讓登錄更加人性化還可以加別的東西，大家需要注意一點(diǎn)，有些英文逗號(hào)這里會(huì)顯示成中文的。