程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 檢測用戶名是否存在

檢測用戶名是否存在

日期:2017/1/9 13:40:56      編輯:關於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)
    %>

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved