📄 topsize.asp
字号:
<!--#include file="passinc.asp" -->
<%
if isadmin() = false then
response.redirect "noadmin.asp"
end if
%>
<%
dim ei
set ei = server.createobject("easymail.AdminManager")
'-----------------------------------------
ei.LoadTop100
allnum = ei.TopCount
mode = trim(request("mode"))
tgname = trim(request("tgname"))
if mode <> "" and tgname <> "" then
if mode = "clean" then
ei.CleanMailBox(tgname)
ei.UpdateTop100
set ei = nothing
response.redirect "ok.asp?" & getGRSN() & "&gourl=topsize.asp"
end if
if mode = "del" then
dim emuser
set emuser = Application("em")
emuser.DelUserByName tgname
set emuser = nothing
ei.UpdateTop100
set ei = nothing
response.redirect "ok.asp?" & getGRSN() & "&gourl=topsize.asp"
end if
end if
if mode = "update" then
ei.UpdateTop100
set ei = nothing
response.redirect "ok.asp?" & getGRSN() & "&gourl=topsize.asp"
end if
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script language="JavaScript">
<!--
var NS4 = (document.layers);
var IE4 = (document.all);
var win = window;
var n = 0;
function findIt() {
if (f1.searchstr.value != "")
findInPage(f1.searchstr.value);
}
function findInPage(str) {
var txt, i, found;
if (str == "")
return false;
if (NS4) {
if (!win.find(str))
while(win.find(str, false, true))
n++;
else
n++;
if (n == 0)
alert("Specified content not found.");
}
if (IE4) {
txt = win.document.body.createTextRange();
for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) {
txt.moveStart("character", 1);
txt.moveEnd("textedit");
}
if (found) {
txt.moveStart("character", -1);
txt.findText(str);
txt.select();
txt.scrollIntoView();
n++;
}
else {
if (n > 0) {
n = 0;
findInPage(str);
}
else
alert("Specified content not found.");
}
}
return false;
}
// -->
</script>
<BODY>
<br>
<FORM ACTION="topsize.asp" METHOD="POST" NAME="f1">
<input type="hidden" name="mode">
<table width="90%" height="25" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">
<tr>
<td width="3%"> </td>
<td width="44%"><font class="s"><b>Space Occupation Management</b><br> By: <%
ei.GetTopTime y, m, d, h, min
response.write y & "-" & m & "-" & d & " "
if h > 9 then
response.write h
else
response.write "0" & h
end if
response.write ":"
if min > 9 then
response.write min
else
response.write "0" & min
end if
%></font></td>
<td width="16%"><a href="topsize.asp?mode=update&<%=getGRSN() %>">Updating</a></td>
<td width="27%" nowrap><input type="text" name="searchstr" class="textbox" size="10">
<input type="button" value="Find" onclick="javascript:findIt();" class="sbttn">
</td>
<td width="10%"><a href="javascript:location.href='right.asp?<%=getGRSN() %>';">Return</a></td>
</tr>
</table><br>
</td></tr>
</table>
<table width="90%" 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="8%" align="center" height="25" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>No.</b></font></td>
<td width="48%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Accounts</b></font></td>
<td width="20%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Space<br>Occupied (K)</b></font></td>
<td width="12%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Empty</b></font></td>
<td width="12%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Delete<br>Accounts</b></font></td>
</tr>
<%
i = 0
do while i < allnum
ei.TopGetInfo i, name, msize
Response.Write " <tr height='25'>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & i + 1 & "</td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & server.htmlencode(name) & "</a></td>"
Response.Write " <td align='right' style='border-bottom:1px #8CA5B5 solid;'>" & msize & "</td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='topsize.asp?tgname=" & server.htmlencode(name) & "&mode=clean&" & getGRSN() & "'><img src='images\edit.gif' border='0' alt='Empty'></a></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='topsize.asp?tgname=" & server.htmlencode(name) & "&mode=del&" & getGRSN() & "'><img src='images\del.gif' border='0' alt='删除帐号'></a></td>"
Response.Write " </tr>" & chr(13)
name = NULL
msize = NULL
i = i + 1
loop
%>
</table>
<br><br><br>
<div align="center">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr>
<td colspan="2" height="10">
</td>
</tr>
<tr>
<td width="8%" valign="top"><font color="#FF3333"> *Note: </font></td>
<td width="92%">The space occupation management can display the top 100 users who occupy more than 1K of space (listed in the order of space occupied), for whom the following actions may be taken:<br>
1. Empty mailbox space (preserves the account, but deletes all mail and network storage data).<br>
2. Delete accounts.
</td>
</tr>
<tr>
<td colspan="2" height="10">
</td>
</tr>
</table>
</div>
</FORM>
<br>
</BODY>
</HTML>
<%
set ei = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -