【【【【程序执行到这里报错，就花1分钟来拿20分】】】】

[lemontree197977]

主表n ，从表n_log，由于以前未加级联删除，只是主表信息删了从表信息没有删除，我现在利用程序对n_log进行删除，我加入被@@@@包含的程序就报错:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242 错误 '80020009'

发生意外。

/test.asp，行12

**************************************************************
<!--#include file="admi_datalink.asp"-->
<%
sql="select id1,id from n_log"
set rs=server.createobject("adodb.Recordset")
rs.open sql,conn,1,3
if not rs.eof then

for i=1 to rs.recordcount
sqla="select id from n where id="&rs("id1")
set rsa=server.createobject("adodb.Recordset")
rsa.open sqla,conn,1,1
if not rsa.eof then
@@@@@@@@@@@@@@@@@@添加这两句就报错
sqlb="delete from note1_log where id="&rs("id")
conn.execute(sqlb)
@@@@@@@@@@@@@@@@@@
end if
rsa.close
set rsa=nothing

rs.movenext
next
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write("完成")
%>

[paulone]

id="&rs("id")
-->
id="&rs("id")&"

[paulone]

晕~


sqlb="delete * from note1_log where id="&rs("id")&""

[zhanghongwen]

sql="select id1,id from n_log"
set rs=server.createobject("adodb.Recordset")
rs.open sql,conn,1,3
这里是CONN打开n_log表,
还没关闭这里又来一个sqlb="delete from note1_log where id="&rs("id")
conn.execute(sqlb)
不错才怪.

[zhanghongwen]

噢,不好意思,看错了,不是同一个表.
想问一下,你的CONN在哪里创建了?

[lemontree197977]

paulone(唐伯虎点蚊香) ,我的id1、id都是数字加不加&""没关系

◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

zhanghongwen(流氓蚊子，那你说怎么解决，我现在想对n_log表中的id1在n表进行检索，如果找到相关记录不操作，如果找不到就删除改记录

[lemontree197977]

<!--#include file="admi_datalink.asp"-->
◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
<%
db="db/data_web.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>

[zhanghongwen]

每操作一次数据库都创建一个对象,这样虽然麻烦,但不容易出错.

[zhanghongwen]

<!--#include file="admi_datalink.asp"-->
<!--#include file="conn.asp"---->
<%

set rs=server.createobject("adodb.Recordset")
sql="select id1,id from n_log"
rs.open sql,conn,1,3
if not rs.eof then

for i=1 to rs.recordcount
set rsa=server.createobject("adodb.Recordset")
sqla="select id from n where id="&rs("id1")
rsa.open sqla,conn,1,1
if not rsa.eof then

set rsb=server.createobject("adodb.Recordset")
sqlb="delete from note1_log where id="&rs("id")
rsb.open sqlb,conn,1,3
end if
rsa.close
set rsa=nothing

rs.movenext
next
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write("完成")
%>

[zhanghongwen]

conn.asp代码

<%
db="data.asp"
set rs=server.createobject("adodb.recordset")
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr
%>

[yelanne]

你现在是找到相关记录操作，并删除该记录