大家帮帮忙！更新不了数据呀！

internet007 2002-04-16 10:54:16

错误类型：
ADODB.Recordset (0x800A0E7D)
/topic/topic.asp, 第 28 行

就是（rs.open sql,conn,1,3）这句有错误！

程序如下：

<%
dim rs
dim sql
dim name01
dim type01
dim address01
dim title01
set rs=server.createobject("adodb.recordset")
set name01=request.form("name")
set address01=request.form("email")
set type01=request.form("s1")
set title01=request.form("title")
if(name01="" or type01="" or address01="" or title01="") then
response.write "<html>"
response.write "<head></head>"
response.write "<body bgColor=#006699 >"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
response.write "<tr><td width=""100%"" align=""center""><font color=""#FFFF00"" face=""楷体_GB2312"" size=""2""><b>添加数据失败!</b></font></td></tr>"
response.write "<tr><td width=""100%"" align=""center""><font color=""#FFFFFF"" face=""楷体_GB2312"" size=""2""><b>姓名、E-MAIL(电子邮件)、主题、留言，以上四项内容不能为空</b></font></td></tr>"
response.write "<tr><td width=""100%"" align=""center""><font color=""#FFFFFF"" face=""楷体_GB2312"" size=""2""><b>或者你输入了一个无效的E-MAIL地址</b></font></td></tr>"
response.write "<tr><td width=""100%"" align=""center""><input type=""button"" name=""submit"" value=""重新填写"" onclick=""javascript:top.location='../topic/topic.htm'"">"
response.write "</td></tr></table></body></html>"
response.end
end if
sql="insert into photo (名字,地址,标题,内容) values('"&name01&"','"&address01&"','"&title01&"','"&type01&"')"
'conn.execute(sql)
rs.open sql,conn,1,3
set rs=nothing
set conn=nothing
response.write "<html>"
response.write "<head></head>"
response.write "<body bgColor=#006699 >"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
response.write "<tr><td width=""100%"" align=""center""><font color=""#FFFF00"" face=""楷体_GB2312"" size=""2""><b>成功添加记录!</b></font></td></tr>"
response.write "<tr><td width=""100%"" align=""center""><font color=""#FFFFFF"" face=""楷体_GB2312"" size=""2""><b>是否继续添加记录？</b></font></td></tr>"
response.write "<tr><td width=""100%"" align=""center""><input type=""button"" name=""submit"" value=""继续"" onclick=""javascript:top.location='../topic/topic.htm'"">"
response.write " "
response.write "<input type=""reset"" value=""返回"" name=""B1"">"
response.write "</td></tr></table></body></html>"
response.end
%>

大家帮帮忙解决！

...全文

36 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

sxd77 2002-04-17

打赏
举报

同意上面的兄弟,将sql先用response.write sql 打出来,看有没有错,另
提示是 rs.open sql,conn,1,3 出错,他包含了两个变量 sql 和 conn
好好查一下,游标设置成 1,1 试一下
将你的 Connstr 设置成:
set Connstr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("/photo.mdb")
试一下

Arthurz 2002-04-17

打赏
举报

注意调试：
在SQL语句执行前先，将rs.open sql,conn,1,3注释掉
response.write name01　等需要插入数据库里的变量
看看传来的数据是否正确，然后再考虑别的问题

audny 2002-04-17

打赏
举报

看看数据的属性，可以可以everyone可以写入。当然，要数据库放在NTFS分区上才行

qisanyou 2002-04-17

打赏
举报

这样再试试:

........
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="insert into photo (名字,地址,标题,内容) values('"&name01&"','"&address01&"','"&title01&"','"&type01&"')"
conn.execute(sql)
set rs=nothing
set conn=nothing

internet007 2002-04-16

打赏
举报

会不会是我的conn.asp 文件里面有错呢？

conn.asp
<%
dim conn
dim connstr
set conn=server.createobject("ADODB.CONNECTION")
Connstr="DBQ="+server.mappath("/photo.mdb")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.Open connstr
%>

macro_love 2002-04-16