📄 listmail.asp
字号:
if ((page+1) * pageline) => allnum then
response.write "<font face='Webdings' style='font-size:13px'>8</font> "
else
response.write "<a href=""listmail.asp?mode=" & Server.URLEncode(mb) & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&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=""listmail.asp?mode=" & Server.URLEncode(mb) & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&page=" & allpage - 1 & addsortstr & "&" & getGRSN() & """><font face='Webdings' style='font-size:13px'>:</font></a> "
end if
if sname = "" or sfname = "" then
%>
<%
if mb <> "del" then
%>
<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>
<%
else
%>
<font class="s" color="#104A7B"><b><a href="javascript:del()">Delete</a></b></font>
<font class="s" color="#104A7B"><b><a href="mulmail.asp?mode=cleanTrash&<%=getGRSN() %>&gourl=<%=Server.URLEncode(gourl & addsortstr) %>">Empty Folder</a></b></font>
<%
end if
%>
<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>
<%
else
%>
<font class="s" color="#104A7B"><b><a href="javascript:location.href='ff_showall.asp?<%=getGRSN() %>'">Return</a></b></font>
<%
end if
%>
</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>
<%
if sname = "" or sfname = "" then
%>
<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>
<%
end if
%>
<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')">Subject</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-bottom:1px #8CA5B5 solid; border-right: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>
<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 & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & 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>
<%
if sname = "" or sfname = "" then
%>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><input type="checkbox" name="check<%=li %>" value="<%=idname %>"></td>
<%
end if
%>
<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 & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & 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 & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & 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>
<%
if sname = "" or sfname = "" then
%>
<td align="center" style='border-bottom:1px #8CA5B5 solid;'><input type="checkbox" name="check<%=li %>" value="<%=idname %>"></td>
<%
end if
%>
<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 & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & 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>
<%
if sname = "" or sfname = "" then
set pf = nothing
end if
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 + -