📄 ads_brow.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim sc
sc = trim(request("sc"))
dim ads
set ads = server.createobject("easymail.Addresses")
ads.Load Session("wem")
i = 0
allnum = ads.EmailCount
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script language="JavaScript">
<!--
function ColLst(showchar){
location.href = "ads_brow.asp?<%=getGRSN() %>&sc=" + showchar;
}
function addtoleft()
{
var theObjTo;
var theObjCc;
var theObjBcc;
var i;
var to = "";
var cc = "";
var bcc = "";
for (i = 0; i < <%=allnum %>; i++)
{
theObjTo = eval("form1.checkto" + i);
theObjCc = eval("form1.checkcc" + i);
theObjBcc = eval("form1.checkbcc" + i);
if (theObjTo != null && theObjTo.checked == true)
{
if (to != "")
to = to + "," + theObjTo.value;
else
to = to + theObjTo.value;
}
else if (theObjCc != null && theObjCc.checked == true)
{
if (cc != "")
cc = cc + "," + theObjCc.value;
else
cc = cc + theObjCc.value;
}
else if (theObjBcc != null && theObjBcc.checked == true)
{
if (bcc != "")
bcc = bcc + "," + theObjBcc.value;
else
bcc = bcc + theObjBcc.value;
}
}
parent.f1.to.value = to;
parent.f1.cc.value = cc;
parent.f1.bcc.value = bcc;
}
function gosend()
{
addtoleft();
location.href = "wframe.asp?<%=getGRSN() %>&gourl=ads_brow.asp?sc=<%=sc %>";
}
function mdel()
{
form1.action = "ads_delete.asp?<%=getGRSN() %>&mdel=1&sc=<%=sc %>";
form1.submit();
}
// -->
</script>
<BODY>
<br>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style="border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="2%" height="22" nowrap> </td>
<td width="16%" nowrap><a href="ads_add.asp?<%=getGRSN() %>&sc=<%=sc %>">New Contact</a></td>
<td width="21%" nowrap><a href="ads_pubbrow.asp?<%=getGRSN() %>">Public Addresses</a></td>
<td width="9%"><a href="adg_brow.asp?<%=getGRSN() %>">Group</a></td>
<td width="13%" nowrap><a href="ads_brow.asp?<%=getGRSN() %>&clear=1&sc=<%=sc %>">Clear All</a></td>
<td width="14%" nowrap><a href="javascript:gosend()">Send Email</a></td>
<td width="25%" nowrap><font class="s" color="#104A7B"><b>Personal Addresses</b></font></td>
</tr>
</table>
<form action="ads_brow.asp" method=post id=form1 name=form1>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="90%" align="center">
<TR align=middle>
<td bgcolor="#dbeaf5" height="20"><a href="javascript:ColLst('0');">All</a></td>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Aa');">A</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Bb');">B</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Cc');">C</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Dd');">D</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Ee');">E</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Ff');">F</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Gg');">G</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Hh');">H</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Ii');">I</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Jj');">J</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Kk');">K</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Ll');">L</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Mm');">M</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Nn');">N</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Oo');">O</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Pp');">P</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Qq');">Q</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Rr');">R</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Ss');">S</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Tt');">T</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Uu');">U</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Vv');">V</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Ww');">W</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Xx');">X</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Yy');">Y</A></TD>
<TD bgcolor="#dbeaf5" height="20" align="center"><A href="javascript:ColLst('Zz');">Z</A></TD>
<td bgcolor="#dbeaf5" height="20"><a href="javascript:ColLst('1');">Other</a></td>
</tr>
</TABLE>
<table width="90%" border="0" bgcolor="#EFF7FF" 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="6%" height="28" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><a href='javascript:mdel()'><img src='images\del.gif' border='0' alt="Delete"></a></td>
<td width="7%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">No.</td>
<td width="5%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">To</td>
<td width="5%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Cc</td>
<td width="5%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Bcc</td>
<td width="23%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Quickname</td>
<td width="35%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Email</td>
<td width="7%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Edit</td>
<td width="7%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Delete</td>
<%
if isadmin = true then
%>
<td width="7%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"> </td>
<%
end if
%>
</tr>
<%
i = 0
shownum = 1
do while i < allnum
ads.MoveTo i
nn = Left(ads.nickname, 1)
if (sc = "1" and (Asc(nn) < 65 or Asc(nn) > 90) and (Asc(nn) < 97 or Asc(nn) > 122)) or Instr(1, sc, nn) <> 0 or sc = "0" or sc = "" then
Response.Write " <tr>"
Response.Write " <td align='center' height='26' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='checkdel" & i & "' value=""" & ads.nickname & """></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & shownum & "</td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='checkto" & i & "' value=""" & ads.email & """></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='checkcc" & i & "' value=""" & ads.email & """></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='checkbcc" & i & "' value=""" & ads.email & """></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & server.htmlencode(ads.nickname) & "</td>"
Response.Write " <td align='left' style='border-bottom:1px #8CA5B5 solid;'>" & server.htmlencode(ads.email) & "</td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='ads_edit.asp?id=" & i & "&sc=" & sc & "&" & getGRSN() & "'><img src='images\edit.gif' border='0' alt='Edit'></a></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='ads_delete.asp?id=" & Server.URLEncode(ads.nickname) & "&sc=" & sc & "&" & getGRSN() & "'><img src='images\del.gif' border='0' alt='Delete'></a></td>"
if isadmin = true then
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='ads_delete.asp?mode=conv&id=" & Server.URLEncode(ads.nickname) & "&sc=" & sc & "&" & getGRSN() & "'><img src='images\add2ads.gif' border='0' alt='Add to public address list'></a></td>"
end if
Response.Write " </tr>" & chr(10)
shownum = shownum + 1
end if
i = i + 1
loop
%>
</table>
<input type="hidden" name="wemid" value="<%=wemid %>">
<input type="hidden" name="addresssend" value="">
<input type="hidden" name="sc" value="<%=sc %>">
</FORM>
<br>
<div align="center">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr>
<td width="10%" valign="top" align="right"><font color="#FF3333">*Note:</font></td>
<td width="90%"> Letters A-Z: contacts whose quicknames start with these letters.<br>
Other: quicknames of contacts that do not start with the english alphabet.
<br>
</td>
</tr>
</table>
</div>
<br>
</BODY>
</HTML>
<%
set ads = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -