?? admindatabasedel.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
id=request("selAnnounce")
subjectview=request("subjectview")
typeadd=request("typeadd")
id=split(id,",")
i=ubound(id)
for j=0 to i
sqldel1="select * from userdata where tmid="& cint(id(j))
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2
do while not rsdel1.eof
if rsdel1("isread")=1 then
sqldel2="SELECT * from userdataread where tmid="&rsdel1("tmid")&" order by readid "
set rsdel2=server.createobject("adodb.recordset")
rsdel2.open sqldel2,conn,3,2
do while not rsdel2.eof
rsdel2.delete
rsdel2.update
rsdel2.movenext
loop
end if
rsdel1.delete
rsdel1.update
rsdel1.movenext
loop
sqldel11="select * from tbtk where tmid="& cint(id(j))
set rsdel11=server.createobject("adodb.recordset")
rsdel11.open sqldel11,conn,3,2
do while not rsdel11.eof
if rsdel11("isread")=1 then
sqldel12="SELECT * from tbread where tmid="&rsdel11("tmid")&" "
set rsdel12=server.createobject("adodb.recordset")
rsdel12.open sqldel12,conn,3,2
do while not rsdel12.eof
rsdel12.delete
rsdel12.update
rsdel12.movenext
loop
end if
rsdel11.delete
rsdel11.update
rsdel11.movenext
loop
sqldel13="SELECT * from tbselectpaper where kcid="& cint(id(j))
set rsdel13=server.createobject("adodb.recordset")
rsdel13.open sqldel13,conn,3,2
do while not rsdel13.eof
rsdel13.delete
rsdel13.update
rsdel13.movenext
loop
next
response.redirect "admindatabase.asp?success=刪 除 成 功!&subjectview="&subjectview&"&typeadd="&typeadd
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -