📄 qmadmin_message_list.asp
字号:
<!-- #include file="../inc/config.asp" -->
<!-- #include file="Login_Check.asp" -->
<html>
<LINK href="../css/admin.css" type=text/css rel=stylesheet>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言列表</title>
</head>
<script language=Javascript>
function checkAll(e, itemName)
{
var aa = document.getElementsByName(itemName);
for (var i=0; i<aa.length; i++)
aa[i].checked = e.checked;
}
function notcheckAll(e, messageName){
var aa = document.getElementsByName(messageName);
for (var i=0; i<aa.length; i++)
aa[i].checked = !e.checked;
}
function checkItem(e, allName)
{
var all = document.getElementsByName(allName)[0];
if(!e.checked) all.checked = false;
else
{
var aa = document.getElementsByName(e.name);
for (var i=0; i<aa.length; i++)
if(!aa[i].checked) return;
all.checked = true;
}
}
function GetId(PageMun){
var a="";
for(var i=0;i<=mm.length-1;i++){
if(mm[i].checked == true){
a=+mm[i].value+","+a;
}
}
if (confirm('确认删除选中的列项？'))
location.href="All_Delete.asp?mm="+a+"&page="+PageMun;
else return;
}
</script>
<body>
<p> </p>
<table cellspacing="0" width="96%" align="center">
<tr>
<td width="5%" id="td2">选择</td>
<td width="10%" id="td1">ID</td>
<td width="15%" id="td1">留言者姓名</td>
<td width="20%" id="td1">留言时间</td>
<td width="10%" id="td1">回复状态</td>
<td width="20%" id="td1">回复时间</td>
<td width="15%" id="td3">操作</td>
</tr>
<%
sqlstr="select * from [Message] order by qmmessage_id desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
rs.pagesize=12
page_num=message_count/12
page_now=1
if trim(request.QueryString("page"))<>"" then
page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
page_now=1
end if
rs.absolutepage=page_now
i=1
while (not rs.eof) and i<13
%>
<tr>
<td id="td5"><input type="checkbox" name="mm" value="<%=rs("qmmessage_id")%>" onClick="checkItem(this, 'mmAll')"></td>
<td id="td4"><%=rs("qmmessage_id")%></td>
<td id="td4"><%=rs("qmmessage_usname")%></td>
<td id="td4"><%=rs("qmmessage_usadddate")%></td>
<%if rs("qmmessage_admreinfo")<>"" then%>
<td id="td4">已回复</td>
<td id="td4"><%=rs("qmmessage_admredate")%></td>
<td id="td6"><a href="qmadmin_Message_Return.asp?message_id=<%=rs("qmmessage_id")%>">查看</a>|<a href="#"onclick="javascript:if (confirm('确认删除该留言信息?')) href='delete.asp?n=3&id=<%=rs("qmmessage_id")%>';else return;">删除</a></td>
<%else%>
<td id="td4"><font color=#FF0000>待回复</font></td>
<td id="td4"><font color=#FF0000>等待管理员回复中...</font></td>
<td id="td6"><a href="qmadmin_Message_Return.asp?message_id=<%=rs("qmmessage_id")%>">回复</a>|<a href="#"onclick="javascript:if (confirm('确认删除该留言信息?')) href='delete.asp?n=3&id=<%=rs("qmmessage_id")%>';else return;">删除</a></td>
<%end if%>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr valign="bottom">
<td colspan="10" id="td15"><br>
选择：<a href="#" name=mmAll onClick="notcheckAll(this, 'mm')">全选</a>|<a href="#" name=mmAll onClick="checkAll(this, 'mm')">不选</a> <a style="border:solid 1px; border-color:#428eff;" href="#" onClick="GetId(<%=page_now%>)">删除选中</a>
当前第<%=page_now%>页
<%if page_now=1 then%>首页
<%else%>
<a href="qmadmin_Message_List.asp?page=1">首页</a>
<%end if%>
<%if page_now>1 and rs.pagecount>1 then%>
<a href="qmadmin_Message_List.asp?page=<%=page_now-1%>">上一页</a>
<%else%>上一页
<%end if%>
<%if page_now<rs.pagecount then%>
<a href="qmadmin_Message_List.asp?page=<%=page_now+1%>">下一页</a>
<%else%>下一页
<%end if%>
<%if page_now<>rs.pagecount then%>
<a href="qmadmin_Message_List.asp?page=<%=rs.pagecount%>">尾页</a>
<%else%>尾页
<%end if%>
共<%=rs.pagecount%>页/<%=message_count%>位
转到:
<input name="Num" type="text" size="2"> 页
<input type="button" value="GO" class="class6" onClick="javascript:location.href='qmadmin_Message_List.asp?page='+Num.value">
<br><br></td>
</tr>
<%else%>
<tr>
<td colspan="9" id="td7">暂无留言！</td>
</tr>
<%
end if
rs.close
%>
</table>
<p></p>
<p></p></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -