檢測用戶名是否存在

　　<%
Dim connrs
Dim connstr
Dim sqlCmd
Dim userName

　　得到用戶名查詢字符串
userName=RequestQueryString("userName")

　　創建數據庫連接對象並打開
set conn=servercreateobject("adodbconnection")
connstr="Provider=Microsoftjetoledb;data source=" & servermappath("datamdb")
connopen connstr

　　創建數據集對象
set rs=servercreateobject("adodbrecordset")

　　查詢用戶名等於指定值的記錄
sqlCmd="select id from user where userName=" & userName & ""
rs=connexecute(sqlCmd)

　　//定義變量表示用戶名是否存在
Dim exist

　　//根據是否有數據判斷用戶名是否存在
if rseof then exist= else exist=

　　//關閉數據庫連接
rsclose
connclose
set rs=nothing
set conn=nothing

　　//將結果返回
Responsewrite(exist)
%>

From:http://tw.wingwit.com/Article/program/net/201311/14336.html