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

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

数据库存在判断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 ""
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
%>