📄 admin_duanxinlist.asp
字号:
<!-- #include file="../conn.asp" -->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" SRC="../js/js.js"></SCRIPT>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="34">
<tr>
<td bgcolor="#1C3566" align="center"><b><a href="admin_duanxin.asp">
<font color="#FFFFFF">发送站内短信</font></a><font color="#FFFFFF"> |
</font><a href="admin_duanxinlist.asp" target="right">
<font color="#FFFFFF">全部站内短信</font></a><font color="#FFFFFF"> |
</font><a href="admin_duanxinlistall.asp" target="right">
<font color="#FFFFFF">站内短信（所有会员）</font></a><font color="#FFFFFF"> |
</font><a href="admin_duanxinlistone.asp" target="right">
<font color="#FFFFFF">站内短信（单个会员）</font></a></b></td>
</tr>
</table>
<br>
<script language="javascript">
function view(id){
var id;
window.open('admin_showduanxin.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=420');
}
</script>
<script language="JavaScript">
<!--
function views(id)
{
var filename=""+id;
window.open(filename,"显示窗口","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=580,height=420");
}
//-->
</script>
<script>
function test()
{
if(!confirm('您确认删除吗？')) return false;
}
</script>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form name="form" onsubmit="javascript:return JsIceb();" target="JsIceb" action="admin_duanxinlistDel.asp">
<tr bgcolor="#1C3566">
<td valign="middle"></td>
<td width="56%" height="30" align="center"><b>
<font color="#FFFFFF">留言内容</font></b></td>
<td width="14%" align="center"><b>
<font color="#FFFFFF">留言人</font></b></td>
<td width="20%" align="center"><b>
<font color="#FFFFFF">留言时间</font></b></td>
<td width="10%" align="center"><b>
<font color="#FFFFFF">管理</font></b></td>
</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from [Siti_duanxin] order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
Rs.PageSize=MaxPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof
%>
<tr>
<td align="center" valign="middle"><input type="checkbox" name="checked" value="<%=rs("id")%>"></td>
<td height="25">
<a href="javascript:view(<%=rs("id")%>)"><%=left(rs("content"),31)%></a></td>
<td align="center"><%=rs("custom")%></td>
<td align="center"><%=rs("dateandtime")%></td>
<td align="center">
<a href="admin_duanxindel.asp?id=<%=rs("id")%>" onclick="return test();">
删除</a>
<a href=javascript:views("admin_duanxinadd.asp?act=toone&custom=<%=rs("custom")%>")>回复</a>
</td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs.MoveNext
Loop
%><td height="24" align="center" colspan="8">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
</table>
<%End If
Rs.Close
Set Rs=Nothing
%> <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><%Response.Write ShowPage("admin_duanxinlist.asp",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -