if request("run")="yes" then
id=trim(int(request("id")))
replytrue=trim(int(request("replytrue")))
' response.write replytrue
' response.end
password=trim(int(request("password")))
if password = 123 then
sqlstr = "select * from reply where replyid="&id&""
'response.write sql
'response.end
set rss = Server.CreateObject("adodb.recordset")
rss.open sqlstr,conn,3,3
qita=rss("qita")
Rss.update
Rss("replytrue")=replytrue
Rss.update
rss.close
sql = "select * from gbook where id="&id&""
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,3
Rs.delete
Rs.close
' set rs = Server.CreateObject("adodb.recordset")
' sql = "delete from gbook where id="&id
' conn.execute sql
set Rs = nothing
set Rss = nothing
conn.close
set conn = nothing
response.redirect "../index_user.asp"
response.end
elseif password = " " then
response.write "密码不能为空！！！"
response.end
else
response.write "密码错误!!!"
response.end
end if
end if
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/test/index/admin/del_user.asp, 第 21 行
[此贴子已经被作者于2006-12-14 10:50:02编辑过]
