📄 adg_brow.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim sc
sc = trim(request("sc"))
dim ads
set ads = server.createobject("easymail.Addresses")
ads.Load Session("wem")
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script language="JavaScript">
<!--
function ColLst(showchar){
location.href = "adg_brow.asp?<%=getGRSN() %>&sc=" + showchar;
}
function checkthis(gindex)
{
location.href = "wframe.asp?gindex=" + gindex + "&<%=getGRSN() %>&gourl=adg_brow.asp?sc=<%=sc %>";
}
function gosend()
{
form1.addresssend.value = "1";
form1.submit();
}
function mdel()
{
form1.action = "adg_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="5%" height="22" nowrap> </td>
<td width="15%"><a href="adg_add.asp?<%=getGRSN() %>&sc=<%=sc %>">New Group</a></td>
<td width="23%"><a href="ads_pubbrow.asp?<%=getGRSN() %>">Public Addresses</a></td>
<td width="25%"><a href="ads_brow.asp?<%=getGRSN() %>">Personal Addresses</a></td>
<td width="20%"><a href="adg_brow.asp?<%=getGRSN() %>&clear=1&sc=<%=sc %>">Clear All</a></td>
<td width="12%"><font class="s" color="#104A7B"><b>Group</b></font></td>
</tr>
</table>
<form action="adg_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="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;">Emails</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>
</tr>
<%
allnum = ads.GroupCount
i = 0
shownum = 1
do while i < allnum
ads.GetGroupInfo i, nickname, emails
nn = Left(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=""" & 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;'><a href='javascript:checkthis(" & i & ")'>" & server.htmlencode(nickname) & "</a></td>"
Response.Write " <td align='left' style='border-bottom:1px #8CA5B5 solid;'>" & replace(server.htmlencode(emails), ",", "<br>") & "</td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='adg_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='adg_delete.asp?id=" & i & "&sc=" & sc & "&" & getGRSN() & "'><img src='images\del.gif' border='0' alt='Delete'></a></td>"
Response.Write " </tr>" & chr(13)
shownum = shownum + 1
end if
nickname = NULL
emails = NULL
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 + -