📄 orders_msg.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
response.redirect "error.asp?error=001"
end if
%>
<%
'开始删除操作
if request("action")="del" then
id=request("id")
conn.execute "delete * from 56770_message where id=" & id
end if
%>
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr bgcolor="#FFCC33">
<td height="27" background="images/admin_bg_1.gif" bgcolor="#FFFFFF">.:: 您可以在这里进行站内短消息相关操作</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="98%" align="center">
<tr bgcolor="#B0CBE6" align="center">
<td bgcolor="#6699CC" width="7%">ID </td>
<td bgcolor="#6699CC" width="11%">发信帐号</td>
<td bgcolor="#6699CC" width="11%">接受帐号</td>
<td bgcolor="#6699CC" width="31%">投诉标题</td>
<td bgcolor="#6699CC" width="20%">日期</td>
<td colspan="2" bgcolor="#6699CC">相应操作</td>
</tr>
<%
sql="select * from 56770_message order by id desc"
if request("action")="inbox" then
sql="select * from 56770_message where to_user='"&session("admin_name")&"' order by id desc"
elseif request("action")="outbox" then
sql="select * from 56770_message where user_id='"&session("admin_name")&"' order by id desc"
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if not isempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<tr bgcolor="#B0CBE6" align="center">
<td width="7%"><%=rs("id")%></td>
<td width="11%"><%=rs("user_id")%></td>
<td width="11%"><%=rs("to_user")%></td>
<td width="31%"><a href="orders_remsg.asp?id=<%=rs("id")%>"><%=rs("subject")%></a></td>
<td width="20%"><%=rs("idate")%></td>
<td width="10%">[<a href="orders_msg.asp?action=del&id=<%=rs("id")%>&page=<%=cstr(pagecount)%>" onclick="checkclick('确定要删除吗？')">删除</a>]</td>
<td width="10%">
<%if rs("ifre")="0" then
response.write " [<a href=""orders_remsg.asp?id="&rs("id")&" "">回复</a>]"
else
response.write "[<font color=#FF0000>已回复</font>]"
end if
%>
</td>
</tr>
<%
rs.movenext
i=i+1
if i >= rs.pagesize then exit do
loop
%>
<tr bgcolor="#D6DFF7">
<form action="order_msg.asp" method="post">
<td height="35" colspan="7">
<div align="center"> 共 <b><%=rs.recordcount%></b> 张单, 页次:<b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,
当前从第
<%
if pagecount <= 1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>
张开始。
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="order_msg.asp?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="order_msg.asp?&page=<%=cstr(pagecount-1)%>">上一页</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="order_msg.asp?page=<%=cstr(pagecount-1)%>"> 上一页</a> <a href="order_msg.asp?page=<%=cstr(pagecount+1)%>">
下一页</a>
<% end if%>
直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="Go">
</div>
</td>
</form>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -