📄 addmailinglist.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 ""
dim isnew
isnew = true
id = trim(request("read"))
if id <> "" then
editname = trim(ei.GetMailingListNameByIndex(CInt(id)))
ei.Load editname
allnum = ei.ItemCount
i = 0
do while i < allnum
inlist = inlist & "<option value='" & ei.GetItemNameByIndex(i) & "'>" & ei.GetItemNameByIndex(i) & "</option>"
i = i + 1
loop
if Len(editname) > 0 then
isnew = false
end if
end if
dim eu
set eu = Application("em")
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function addnew()
{
if (selectlistusers.length < 1)
alert("The mailing list recipient cannot be empty.");
else if (filename.value == "")
alert("The mailing list sender cannot be empty.");
else
{
form1.mode.value = "addnew";
var i = 0;
var al = "";
for (i; i < selectlistusers.length; i++)
{
al = al + selectlistusers[i].value + '\t';
}
form1.addlist.value = al;
form1.addname.value = filename.value;
form1.submit();
}
}
function isinlist(name)
{
var i = 0;
for (i; i < selectlistusers.length; i++)
{
if (selectlistusers[i].value == name)
{
return true;
}
}
return false;
}
function isinAllList(name)
{
var i = 0;
for (i; i < selectalluser.length; i++)
{
if (selectalluser[i].value == name)
return true;
}
return false;
}
function addinFromText()
{
if (addtext.value != "" && isinlist(addtext.value) == false)
{
if (isinAllList(addtext.value) == true)
{
var oOption = document.createElement("OPTION");
oOption.text = addtext.value;
oOption.value = addtext.value;
selectlistusers.add(oOption);
addtext.value = "";
}
else
alert("Only internal users can be added");
}
}
function addin()
{
var i = 0;
for (i; i < selectalluser.length; i++)
{
if (selectalluser[i].selected == true)
{
if (isinlist(selectalluser[i].value) == false)
{
var oOption = document.createElement("OPTION");
oOption.text = selectalluser[i].value;
oOption.value = selectalluser[i].value;
selectlistusers.add(oOption);
}
}
}
}
function delout()
{
var i = 0;
for (i; i < selectlistusers.length; i++)
{
if (selectlistusers[i].selected == true)
{
selectlistusers.remove(i);
i--;
}
}
}
function selectfn_onchange()
{
filename.value = selectfilename.value;
}
function mdel()
{
form1.mode.value = "mdel";
form1.submit();
}
//-->
</script>
<BODY>
<br>
<div align="center"><br>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#dbeaf5" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">
<tr>
<td width="25" height="25"></td>
<td><a href="browmailinglist.asp?<%=getGRSN() %>">Return</a></td>
<% if isnew = true then %>
<td width="24%"><b>New Mailing List</b></td>
<% else %>
<td width="40%"><b>Edit Mailing List [<%=editname %>]</b></td>
<% end if %>
</tr>
</table>
</div>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr>
<td height="20" colspan="3">
</td></tr>
<tr>
<tr>
<td height="25" width="37%">
<div align="right"><font class="s" color="#104A7B"><b>Mailing list sender:</b></font> </div>
</td>
<td height="25" width="24%">
<div align="left">
<input type="text" name="filename" maxlength="64" class="textbox" readonly value="<%=editname %>">
</div>
</td>
<td height="25" colspan="3" width="39%">
<% if isnew = true then %>
<div align="left">
<select name="selectfilename" class="drpdwn" LANGUAGE=javascript onchange="selectfn_onchange()">
<option value=""></option>
<%
i = 0
allnum = eu.GetUsersCount
do while i < allnum
eu.GetUserByIndex i, name, domain, comment
if ei.IsInMailingList(name) = FALSE then
response.write "<option value='" & name & "'>" & name & "</option>"
end if
name = NULL
domain = NULL
comment = NULL
i = i + 1
loop
%>
</select>
</div>
<% end if %>
</td>
</tr>
<tr>
<td height="12" colspan="3">
</td></tr>
<tr>
</table>
<table align="center" border="0" width="90%" bgcolor="#EFF7FF">
<tr>
<td height="20" rowspan="2" width="45%">
<div align="center"><font class="s" color="#104A7B"><b>Available Users</b></font></div>
</td>
<td height="20" rowspan="2">
<div align="center"> </div>
<div align="center"> </div>
</td>
<td height="20" rowspan="2" width="45%">
<div align="center"><font class="s" color="#104A7B"><b>Mailing list recipients</b></font></div>
</td>
</tr>
<tr> </tr>
<tr>
<td height="94" rowspan="2" width="45%">
<div align="center">
<select name="selectalluser" size="10" class="drpdwn" style="width: 200;" multiple>
<%
i = 0
allnum = eu.GetUsersCount
do while i < allnum
eu.GetUserByIndex i, name, domain, comment
response.write "<option value='" & name & "'>" & name & "</option>"
name = NULL
domain = NULL
comment = NULL
i = i + 1
loop
%>
</select>
</div>
<br>
<div align="center">
<input type="text" name="addtext" class="textbox" maxlength="64"> <input type="button" value="==>>" class="sbttn" LANGUAGE=javascript onclick="addinFromText()">
</div>
</td>
<td height="47" width="10%">
<div align="center">
<input type="button" name="Button" value=" ==> " class="sbttn" LANGUAGE=javascript onclick="addin()">
</div>
</td>
<td height="94" rowspan="2" width="45%">
<div align="center">
<select name="selectlistusers" size="12" class="drpdwn" style="width: 200;" multiple>
<%=inlist %>
</select>
</div>
</td>
</tr>
<tr>
<td height="47" width="10%">
<div align="center">
<input type="button" name="Submit2" value=" <== " class="sbttn" LANGUAGE=javascript onclick="delout()">
</div>
</td>
</tr>
<tr>
<td height="20" colspan="3">
</td></tr>
<tr>
<tr>
<td colspan="3" align="right">
<input type="button" value=" Save " LANGUAGE=javascript onclick="addnew()" class="Bsbttn">
<input type="button" value="Return" LANGUAGE=javascript onclick="javascript:location.href='browmailinglist.asp?<%=getGRSN() %>';" class="Bsbttn">
</td></tr>
<tr>
</table>
<br><br><br>
<div align="center">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr>
<td colspan="2" height="10">
</td>
</tr>
<tr>
<td width="8%" valign="top"><font color="#FF3333"> *Note: </font></td>
<td width="92%">Use of mailing list:
<br>
1. Activate "mailing list" function first.
<br>
2. Select a sender of mailing list.
<br>
3. Select recipients for this sender.
<br>
4. Next time when you send mail to this mailing list sender, the mail will be sent to all the recipients.
</td>
</tr>
<tr>
<td colspan="2" height="10">
</td>
</tr>
</table>
</div>
<form action="savemailinglist.asp" method=post id=form1 name=form1>
<input type="hidden" name="mode">
<input type="hidden" name="addname">
<input type="hidden" name="addlist">
</FORM>
<br>
</BODY>
</HTML>
<%
set ei = nothing
set eu = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -