📄 searchlistmail.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim ei
set ei = server.createobject("easymail.InfoList")
dim addsortstr
sortstr = request("sortstr")
sortmode = request("sortmode")
if sortmode = 1 then
addsortstr = "&sortstr=" & sortstr & "&sortmode=1"
sortmode = true
else
addsortstr = "&sortstr=" & sortstr & "&sortmode=0"
sortmode = false
end if
if sortstr <> "" then
ei.SetSort sortstr, sortmode
end if
ei.timeMode = 2
'-----------------------------------------
dim pf
set pf = server.createobject("easymail.PerFolders")
pf.Load Session("wem")
username = Session("wem")
if trim(request("mailsearch")) <> "" then
Session("SearchStr") = trim(request("mailsearch"))
end if
ei.searchstring = Session("SearchStr")
ei.LoadMailBox username, "empty"
allnum = ei.getMailsCount
if request("page") = "" then
page = 0
else
page = CInt(request("page"))
end if
allpage = CInt((allnum - (allnum mod pageline))/ pageline)
if allnum mod pageline <> 0 then
allpage = allpage + 1
end if
if page >= allpage then
page = allpage - 1
end if
if page < 0 then
page = 0
end if
if allpage = 0 then
allpage = 1
end if
gourl = "searchlistmail.asp?page=" & page & "&" & getGRSN()
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
<%
dim forpn
forpn = ""
i = 0
do while i < allnum
ei.getMailInfo allnum - i - 1, idname, isread, priority, sendMail, sendName, subject, size, etime
forpn = forpn & Chr(9) & idname
idname = NULL
isread = NULL
priority = NULL
sendMail = NULL
sendName = NULL
subject = NULL
size = NULL
etime = NULL
i = i + 1
loop
%>
parent.f1.temp.value="<%=forpn %>"
function setsort(addsortstr){
<% if sortmode = false then %>
location.href = "<%=gourl %>" + "&sortstr=" + addsortstr + "&sortmode=1";
<% else %>
location.href = "<%=gourl %>" + "&sortstr=" + addsortstr + "&sortmode=0";
<% end if %>
}
function checkall(check) {
var i = 0;
var theObj;
for(; i<<%
if allnum > pageline then
if page > 0 then
response.write allnum - page * pageline
else
response.write pageline
end if
else
response.write allnum
end if
%>; i++)
{
theObj = eval("f1.check" + i);
if (theObj != null)
theObj.checked = check;
}
}
function del() {
if (ischeck() == true)
{
f1.gourl.value = "<%=gourl & addsortstr %>";
f1.mode.value = "del";
f1.submit();
}
}
function realdel() {
if (ischeck() == true)
{
f1.gourl.value = "<%=gourl & addsortstr %>";
f1.mode.value = "del";
f1.isremove.value = "1";
f1.submit();
}
}
function move() {
if (ischeck() == true)
{
f1.gourl.value = "<%=gourl & addsortstr %>";
f1.mode.value = "move";
f1.submit();
}
}
function ischeck() {
var i = 0;
var theObj;
for(; i<<%
if allnum > pageline then
if page > 0 then
response.write allnum - page * pageline
else
response.write pageline
end if
else
response.write allnum
end if
%>; i++)
{
theObj = eval("f1.check" + i);
if (theObj != null)
if (theObj.checked == true)
return true;
}
return false;
}
function allcheck_onclick() {
if (document.f1.allcheck.checked == true)
checkall(true);
else
checkall(false);
}
function selectpage_onchange()
{
location.href = "searchlistmail.asp?<%="mode=" & Server.URLEncode(mb) & addsortstr & "&" & getGRSN() %>&page=" + f1.page.value;
}
//-->
</SCRIPT>
<BODY>
<FORM ACTION="mulmail.asp" METHOD="POST" name="f1">
<INPUT NAME="mode" TYPE="hidden">
<INPUT NAME="gourl" TYPE="hidden">
<br>
<table width="98%" border="0" align="center" bgcolor="#EFF7FF" cellspacing="0" style="border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<tr>
<td align="center" nowrap>[<font color="#FF3333"><%=allnum %></font> mail(s) found] [<%
response.write page + 1 & "/" & allpage
%>] <%
if page - 1 < 0 then
response.write "<font face='Webdings' style='font-size:13px'>9</font> "
response.write "<font face='Webdings' style='font-size:13px'>7</font> "
else
response.write "<a href=""searchlistmail.asp?mode=" & Server.URLEncode(mb) & "&page=" & 0 & addsortstr & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>9</font></a> "
response.write "<a href=""searchlistmail.asp?mode=" & Server.URLEncode(mb) & "&page=" & page - 1 & addsortstr & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>7</font></a> "
end if
%><select name="page" class="drpdwn" size="1" LANGUAGE=javascript onchange="selectpage_onchange()">
<%
i = 0
do while i < allpage
if i <> page then
response.write "<option value=""" & i & """>" & i + 1 & "</option>"
else
response.write "<option value=""" & i & """ selected>" & i + 1 & "</option>"
end if
i = i + 1
loop
%></select>
<%
if ((page+1) * pageline) => allnum then
response.write "<font face='Webdings' style='font-size:13px'>8</font> "
else
response.write "<a href=""searchlistmail.asp?mode=" & Server.URLEncode(mb) & "&page=" & page + 1 & addsortstr & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>8</font></a> "
end if
if page + 1 >= allpage then
response.write "<font face='Webdings' style='font-size:13px'>:</font> "
else
response.write "<a href=""searchlistmail.asp?mode=" & Server.URLEncode(mb) & "&page=" & allpage - 1 & addsortstr & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>:</font></a> "
end if
%>
<font class="s" color="#104A7B"><b><a href="javascript:del()">Delete</a></b></font>
<font class="s" color="#104A7B"><b><a href="javascript:realdel()">Expunge</a></b></font>
<font class="s" color="#104A7B"><b><a href="javascript:move()">Move to:</a></b></font>
<select name="mto" class="drpdwn" size="1">
<option value="del">Trash</option>
<option value="in">Inbox</option>
<option value="out">Draft</option>
<option value="sed">Sent</option>
<%
pfNumber = pf.FolderCount
i = 0
do while i < pfNumber
spfname = pf.GetFolderName(i)
response.write "<option value=""" & spfname & """>" & server.htmlencode(spfname) & "</option>"
spfname = NULL
i = i + 1
loop
%>
</select>
</td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="3%" nowrap height="28" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><a href="javascript:setsort('Priority')"><img src='images\high.gif' border='0' align='absmiddle'></a><%
if sortstr = "Priority" then
if sortmode = true then
response.write "<a href=""javascript:setsort('Priority')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('Priority')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
end if
end if
%></div>
</td>
<td width="5%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><font class="s" color="#104A7B"><b><a href="javascript:setsort('Read')">Status</a></b></font><%
if sortstr = "Read" then
if sortmode = true then
response.write "<a href=""javascript:setsort('Read')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('Read')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
end if
end if
%></div>
</td>
<td width="6%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><input type="checkbox" id="allcheck" LANGUAGE=javascript onclick="return allcheck_onclick()"></div>
</td>
<td width="17%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><font class="s" color="#104A7B"><b><a href="javascript:setsort('Sender')">Sender</a></b></font> <%
if sortstr = "Sender" then
if sortmode = true then
response.write "<a href=""javascript:setsort('Sender')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('Sender')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
end if
end if
%></div>
</td>
<td width="29%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><font class="s" color="#104A7B"><b><a href="javascript:setsort('Subject')">Subjec</a></b></font> <%
if sortstr = "Subject" then
if sortmode = true then
response.write "<a href=""javascript:setsort('Subject')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('Subject')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
end if
end if
%></div>
</td>
<td width="27%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><font class="s" color="#104A7B"><b><a href="javascript:setsort('Date')">Date</a></b></font> <%
if sortstr = "" or sortstr = "Date" then
if sortmode = true then
response.write "<a href=""javascript:setsort('Date')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('Date')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
end if
end if
%></div>
</td>
<td width="9%" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center"><font class="s" color="#104A7B"><b><a href="javascript:setsort('Size')">Size</a></b></font> <%
if sortstr = "Size" then
if sortmode = true then
response.write "<a href=""javascript:setsort('Size')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('Size')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
end if
end if
%></div>
</td>
</tr>
<%
i = page * pageline
li = 0
do while i < allnum and li < pageline
ei.getMailInfoEx allnum - i - 1, idname, isread, priority, sendMail, sendName, subject, size, etime, mstate
if subject = "" then
subject = "[Empty]"
end if
xmsp = priority
if xmsp = "High" then
xmsp = "<img src='images\high.gif' border='0' alt='High'>"
elseif xmsp = "Low" then
xmsp = "<img src='images\low.gif' border='0' alt='Low'>"
else
xmsp = " "
end if
if isread = true then
%>
<tr height="26" style='border-bottom:1px #8CA5B5 solid;'>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><%=xmsp %></td>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><%= "<a href=""showmail.asp?filename=" & idname & "&count=" & i & "&" & getGRSN() & "&gourl=" & Server.URLEncode(gourl & addsortstr) & """>" %>
<%
if mstate = 0 then
%>
<img src="reply.gif" alt="Replied Mail" border=0>
<%
elseif mstate = 1 then
%>
<img src="forward.gif" alt="Forwarded Mail" border=0>
<%
elseif mstate = 3 then
%>
<img src="rsysmail.gif" alt="System Mail Marked Read" border=0>
<%
else
%>
<img src="mail.gif" alt="Read Mail" border=0>
<%
end if
%>
</a></td>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><input type="checkbox" name="check<%=li %>" value="<%=idname %>"></td>
<td style='border-bottom:1px #8CA5B5 solid;'><%=server.htmlencode(sendName) %> </td>
<td style='border-bottom:1px #8CA5B5 solid;'><%= "<a href=""showmail.asp?filename=" & idname & "&count=" & i & "&" & getGRSN() & "&gourl=" & Server.URLEncode(gourl & addsortstr) & """>" & server.htmlencode(subject) & "</a>" %> </td>
<td style='border-bottom:1px #8CA5B5 solid;'><%=etime %></td>
<td align="right" style='border-bottom:1px #8CA5B5 solid;'> <%=getShowSize(size) %></td>
</tr>
<%
else
%>
<tr bgcolor="#FFFFFF">
<td align="center" height="26" style='border-bottom:1px #8CA5B5 solid;'><%=xmsp %></td>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><%= "<a href=""showmail.asp?filename=" & idname & "&count=" & i & "&" & getGRSN() & "&gourl=" & Server.URLEncode(gourl & addsortstr) & """>" %>
<%
if mstate = 2 then
%>
<img src="nsysmail.gif" alt="New System Mail" border=0>
<%
else
%>
<img src="newmail.gif" alt="New Mail" border=0>
<%
end if
%>
</a></td>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><input type="checkbox" name="check<%=li %>" value="<%=idname %>"></td>
<td style='border-bottom:1px #8CA5B5 solid;'><b><%=server.htmlencode(sendName) %></b> </td>
<td style='border-bottom:1px #8CA5B5 solid;'><b><%= "<a href=""showmail.asp?filename=" & idname & "&count=" & i & "&" & getGRSN() & "&gourl=" & Server.URLEncode(gourl & addsortstr) & """>" & server.htmlencode(subject) & "</a>" %></b> </td>
<td style='border-bottom:1px #8CA5B5 solid;'><b><%=etime %></b></td>
<td align="right" style='border-bottom:1px #8CA5B5 solid;'><b><%=getShowSize(size) %></b></td>
</tr>
<%
end if
idname = NULL
isread = NULL
priority = NULL
sendMail = NULL
sendName = NULL
subject = NULL
size = NULL
etime = NULL
mstate = NULL
i = i + 1
li = li + 1
loop
%>
</table>
<INPUT NAME="isremove" TYPE="hidden" value="0">
</FORM>
<br>
</BODY>
</HTML>
<%
set pf = nothing
set ei = nothing
function getShowSize(bytesize)
if bytesize < 1000 then
getShowSize = bytesize & "<b>B</b>"
else
getShowSize = CLng(bytesize/1000) & "<b>K</b>"
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -