📄 findmail.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim ei
set ei = server.createobject("easymail.InfoList")
ei.LoadSizeInfo Session("wem")
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function msearch() {
f2.mailsearch.value = "\t\t" + f2.shead.value + "\t" + f2.smode.value + "\t" + f2.stext.value + "\t\tRecDate\t" + f2.sdatemode.value + "\t" + f2.syear.value + f2.smonth.value + f2.sday.value + "\t\tSize\t" + f2.ssizemode.value + "\t" + f2.ssize.value + "\t\tRead\t1\t" + f2.sread.value + "\t\tFolders\t" + getcheck() + "\t";
f2.submit();
}
function getcheck() {
var i = 0;
var theObj;
var str = "";
for(; i<<%= CStr(4 + ei.PerFolderCount)%>; i++)
{
theObj = eval("f2.check" + i);
if (theObj.checked == true)
str = str + theObj.value + "\t";
}
return str;
}
function clearall() {
var i = 0;
var theObj;
for(; i<<%= CStr(4 + ei.PerFolderCount)%>; i++)
{
theObj = eval("f2.check" + i);
theObj.checked = "";
}
}
function checkall() {
var i = 0;
var theObj;
for(; i<<%= CStr(4 + ei.PerFolderCount)%>; i++)
{
theObj = eval("f2.check" + i);
theObj.checked = "check";
}
}
//-->
</SCRIPT>
<BODY>
<br><br>
<form name="f2" method="post" action="searchlistmail.asp">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr bgcolor="#dbeaf5">
<td colspan="2" height="30" valign="middle" 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>Search</b></font></div>
</td>
</tr>
<tr>
<td width="18%" height="30" style="border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center">Content:</div>
</td>
<td width="82%" style="border-bottom:1px #8CA5B5 solid;">
<select name="shead" class="drpdwn" size="1">
<option value="Subject" selected>Subject</option>
<option value="FromMail">From Addr</option>
<option value="FromName">From Name</option>
</select>
<select name="smode" class="drpdwn" size="1">
<option value="1" selected>contains</option>
<option value="2">equal</option>
<option value="3">equal (asterisk supported)</option>
</select>
<input type="text" name="stext" class='textbox'>
</td>
</tr>
<tr>
<td width="16%" height="30" style="border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center">Date:</div>
</td>
<td width="84%" style="border-bottom:1px #8CA5B5 solid;">Year:
<select name="syear" class="drpdwn" size="1">
<%
mc = 1990
do while mc <= Year(Now)
if mc = Year(Now) then
response.write "<option value='" & mc & "' selected>" & mc & "</option>"
else
response.write "<option value='" & mc & "'>" & mc & "</option>"
end if
mc = mc + 1
loop
%>
</select> Month:
<select name="smonth" class="drpdwn" size="1">
<%
mc = 1
do while mc <= 12
if mc < 10 then
smc = "0" & CStr(mc)
else
smc = CStr(mc)
end if
if mc = Month(Now) then
response.write "<option value='" & smc & "' selected>" & mc & "</option>"
else
response.write "<option value='" & smc & "'>" & mc & "</option>"
end if
mc = mc + 1
loop
%>
</select> Day:
<select name="sday" class="drpdwn" size="1">
<%
mc = 1
do while mc <= 31
if mc < 10 then
smc = "0" & CStr(mc)
else
smc = CStr(mc)
end if
if mc = Day(Now) then
response.write "<option value='" & smc & "' selected>" & mc & "</option>"
else
response.write "<option value='" & smc & "'>" & mc & "</option>"
end if
mc = mc + 1
loop
%>
</select>
<select name="sdatemode" class="drpdwn" size="1">
<option value="1" selected>Dated Before</option>
<option value="2">Dated After</option>
<option value="3">Dated On</option>
</select>
</td>
</tr>
<tr>
<td width="16%" height="30" style="border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center">Size:</div>
</td>
<td width="84%" style="border-bottom:1px #8CA5B5 solid;">
<select name="ssizemode" class="drpdwn" size="1">
<option value="1" selected> > </option>
<option value="2"> < </option>
<option value="3"> = </option>
</select>
<input type="text" name="ssize" class='textbox'> (Byte)
</td>
</tr>
<tr>
<td width="16%" height="30" style="border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center">Read or not:</div>
</td>
<td width="84%" style="border-bottom:1px #8CA5B5 solid;">
<select name="sread" class="drpdwn" size="1">
<option value="1" selected>Both are acceptable</option>
<option value="2">Already read</option>
<option value="3">Not read yet</option>
</select>
</td>
</tr>
<tr>
<td width="16%" height="30" style="border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<div align="center">Look in:</div>
</td>
<td width="84%" style="border-bottom:1px #8CA5B5 solid;">
<input type='checkbox' name='check0' value="in" checked>Inbox
<input type='checkbox' name='check1' value="out" checked>Draft
<input type='checkbox' name='check2' value="sed" checked>Sent
<input type='checkbox' name='check3' value="del" checked>Trash
<%
allnum = ei.PerFolderCount
i = 0
do while i < allnum
ei.GetPerFolderInfo i, pfname, pfmailcount, pfsize, pfnewmailcount
response.write "<input type='checkbox' name='check" & i+4 & "' value=""" & pfname & """>" & server.htmlencode(pfname) & " "
pfname = NULL
pfmailcount = NULL
pfsize = NULL
pfnewmailcount = NULL
i = i + 1
loop
%>
<input type="hidden" name="mailsearch">
<br>
<br>
<input type=button value="Check all" class="sbttn" onClick="javascript:checkall()" name="button2">
<input type=button value="Clear all" class="sbttn" onClick="javascript:clearall()" name="button2">
</td>
</tr>
<tr valign="middle">
<td colspan="2" height="40" bgcolor="#ffffff"><br>
<div align="center">
<input type=button value="Find Messages" class="Bsbttn" onClick="javascript:msearch()">
</div>
</td>
</tr>
</table>
<br><br>
<div align="center">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr>
<td width="15%" valign="top" align="left"><br><font color="#FF3333">*Note: Size</font></td>
<td width="85%"><br>Please input the length in bytes when searching mails by size (1k = 1000 bytes)<br><br>
Besides, the kilobytes (K) displayed with the mail is rounded up to the nearest interger, eg. 2300 bytes = 2K, and 2600 bytes = 3K.<br><br>
Mails smaller than 1000 bytes are displayed in bytes.<br><br>
</td>
</tr>
</table>
</div>
</form>
<br>
</BODY>
</HTML>
<%
set ei = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -