📄 maillist.asp
字号:
<!--#include file="session.asp"-->
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="../check.asp" -->
<!--#INCLUDE FILE="../main.asp" -->
<link href="style.css" rel="stylesheet" type="text/css">
<%if request("action")="sendmail" then
call sendmail()
else
call writelettle()
end if
sub writelettle()%>
<SCRIPT language=Javascript>
<!--
function sendmail_submit(obj){
temp=document.sendmail.from.value;
if(document.sendmail.Subject.value.length==0)
{
alert("主题不能为空！");
document.sendmail.Subject.focus();
return false;
}
if ((temp.indexOf("@")==-1) || (temp.indexOf("@")!=temp.lastIndexOf("@")) || temp.indexOf("@")==temp.length-1)
{
alert("Email地址格式不正确！");
document.sendmail.from.focus();
return false;
}
var count;
count=document.sendmail.sendmail.length;
if (count==0)
{
alert("您没有选择给谁发信！");
return false;
}
if(document.sendmail.Content.value.length==0)
{
alert("Email正文不能为空！");
document.sendmail.Content.focus();
return false;
}
for (i=0;i<count;i++)
{
document.sendmail.sendmail[i].selected=true;
}
document.sendmail.submit.disabled=true
initAd();
}
function selectall(){
var sendcount,allcount;
var optmail;
sendcount=document.sendmail.sendmail.length;
for(i=0;i<sendcount;i++)
{
document.sendmail.sendmail.remove(0);
}
allcount=document.sendmail.allmail.length;
for(i=0;i<allcount;i++)
{
optmail=document.createElement("option");
optmail.text=document.sendmail.allmail[i].text;
optmail.value=document.sendmail.allmail[i].value;
document.sendmail.sendmail.add(optmail);
}
for(i=0;i<allcount;i++){
if(document.sendmail.allmail[i].selected==true){
document.sendmail.allmail[i].selected=false;
}
}
}
function addmail(){
var allcount,sendcount,flag1,flag2;
var optmail;
allcount=document.sendmail.allmail.length;
sendcount=document.sendmail.sendmail.length;
flag1=0;
flag2=0;
for(i=0;i<allcount;i++){
if(document.sendmail.allmail[i].selected==true){
document.sendmail.allmail[i].selected=false;
for(j=0;j<sendcount;j++){
if(document.sendmail.allmail[i].value==document.sendmail.sendmail[j].value)
{
alert("您选择的Email已经存在了！");
flag1=1;
}
}
if(flag1==0)
{
flag2=1;
optmail=document.createElement("option");
optmail.text=document.sendmail.allmail[i].text;
optmail.value=document.sendmail.allmail[i].value;
document.sendmail.sendmail.add(optmail);
}
}
if(flag1==1)break;
}
if(flag2==0){
if (flag1==0)
{
alert("请选择要添加的Email！")
}
}
}
function delmail(){
var sendcount,flag,delcount;
var optmail;
flag=0;
delcount=0;
sendcount=document.sendmail.sendmail.length;
for(i=0;i<sendcount;i++){
if(document.sendmail.sendmail[i].selected==true){
flag=1;
for(j=i;j>0;j--)
{
document.sendmail.sendmail[j].value=document.sendmail.sendmail[j-1].value;
document.sendmail.sendmail[j].text=document.sendmail.sendmail[j-1].text;
}
delcount=delcount+1;
}
}
if (flag==0)
{
alert("请选择要删除的Email！");
}
for(i=0;i<delcount;i++)
{
document.sendmail.sendmail.remove(0);
}
for(i=0;i<document.sendmail.sendmail.length;i++)
{
document.sendmail.sendmail[i].selected=false;
}
}
function delall(){
var sendcount;
var optmail;
sendcount=document.sendmail.sendmail.length;
if (sendcount==0)
{
alert("没有可以删除的Email！");
}
for(i=0;i<sendcount;i++)
{
document.sendmail.sendmail.remove(0);
}
}
//-->
</SCRIPT>
<!--#INCLUDE FILE="../js/sendnow.inc" -->
<div id="sponsorAdDiv" style="visibility:hidden">
<table width="400" height="70" bgcolor="<%=tablebordercolor%>" border=0 cellspacing=1><tr><td>
<table width="100%" height="100%" border=0 cellspacing=0><tr bgcolor="<%=tablebodycolor1%>"><td>
系统正在处理邮件，请稍候......
</td></tr></table></td></tr></table></div>
<br><br><FORM name=sendmail onsubmit="return sendmail_submit(this);" action=maillist.asp method=post>
<INPUT type=hidden value=sendmail name=action>
<TABLE cellSpacing=1 cellPadding=3 width=480 align=center border=0 bgcolor=<%=tablebordercolor%>>
<TBODY>
<TR bgcolor=<%=tabletitlecolor%>>
<TD colSpan=2 height=30><IMG SRC="../Images/mailloca.gif" BORDER=0 ALT=""></TD></TR>
<TR bgcolor=<%=tablebodycolor1%>> <TD colSpan=2 height=20></TD>
</TR>
<TR bgcolor=<%=tablebodycolor2%>>
<TD height=35 align=center>标 题: <INPUT size=25
name=Subject> </TD>
<TD height=35 align=center>回复到: <INPUT size=25
value="<%=systemEmail%>" disabled><INPUT type=hidden value="<%=systemEmail%>" name="from"></TD></TR>
<TR bgcolor=<%=tablebodycolor1%>>
<td><table border=0 width=210 cellpadding=4 align=center><tr><TD >全部用户列表:</TD></TR>
<TR >
<TD align=middle width=250><%call classmatelist()%></TD></tr></table></td>
<td><table border=0 width=210 cellpadding=4 align=center><tr><TD >发送邮件列表:</TD></TR>
<TR >
<TD align=middle width=250 ><SELECT
ondblclick="return delmail()" style="WIDTH: 210px; HEIGHT: 100px" multiple
name=sendmail></SELECT></TD></tr></table></td>
</tr>
<TR bgcolor=<%=tabletitlecolor%>>
<TD colSpan=2 height=20 align=right><input type=button value="添加" onclick=javascript:addmail()> <input type=button value="全选" onclick=javascript:selectall()> <input type=button value=删除 onclick=javascript:delmail()> <input type=button value=全删 onclick=javascript:delall()> </TD></TR>
<TR bgcolor=<%=tablebodycolor1%>><td colspan=2>
<table width=90% border=0 align=center cellpadding=4>
<tr> <TD height=20>信件内容:(支持<font color="#FF0000">UBB</font>)</TD></TR>
<TR >
<TD align=middle><TEXTAREA name=Content rows=8 cols=70></TEXTAREA> </TD></TR></table></td></tr>
<TR bgcolor=<%=tabletitlecolor%>>
<TD colSpan=3 height=20 align=right><input type=submit value=发送邮件 name=submit> </TD></TR>
</TBODY></TABLE></FORM>
<%
end sub
sub classmatelist()
dim cmrs
set cmrs=conn.execute("select userid,email from [User]")
response.write "<SELECT ondblclick='return addmail()' style='WIDTH: 210px; HEIGHT: 100px' multiple name=allmail>"
do until cmrs.eof
response.write "<option value="&cmrs(1)&">"&cmrs(0)&"</option>"
cmrs.movenext
loop
response.write "</select>"
set cmrs=nothing
end sub
sub sendmail()
dim rs,sql
sql = "select count(*) from [User]"
set rs=conn.Execute(sql)
if rs(0)=1 then
Errmsg=Errmsg+"<br>"+"<li>操作失败！目前站内还没有其他成员,你不能只对自己发送邮件。"
founderr=true
else
if request("Subject")="" then
Errmsg=Errmsg+"<br>"+"<li>请确认输入了邮件主题。"
founderr=true
else
mailtopic=request("Subject")
end if
if systemEmail="" then
Errmsg=Errmsg+"<br>"+"<li>请确认输入了回复地址。"
founderr=true
elseif not IsValidEmail(systemEmail) then
Errmsg=Errmsg+"<br>"+"<li>错误的回复地址。"
founderr=true
end if
if request("sendmail")="" then
Errmsg=Errmsg+"<br>"+"<li>您没有选择给谁发信！"
founderr=true
else
mailto=request("sendmail")
end if
if request("Content")="" then
Errmsg=Errmsg+"<br>"+"<li>请确认输入了邮件内容。"
founderr=true
else
body=request("Content")&chr(13)&chr(10)&chr(10)&chr(10)&chr(10)&space(20)&"--------------"
body=body&chr(13)&chr(10)&chr(10)&chr(10)&chr(10)&space(10)&Tradematename&chr(13)&chr(10)&chr(10)&"Email："&SystemEmail
end if
end if
set rs=nothing
if founderr=true then
call error("Information",errmsg)
exit sub
end if
%>
<!--#INCLUDE FILE="Email.asp" -->
<%if sendok="OK" then
stitle="邮件发送成功"
smsg="您已经成功的向站内所选会员发送了邮件。"
call success(stitle,smsg)
else
errmsg=errmsg+"<br>"+"<li>由于以下原因邮件发送失败！</li>"
errmsg=errmsg+"<br>"&sendok
call error("Exclamation",errmsg)
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -