📄 browmailinglist.asp
字号:
<!--#include file="passinc.asp" -->
<%
if isadmin() = false then
response.redirect "noadmin.asp"
end if
%>
<%
dim ei
set ei = server.createobject("easymail.mailinglist")
'-----------------------------------------
ei.Load ""
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function mdel()
{
form1.mode.value = "mdel";
form1.submit();
}
//-->
</script>
<BODY>
<div align="center"><br>
<table width="90%" 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%" height="25"> </td>
<td width="16%"><a href="addmailinglist.asp?<%=getGRSN() %>">New Mailing List</a></td>
<td width="10%"><a href="browmailinglist.asp?<%=getGRSN() %>">Refresh</a></td>
<td width="12%"><a href="showsysinfo.asp?<%=getGRSN() %>#browmailinglist">Configure</a></td>
<td width="10%"><a href="right.asp?<%=getGRSN() %>">Return</a></td>
<td width="12%"><b>Mailing List</b></td>
</tr>
</table>
</div>
<form action="savemailinglist.asp" method=post id=form1 name=form1>
<input type="hidden" name="mode">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr bgcolor="#dbeaf5">
<td width="7%" align="center" height="25" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid;"><a href="javascript:mdel()"><img src='images\del.gif' border='0'></td>
<td width="8%" align="center" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid;">No.</td>
<td width="63%" align="center" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid;">Mailing List Sender</td>
<td width="12%" align="center" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid;">Edit</td>
<td width="12%" align="center" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Delete</td>
</tr>
<%
i = 0
do while i < ei.MailingListCount
Response.Write " <tr>"
Response.Write " <td align='center' height='25' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='check" & i & "' value='" & ei.GetMailingListNameByIndex(i) & "'></td>"
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;'><a href='addmailinglist.asp?" & getGRSN() & "&read=" & i & "'>" & ei.GetMailingListNameByIndex(i) & "</a></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='addmailinglist.asp?" & getGRSN() & "&read=" & i & "'><img src='images\edit.gif' border='0'></a></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='savemailinglist.asp?" & getGRSN() & "&del=" & i & "'><img src='images\del.gif' border='0'></a></td>"
Response.Write " </tr>" & chr(10)
i = i + 1
loop
%>
</table>
</FORM>
<br>
</BODY>
</HTML>
<%
set ei = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -