📄 ads_pubbrow.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim ismanager
ismanager = false
if isadmin() = true then
ismanager = true
end if
%>
<%
dim sc
sc = trim(request("sc"))
dim ads
set ads = server.createobject("easymail.Pub_Addresses")
ads.Load
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<Script language="JavaScript">
<!--
function ColLst(showchar){
location.href = "ads_pubbrow.asp?<%=getGRSN() %>&sc=" + showchar;
}
function gosend()
{
form1.addresssend.value = "1";
form1.submit();
}
function mdel()
{
form1.action = "ads_pubdelete.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>
<%
if isadmin = true then
%>
<td width="20%"><a href="ads_pubadd.asp?<%=getGRSN() %>&sc=<%=sc %>">New Contact</a></td>
<%
end if
%>
<td width="28%"><a href="ads_brow.asp?<%=getGRSN() %>">Personal Addresses</a></td>
<td width="20%"><a href="adg_brow.asp?<%=getGRSN() %>">Group</a></td>
<%
if isadmin = false then
%>
<td width="20%"> </td>
<%
end if
%>
<td width="32%"><font class="s" color="#104A7B"><b>Public Addresses</b></font></td>
</tr>
</table>
<form action="ads_pubbrow.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;'>
<% if ismanager = true then %>
<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>
<% end if %>
<td width="7%" height="28" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">No.</td>
<td width="30%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Quickname</td>
<td width="40%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Email</td>
<% if ismanager = true then %>
<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>
<% end if %>
<td width="7%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"> </td>
</tr>
<%
allnum = ads.Count
shownum = 1
i = 0
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>"
if ismanager = true then
Response.Write " <td align='center' height='26' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='checkdel" & i & "' value=""" & ads.nickname & """></td>"
end if
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & shownum & "</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>"
if ismanager = true then
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='ads_pubedit.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_pubdelete.asp?id=" & Server.URLEncode(ads.nickname) & "&sc=" & sc & "&" & getGRSN() & "'><img src='images\del.gif' border='0' alt='Delete'></a></td>"
end if
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='ads_pubdelete.asp?mode=conv&id=" & Server.URLEncode(ads.nickname) & "&sc=" & sc & "&" & getGRSN() & "'><img src='images\add2ads.gif' border='0' alt='Add to private address list'></a></td>"
Response.Write " </tr>" & chr(13)
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 + -