Question

asp+access 调试成功，但数据库内记录为空。

表单提交后，先进行查询，1、如果数据库内有符合与提交“godate”和“place”两项任一项相同的，则将所提交信息添加入数据库中，并输出与之相同的信息。2、如果数据库内没有相同项，提示数据库内暂时没有与你相同的信息，并同样将表单内信息添加到数据库。
调试结果一直出现“数据库中暂时没有与你相同的信息！”但数据库内每次提交都增加了记录，可是记录为空。<% 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 ifrs.closeset rs=nothing%>
对，还是我→_→之前一直有事，就把学ASP给放下了，今天再来问，还是以前的那段没弄明白。





Answer 1

跟if not(rs.bof and rs.eof) then没有关系 因为 不管它关系成不成立 都添加新的记录。

记录条数有增加，说明连接数据库及增加修改数据库没问题。但是 数据不能正常加入 说明 数据有问题。应该是哪个数据出错了。

可以在添加数据时 分别去掉每行来测试 在测试行 rs("。。。 前面加个’即：'rs("。。。 当去掉哪行数据可以正常输入。即可知道是哪行出错了。也就是哪个数据有问题。再根据出错行来修改 提交的数据或数据库的项目类型。

Answer 2

if not(rs.bof and rs.eof) then '有数据这一句话相当的矛盾

if not rs.eof then 足够

set rs=nothing 没那个必要
逻辑也有很大的问题，rs都为假了报EOF你还能操作他更新吗？
Else '没有数据则插入
这句用一个新的rs你把数据连接不能写成一个类吗？或者一个模块，直接写成函数不就行了