62,046
社区成员
发帖
与我相关
我的任务
分享
<%
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 name='" & userName & "'"
rs = conn.execute(sqlCmd)
//
Dim exists;
//
if rs.eof then exists=1 else exists=0
//
rs.close
conn.close
Response.write(exists)
%>