#22002/3/26 0:20:04
'设复选框name=delete,value=true
'--删除--
if request.form("delete")="true" then
if request("RT")="0" then ' or if rs("RT")=0
sqldel="delete from bbs where titleid=" & request("titleid") & " or id=" & request("id")
else
sqldel="delete from bbs where id=" & request("id")
end if
conn.Execute sqldel
'--编辑--
else
rs(0)=r1
rs(1)=r2
rs.update()
end if
非常大鱼