📄 w_del.asp

📁 java_blog是一个非常好的blog

💻 ASP

字号:

<%@LANGUAGE="VBScript" codepage="936"%>
<%
'**********************************************************
' RanRan 1.0 Free        Power by 21wan.cn
' Email:shiluo@lianluo.com       OICQ：1019257
' 网站: http://www.21wan.cn   演示：http://www.21wan.cn
'**********************************************************
if session("admin")<>"" and Request.Cookies("admin")<>"" then%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sql="select * from [work] 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)">
<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_works.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_works.asp">[作品管理]</a></font></div>
</body>
</html>
<%
else
response.Redirect("a_admin.asp.asp")
end if
'**********************************************************
' RanRan 1.0 Free        Power by 21wan.cn
' Email:shiluo@lianluo.com       OICQ：1019257
' 网站: http://www.21wan.cn   演示：http://www.21wan.cn
'**********************************************************
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -