📄 editspeedadd.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim ads
set ads = server.createobject("easymail.Addresses")
ads.Load Session("wem")
if trim(request("save")) = "1" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
dim msg
msg = trim(request("speedstr"))
ads.DisableSpeedForAll
if Len(msg) > 0 then
dim ss
dim se
ss = 1
se = 1
Do While 1
se = InStr(ss, msg, Chr(9))
If se <> 0 Then
item = Mid(msg, ss, se - ss)
ads.SetIsSpeedByNickName item, true
Else
Exit Do
End If
ss = se + 1
Loop
end if
ads.Save
set ads = nothing
%>
<HTML>
<script language="JavaScript">
<!--
self.close();
// -->
</script>
</HTML>
<%
response.end
end if
dim allstr
allnum = ads.EmailCount
i = 0
do while i < allnum
ads.MoveTo i
allstr = allstr & "<option value='" & server.htmlencode(replace(ads.nickname, """", "")) & "'>" & server.htmlencode(replace(ads.nickname, """", "")) & "</option>"
i = i + 1
loop
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script language="JavaScript">
<!--
function addnewaddress(addstr)
{
var oOption = document.createElement("OPTION");
oOption.text = addstr;
oOption.value = addstr;
f1.selectusers.add(oOption);
}
function addin()
{
var i = 0;
for (i; i < f1.selectallusers.length; i++)
{
if (f1.selectallusers[i].selected == true)
{
if (isinlist(f1.selectallusers[i].value) == false)
{
var oOption = document.createElement("OPTION");
oOption.text = f1.selectallusers[i].value;
oOption.value = f1.selectallusers[i].value;
f1.selectusers.add(oOption);
}
}
}
}
function isinlist(name)
{
var i = 0;
for (i; i < f1.selectusers.length; i++)
{
if (f1.selectusers[i].value == name)
{
return true;
}
}
return false;
}
function delout()
{
var i = 0;
for (i; i < f1.selectusers.length; i++)
{
if (f1.selectusers[i].selected == true)
{
f1.selectusers.remove(i);
i--;
}
}
}
function savespeed(){
var str = "";
var i = 0;
for (i; i < f1.selectusers.length; i++)
{
str = str + f1.selectusers[i].value + '\t';
}
f1.speedstr.value = str;
f1.submit();
}
// -->
</script>
<BODY>
<FORM ACTION="editspeedadd.asp" METHOD=POST NAME="f1">
<INPUT NAME="speedstr" TYPE="hidden">
<INPUT NAME="save" TYPE="hidden" value="1">
<br>
<table border="0" width="90%" cellpadding=2 cellspacing=0 align="center" bgcolor="#EFF7FF">
<tr bgcolor="#336699">
<td colspan=3 nowrap> <font class="fw" size=2 style=font-size:9pt color="#ffffff"><b>Edit Quick Address List</b></font></td>
</tr>
<tr>
<td colspan=3><font class="Wf">Please select the contacts to be placed in the "quick address list".</font>
<br><br>
</td>
</tr>
<tr>
<td><font class="Wf">Address List:</font></td>
<td> </td>
<td><font class="Wf">Quick Address List:</font></td>
</tr>
<tr>
<td valign="top">
<select name="selectallusers" size="11" class="drpdwn" style="width: 170px;" multiple LANGUAGE=javascript ondblclick="return addin()">
<%
response.write allstr
%>
</select>
</td>
<td valign="middle" align="center">
<input class="sbttn" style="width: 75px;" type="button" value="Add >>" language=javascript onClick="addin()">
<p>
<input class="sbttn" style="width: 75px;" type="button" value="<< Remove" language=javascript onClick="delout()">
<br></td>
<td valign="top">
<select name="selectusers" size="11" class="drpdwn" style="width: 170px;" multiple LANGUAGE=javascript ondblclick="return delout()">
<%
allnum = ads.SpeedCount
i = 0
do while i < allnum
ads.GetSpeedInfoByIndex i, nickname, email
response.write "<option value=""" & server.htmlencode(replace(nickname, """", "")) & """>" & server.htmlencode(replace(nickname, """", "")) & "</option>"
nickname = NULL
email = NULL
i = i + 1
loop
%>
</select>
<br>
</td>
</tr>
</table>
<table width="90%" cellpadding=0 cellspacing=0 align="center">
<tr>
<td align="right">
<br>
<hr size="1" color="#8CA5B5">
<input type="button" value=" OK " class="Bsbttn" onClick="savespeed();">
<input type="button" value="Cancel" class="Bsbttn" onClick="window.close();" >
</td>
</tr>
</table>
</FORM>
</HTML>
<%
set ads = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -