<%
Dim conn,rs
Dim connstr
Dim sqlCmd
Dim userName
'得到用戶名查詢字符串
userNam
'創建數據集對象
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)
%>
新聞熱點
疑難解答