?? maillist.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="session3.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("您沒有選擇給誰發(fā)信！");
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已經(jīng)存在了！");
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("請(qǐng)選擇要添加的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("請(qǐng)選擇要?jiǎng)h除的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>
系統(tǒng)正在處理郵件，請(qǐng)稍候......
</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> </TD>
</TR>
<TR bgcolor=<%=tablebodycolor1%>> <TD colSpan=2 height=20></TD>
</TR>
<TR bgcolor=<%=tablebodycolor2%>>
<TD height=35 align=center>標(biāo) 題: <INPUT size=25
name=Subject> </TD>
<TD height=35 align=center>回復(fù)到: <INPUT size=25
value="<%=webEmail%>" disabled><INPUT type=hidden value="<%=webEmail%>" 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 >發(fā)送郵件列表:</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>信件內(nèi)容:(支持<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=發(fā)送郵件 name=submit> </TD></TR>
</TBODY></TABLE></FORM>
<%
end sub
sub classmatelist()
dim cmrs
set cmrs=conn.execute("select username,useremail from [sh_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 [sh_User]"
set rs=conn.Execute(sql)
if rs(0)=1 then
Errmsg=Errmsg+"<br>"+"<li>操作失敗！目前站內(nèi)還沒有其他成員,你不能只對(duì)自己發(fā)送郵件。"
founderr=true
else
if request("Subject")="" then
Errmsg=Errmsg+"<br>"+"<li>請(qǐng)確認(rèn)輸入了郵件主題。"
founderr=true
else
mailtopic=request("Subject")
end if
if webEmail="" then
Errmsg=Errmsg+"<br>"+"<li>請(qǐng)確認(rèn)輸入了回復(fù)地址。"
founderr=true
elseif not IsValidEmail(webEmail) then
Errmsg=Errmsg+"<br>"+"<li>錯(cuò)誤的回復(fù)地址。"
founderr=true
end if
if request("sendmail")="" then
Errmsg=Errmsg+"<br>"+"<li>您沒有選擇給誰發(fā)信！"
founderr=true
else
mailto=request("sendmail")
end if
if request("Content")="" then
Errmsg=Errmsg+"<br>"+"<li>請(qǐng)確認(rèn)輸入了郵件內(nèi)容。"
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："&webEmail
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="郵件發(fā)送成功"
smsg="您已經(jīng)成功的向站內(nèi)所選會(huì)員發(fā)送了郵件。"
call success(stitle,smsg)
else
errmsg=errmsg+"<br>"+"<li>由于以下原因郵件發(fā)送失敗！</li>"
errmsg=errmsg+"<br>"&sendok
call error("Exclamation",errmsg)
end if
end sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -