📄 g_del.asp
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<%
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ:500985
' 网站: http://www.zgrq.com 演示:http://www.zgrq.com
'**********************************************************
if session("admin")<>"" then%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sql="select * from gbook where id="&id
rs.open sql,conn,2,3
rs.delete
rs.update
%>
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<STYLE type="text/css">
.lg {
background-color: #EFEFEF;
border: 1px solid #666666;
}
</STYLE>
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>删除成功!</title>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {margin-top: 50px;}
.zit {
font-size: 12px;
}
-->
</style>
<meta http-equiv="refresh" content="2;URL=a_gbook.asp">
</head>
<body>
<br><br><br><br><br><div align="center" class="zit"><font color="#FF0000">删除成功,2秒钟后自动跳转到:</a><a href="a_gbook.asp">[留言管理]</a></font></div>
</body>
</html>
<%
else
response.Redirect("a_admin.asp.asp")
end if
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ:500985
' 网站: http://www.zgrq.com 演示:http://www.zgrq.com
'**********************************************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -