📄 admin_msg.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%">
<p align="center"><font color="#FFFF00">
<marquee width="564" height="15">珍惜每一分空间，及时删除无用的信息！</marquee>
</font></p>
</td>
</tr>
<tr>
<td width="100%">
<%
sql="select * from hand where name='管理员' order by riqi desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "没有会员给您发送短信！2秒钟后返回短信管理页面。"
response.write "<meta http-equiv=refresh content=""1;URL=admin_mesage.asp"">"
else
m=1
do while not rs.eof
neirong=rs("neirong")
riqi=rs("riqi")
isnew=rs("isnew")
fname=rs("fname")
id=rs("id")
%>
<form action=admin_msg.asp method=post name=msg<%=m%>>
<table width="98%" border="1" cellpadding="1" cellspacing="1" bordercolor="#CCC333" align=center>
<tr><td>
第<%=m%>条短信 <a href='admin_hand.asp?name=<%=fname%>'><img src=../images/small/xie.gif border=0>回复</a>
<a href='admin_delmsg.asp?delid=<%=id%>'><img src=../images/small/del.gif border=0>删除</a> 来自：<font color=yellow><%=fname%></font> <img src=../images/small/xie.gif border=0><%=riqi%>
<hr color="#CCC333"><%=neirong%>
</td></tr>
</table>
</form>
<%
rs.movenext
m=m+1
loop
end if
rs.close
set rs=nothing
%>
</td></tr></table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -