Question

ASP 代码判断问题 数据库存在判断ASP+access

我有一个member 表 里面有个 字段是 name 表示用户名的 我想要一个判断 就是别人注册的时候 如果这个用户名已经存在了 就提示存在了。 这样的一个判断 我是ASP+access 数据库的

Answer 1

regName = Trim(request.Form("regName")) ‘从表单获取用户注册提交的信息

set REGrs = Server.CreateObject("Adodb.Recordset")
REGstr = "Select * from member Where User_Name = '" & regName & "'" '在member表中查找表单提交来的字符串
REGrs.Open REGstr,conn,1,3
If REGrs.Bof And REGrs.Eof Then
REGrs.AddNew
REGrs("User_Name") = regName ‘如果找不到，则说明该用户名还没有注册，添加到数据库
Else
Response.Redirect("reg.asp?ErrCode=6&rn="®Name) '否则表示用户已存在，返回注册页面，重新注册，并给出出错原因
End If

Answer 2

数据库存在判断ASP+access的方法：
<%
set conn=server.createobject("adodb.connection")
Set conn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("Adodb.RecordSet")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/chinesestudent.mdb")
Sql="select * from student where godate='"&py&"' or place='"&pb&"'"
rs.open sql,conn,1,3

if not(rs.bof and rs.eof) then '有数据
rs.addnew
rs("username")=pn '姓名
rs("godate")=py '出发日期
rs("place")=pb '出生地
rs("number")=ps '身份号
rs("tel")=pd '电话
rs.update '依题意入库
Else '没有数据则插入
response.write "<script>alert(""数据库中暂时没有与你相同的信息！"");</script>"
rs.addnew
rs("username")=pn '姓名
rs("godate")=py '出发日期
rs("place")=pb '出生地
rs("number")=ps '身份号
rs("tel")=pd '电话
rs.update '依题意入库
end if
rs.close
set rs=nothing
%>