📄 list.asp
字号:
<!-- #include file = "../../include/asphead.asp" -->
<!-- #include file = "../../include/function.asp" -->
<%CheckUser()%>
<link href="../../include/main.css" rel="stylesheet" type="text/css">
<script src="../../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function View(MsgID) {
if(window.showModalDialog ("frame.asp?Target=view.asp?MsgID=" + MsgID+JoinChar+MsgIDs.value,"","dialogwidth:550px;dialogheight:360px;Status:0;center:1;resizable=1;")==true)
{
window.navigate("list.asp");
}
}
function window_onload() {
window.parent.RightHead.frmData.CurPage.value=CurPage.value;
window.parent.RightHead.PageNavigate.innerHTML=PageNavigate.value;
if(MsgCountForInbox.value>0)
window.parent.LeftPanel.spanInbox.innerHTML="收件箱("+MsgCountForInbox.value+")"
else
window.parent.LeftPanel.spanInbox.innerHTML="收件箱"
if(MsgCountForDelbox.value>0)
window.parent.LeftPanel.spanDelbox.innerHTML="回收站("+MsgCountForDelbox.value+")"
else
window.parent.LeftPanel.spanDelbox.innerHTML="回收站"
window.parent.RightHead.chkAll.status=false;
if(CurPage.value>0)
{
window.parent.RightHead.btnDel.disabled =false;
try
{
parent.RightPanel.rows=parent.RightHead.RightHeadTable.clientHeight + ",*";
}
catch(e)
{
}
}
else
{
window.parent.RightHead.btnDel.disabled =true;
try
{
parent.RightPanel.rows=parent.RightHead.RightHeadTable.clientHeight + ",*";
}
catch(e)
{
}
}
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim i
dim strOrderBy,Success
dim CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,MsgIDs,CanDeleteMsgIDs
dim MsgGroupID,MsgCount,MsgData
MsgGroupID=Request.QueryString("MsgGroupID")
if MsgGroupID="" then
MsgGroupID=Request.Cookies("MyFold")("MsgGroupID")
if MsgGroupID="" then
MsgGroupID=MsgGroupReceived_ID
end if
end if
Response.Cookies("MyFold")("MsgGroupID")=MsgGroupID
Response.Cookies("MyFold").Expires = CookieLife
if instr(1,Request.ServerVariables("HTTP_REFERER"),"listhead.asp")>0 then
'来自于排序、翻页操作
strOrderBy=Request.Form("OrderBy")
CurPage=Request.Form("CurPage")
WExcel.GetMsgList cint(UserID),cint(MsgGroupID),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,MsgIDs,CanDeleteMsgIDs,MsgCount,MsgData
Response.Cookies("MyFold")("MsgOrderBy")=strOrderBy
Response.Cookies("MyFold")("MsgCurPage")=CurPage
Response.Cookies("MyFold").Expires = CookieLife
else
strOrderBy=Request.Cookies("MyFold")("MsgOrderBy")
CurPage=1
WExcel.GetMsgList cint(UserID),cint(MsgGroupID),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,MsgIDs,CanDeleteMsgIDs,MsgCount,MsgData
end if
dim MsgCountForInbox,MsgCountForDelbox
WExcel.GetUnreadMsgCount cint(UserID),MsgCountForInbox,MsgCountForDelbox
CheckErr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" LANGUAGE="javascript" onload="return window_onload()">
<%if MsgCount>0 then%>
<table width=100% cellspacing=1 bgcolor=999999>
<%
for i=1 to MsgCount
Response.Write MsgData(i-1)
next
%>
</table>
<%end if%>
<input TYPE="hidden" NAME="CurPage" value="<%=CurPage%>">
<input TYPE="hidden" NAME="NoField" value="<%=NoField%>">
<input TYPE="hidden" NAME="PageNavigate" value="<%=PageNavigate%>">
<input TYPE="hidden" NAME="MsgIDs" value="<%=MsgIDs%>">
<input TYPE="hidden" NAME="RowIDs" value="<%=MsgIDs%>">
<input TYPE="hidden" NAME="CanDeleteMsgIDs" value="<%=CanDeleteMsgIDs%>">
<input TYPE="hidden" NAME="MsgCountForInbox" value="<%=MsgCountForInbox%>">
<input TYPE="hidden" NAME="MsgCountForDelbox" value="<%=MsgCountForDelbox%>">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -