Question

asp + access 查询后根据条件添加信息。

<%
Set rs=server.createobject("adodb.recordset")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("visa/data/chinesestudent33q.mdb")Sql="select * from student where godate=#"py"# or place='"&pb&"'"rs.open sql,conn,3,3
if not(rs.bof and rs.eof) then '有数据 rs("username")=pn '姓名 rs("godate")=py '出生日期 rs("place")=pb '出生地 rs("number")=ps '学号 rs("tel")=pd '电话 rs.updata '依题意入库Else '没有数据则插入 response.write "数据库内暂时没有与你相同的信息" rs.addnew rs("username")=pn '姓名 rs("godate")=py '出生日期 rs("place")=pb '出生地 rs("number")=ps '学号 rs("tel")=pd '电话 rs.updata '依题意入库 end ifrs.closeset rs=nothing
%>
没有财富值啦，大神帮帮忙吧

Answer 1

Sql="select * from student where godate=#" & py & "# or place='" & pb & "'"

追问

Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'conn'
/ChineseStudent.asp，行 4

非常感谢。 但是上面又出现了这个问题，我真的不知道怎么改了，看不出来哪里有缺，要怎么办？

追答

Set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("visa/data/chinesestudent33q.mdb")