Hi,网页设计师综合门户欢迎您!
设为首页  加为收藏  我要投稿找回密码免责声明意见反馈

招聘精英个人求职推广网站网友作品网页特效动画欣赏网页素材酷站欣赏源码下载设计软件

  • 全站搜索
  • 新闻资讯
  • 网页教程
  • 平面教程
  • 程序设计
  • 视频教程
  • Flash教程

网页设计师提供网页设计、网站程序开发、系统开发等,请联系QQ 103198680

 您当前的位置:首页 > 阅读文章
网页设计师综合门户欢迎您!

检测用户名是否存在

刊登方式:转载   来源:网络  作者:  关键词:平面设计理念  更新时间:2017/9/11

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