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