📄 delnes.asp
字号:
<%if session("password")<>"" then%>
<%
arrdel=Request("id")
kind=session("kind")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select "&kind&" from bbs1 where id in ("&arrdel&")"
rs.Open sql,conn,1,1
session("mes")=rs(kind)
rs.close
set rs=nothing
set conn=nothing
%>
<!--#include file="conn.asp"-->
<%
'Response.Write arrdel
sql="delete from bbs1 where id in ("&arrdel&")"
'Response.Write sql
conn.Execute sql
set conn=nothing
%>
<%
response.write"<SCRIPT language=JavaScript>alert('删除成功.刷新才可以看到效果!');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.Redirect "seadmin.asp?kind="&session("kind")&"&"&session("kind")&"="&session("mes")
response.end
%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -