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) %>