📄 delgb.asp
字号:
<!--#include file="config.asp"-->
<%
dim conn
dim connstr
on error resume next
connstr=server.mappath(DB_gb)
set conn=server.createobject("ADODB.CONNECTION")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&connstr&""
if session("adminlogin")<>sessionvar then
response.write "<script>location=""guestbook.asp""</script>"
response.end
elseif session("adminlogin")=sessionvar then
url=request.ServerVariables("HTTP_REFERER")
opengb
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from gb where gb_id="&request.QueryString("id")
sql2="delete from reply where gb_id="&request.QueryString("id")
rs.open sql,conn,1,1
rs.open sql2,conn,1,1
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect url
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -