a_del.asp
来自「java_blog是一个非常好的blog」· ASP 代码 · 共 63 行
ASP
63 行
<%@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 [admin] where id="&id
rs.open sql,conn,2,3
rs.delete
rs.update
%>
<html>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<head>
<STYLE type="text/css">
body {
scrollbar-face-color: #FF99CC;
scrollbar-shadow-color: #FFFFFF;
scrollbar-highlight-color: #FFFFFF;
scrollbar-3dlight-color: #FF99CC;
scrollbar-darkshadow-color: #FF99CC;
scrollbar-track-color: #FFFFFF;
scrollbar-arrow-color: #0066CC;
}
</STYLE>
<title>删除成功！</title>
<link href="skin_1.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {margin-top: 50px;}
-->
</style>
<meta http-equiv="refresh" content="2;URL=a_main.asp">
<style type="text/css">
<!--
.zit {
font-size: 12px;
}
-->
</style>
</head>
<body>
<br><br><br><br><div align="center" class="zit"><font color="#FF0000">删除成功...<br>2秒钟后自动跳转到:</a><a href="a_main.asp">[管理页面]</a></font></div>
</body>
</html>
<%
else
response.Redirect("a_user.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 + =
减小字号Ctrl + -
显示快捷键?