📄 listatt.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
'-----------------------------------------
username = Session("wem")
ei.LoadMailBox username, "att"
ei.timeMode = 2
''''''''''''''''''''''''''''''''
sname = trim(request("sname"))
sfname = trim(request("sfname"))
if sname <> "" and sfname <> "" then
if Application("em_Enable_ShareFolder") = true then
openresult = ei.LoadFriendMailBox(username, sname, sfname)
else
openresult = -1
end if
if openresult = -1 then
set ei = nothing
Response.Redirect "err.asp?errstr=Error"
elseif openresult = 1 then
set ei = nothing
Response.Redirect "err.asp?errstr=Invalid password"
elseif openresult = 2 then
set ei = nothing
Response.Redirect "err.asp?errstr=Folder does not exist or is inaccessible"
end if
end if
mb = "att"
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 = "listatt.asp?page=" & page & "&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname)
Response.Cookies("name") = Session("wem")
Response.Cookies("name").Expires = DateAdd("m", 1, Now())
%>
<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 %>
}
<%
if sname = "" or sfname = "" then
%>
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.isremove.value = "1";
f1.mode.value = "del";
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);
}
<%
end if
%>
function selectpage_onchange()
{
location.href = "listatt.asp?<%="sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & addsortstr & "&" & getGRSN() %>&page=" + fsa.page.value;
}
function sub_up()
{
if (fsa.upfile.value != "")
{
saving.style.visibility="visible";
fsa.submit();
}
}
//-->
</SCRIPT>
<BODY>
<FORM ENCTYPE="multipart/form-data" ACTION="savenetatt.asp" METHOD=POST NAME="fsa">
<br>
<table width="98%" border="0" bgcolor="#EFF7FF" align="center" 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>[<%
if sname <> "" and sfname <> "" then
response.write "<font color=""#FF3333"">" & sname & "</font>\"
end if
%>Network Storage - <font color="#FF3333"><%=allnum %></font>] [<%
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=""listatt.asp?page=" & 0 & addsortstr & "&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """><font face='Webdings' style='font-size:13px'>9</font></a> "
response.write "<a href=""listatt.asp?page=" & page - 1 & addsortstr & "&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """><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=""listatt.asp?page=" & page + 1 & addsortstr & "&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """><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=""listatt.asp?page=" & allpage - 1 & addsortstr & "&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """><font face='Webdings' style='font-size:13px'>:</font></a> "
end if
if sname = "" or sfname = "" then
%>
<font class="s" color="#104A7B"><b><a href="javascript:del()">Expunge</a></b></font>
<input name="upfile" type="file" class='textbox' size=10>
<input type="button" value="Upload" class="sbttn" LANGUAGE=javascript onclick="sub_up()">
<%
else
%>
<font class="s" color="#104A7B"><b><a href="javascript:location.href='ff_showall.asp?<%=getGRSN() %>'">Return</a></b></font>
<%
end if
%>
</td>
</tr>
</FORM>
</table>
<br>
<table width="98%" border="0" bgcolor="#EFF7FF" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<FORM ACTION="mulmail.asp" METHOD="POST" name="f1">
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="5%" nowrap height="28" 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')">Read</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="49%" 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')">Name</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
if isread = true then
%>
<tr>
<td align="center" height="26" style='border-bottom:1px #8CA5B5 solid;'><%= "<a href=""showatt.asp?filename=" & idname & "&pt=&count=0&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """ target=""_blank"">" %>
<%
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 File" 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;'><%= "<a href=""showatt.asp?filename=" & idname & "&pt=&count=0&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """ target=""_blank"">" & 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;'><%= "<a href=""showatt.asp?filename=" & idname & "&pt=&count=0&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """ target=""_blank"">" %>
<%
if mstate = 2 then
%>
<img src="nsysmail.gif" alt="New System Mail" border=0>
<%
else
%>
<img src="newmail.gif" alt="New File" 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><%= "<a href=""showatt.asp?filename=" & idname & "&pt=&count=0&" & getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & """ target=""_blank"">" & 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">
<INPUT NAME="mode" TYPE="hidden">
<INPUT NAME="gourl" TYPE="hidden">
<div id="saving" style="filter:alpha(opacity=80); position:absolute; top:150; left:50; z-index:10; visibility:hidden"><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><td width=30%></td><TD bgcolor=#104A7B><TABLE WIDTH=100% height=70 BORDER=0 CELLSPACING=2 CELLPADDING=0><TR><td bgcolor=#eeeeee align=center>Please wait...</td></tr></table></td><td width=30%></td></tr></table></div>
</FORM>
<br>
</BODY>
</HTML>
<%
set ei = nothing
function getShowSize(bytesize)
if bytesize < 1000 then
getShowSize = bytesize & "B"
else
getShowSize = CLng(bytesize/1000) & "K"
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -