现在有个语句问题:将一条搜索出来的语句通过form提交,提交页要先把这条信息插入到某个表里,然后把搜索出来的信息从原表中删除

Question

接上：
rsadd.close:set rs=nothing
'下面删除来电信息表phonedata中的该条信息  
rsadd.close
':set rsadd=nothing 后面继续用rsadd这个Recorset
'set rsdel=Server.CreateObject("Adodb.Recordset")这个不要，沿用原来的Recorset：rsadd
sqladd="SELECT * FROM phonedata" 'string也是，一般定义一个connection,一个RecordSet够用，不用定义多个RecordSet,strsql也是定义一个即可，定义太多变量，程式不够简洁
qladd="SELECT * FROM phonedata"
rsadd.open sqladd,conn,1,3
if not rsadd.eof then '判断存在才可以删除
sqladd = "delete from phonedata where WHERE (maincall= '"&maincall&"') AND (begincalltime = '"& begincalltime &"') "
conn.execute sqladd ---删除直接用connnetion 来执行，因为你不需要返回值，所以这样即可
end if
rsadd.close --关闭RecordSet
set rsadd = nothing   --清空释放资源
conn.close  --关闭connnetion
set conn  = nothing--清空释放资源%> 

Answer 1

做成sp，或者用vb写成dll,效率都比较好，但是调试不方便，如果只是简单插入，删除，直接在客户端提交命令，传数据给web server，然后由web server提交给database server也是未尝不可

Answer 2

搜索页面的信息列表我是这样写的:
set rs=Server.CreateObject("Adodb.Recordset")
sql="SELECT top 1 maincallkind, subbecalleds, maincall, becalled, begincalltime, endcalltime, money from phonedata where (subbecalleds='"& subbecall&"') order by begincalltime desc"
rs.open sql,conn,1,1那点登记提交后,提交页要执行:删除phonedata表中的这条信息语句我这么写没执行,到底该怎么写呢?
sqladd="SELECT * FROM phonedata"
rsadd.open sqladd,conn,1,3
if not rsadd.eof then 
sqladd = "delete from phonedata WHERE (subbecalleds= '"&subbecalleds&"')"
conn.execute sqladd 
end if
rsadd.close 
set rsadd = nothing
conn.close  
set conn  = nothing

Answer 3

if not rsadd.eof then 
response.write "Yes"
sqladd = "delete from phonedata WHERE (subbecalleds= '"&subbecalleds&"')"
conn.execute sqladd 
else
response.write "Yes"
end if
response.end()
那就加上几句response语句测试下罗