⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_delmsg.asp

📁 非常棒的网上购物系统www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn
💻 ASP
字号:
🔍 
<!--#include file="../Comm/subconn.asp"-->
<%
dim cls
if session("admin")="" then
	Response.Redirect("admin.asp")	
else
	if session("flag")<>"0" then
	
		cls = Instr(session("flag"), "client")
		if cls <= 0 then
	%>
		<script language="javascript">
			if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
			  location.href="admin.asp";
			else
			  location.href="quit.asp";
		</script>
	<%
		end if
	end if
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>站内消息</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
.b{color:#cccc99;font-size:10pt;border:dotted 1px}
--></style>
<script language=javascript>
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
-->
</script>

<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=cls"">

</head>

<body topmargin="20" bgcolor="#336699" text=#ffffff>

<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="760" height="150" bgcolor="#336699" align="center">
    <tr><td width=125 valign="top">
<!--#include file="admin_left.asp"--> 
      </td>
      <td  valign="top">      
        <table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
      <tr><td width="100%">当前位置：<a href="admin.asp">网站管理中心</a>--站内短信</td>
          </tr>
          <tr>
            <td width="100%">

<%
dim tm
tm=request.querystring("action")

	if tm="" then      
	id=request("delid")
	StrSQL="delete from hand where id="&id
	conn.Execute StrSQL    
	conn.close
	response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;短信成功删除！<br>&nbsp;&nbsp;"
	response.write "<meta http-equiv=refresh content=""1;URL=admin_msg.asp"">"    
	end if



	if tm="all" then      
	StrSQL="delete from hand"
	conn.Execute StrSQL    
	conn.close
	response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;短信成功删除！<br>&nbsp;&nbsp;"
	response.write "<meta http-equiv=refresh content=""1;URL=admin_mesage.asp"">"    
	end if


	if tm="week" then      
	StrSQL="delete from hand where riqi<now()-7"
	conn.Execute StrSQL    
	conn.close
	response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;短信成功删除！<br>&nbsp;&nbsp;"
	response.write "<meta http-equiv=refresh content=""1;URL=admin_mesage.asp"">"    
	end if

%>     



</td></tr></table>
</td></tr>

	</table>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -