Question

asp 点击按钮检查用户名是否存在

ASP和ACCESS数据库的
在注册页面有个 检查用户名是否存在 按钮， 当点击按钮时，如果存在就弹出“用户名已存在”提示框，如果不存在就弹出“用户名不存在”提示框
我的数据库表名是“hy” 用户名字段是“zhh”，表单中用户名文本框名是“username”
麻烦高手给写下这段代码
把按钮的代码也写上哦！谢了！

Answer 1

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from hy where zhh='"&username&"'"

rs.Open sql,conn,1,3
if rs.EOF and rs.BOF then
response.write ("用户名不存在")
else
response.write ("用户名存在")
end if
rs.close
Set rs = Nothing
conn.close
set conn=nothing

Answer 2

把用户输入用变量username通过FORM传出到页面check.asp,这个页面中的检测用户是否存在的代码如下：
sql="select * from hy where zhh='"&username&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
aaaa=(rs.RecordCount)
rs.close
if aaaa =0 then
response.write "恭喜，用户名可以注册！"
else
response.write "用户名已存在！不可注册！"
end if

先连接一下数据库不用说了吧

Answer 3

思路如下：
1、有两个页面：一个是注册页面，一个是处理页面
2、注册页面的<form>标记的action属性指向处理页面
3、注册页面的按钮用于将文本框中的值传到处理页面
4、定义一个Session变量，处理页面将注册也传来的值与数据库中记录进行匹配，如果该用户名已经使用，那么就将Session变量赋值为wrong，反之为right

代码如下：
注册页面：
在文本框后加入一个提交按钮
<input type="submit" value="提交">
<%If Session("check")=false then
Response.Write("该用户名已存在")
Else
Response.Write("该用户名可以使用")
End If%>
处理页面：
<%
Dim username,exec,conn,rs '定义变量
username=Request.Form("username") '获取文本框信息
Set rs=Server.CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;"&"data source="&Server.MapPath("xxx.mdb") '链接数据库
Set rs=Server.CreateObject("ADODB.Recordset")
exec="select zhh from hy where zhh='" & username &"'"
rs.Open exec,conn,1,1 '建立记录集，并根据条件从数据库中查询记录
If not rs.EOF
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
Session("check")="right"
Else
Session("check")="wrong"
Response.Redirect("xxx.asp") '重定向到注册页面，并在注册页面中提示“该用户名已存在”
End If '这段的意思是，如果没有在数据库中查询到匹配记录，那么提示该用户可以注册；如果查询到了匹配记录，那么提示“该用户名已存在”
%>

说明：代码大致如此，这就实现了一般网站注册时检测用户名的效果，使用Session组件的目的就是可以将信息从一个页面输出到该网站的任何一个页面，因为Session变量属于全局变量，这里整体代码还有些粗糙，需要楼主再修改一下，祝你好运！