?? notelist.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="session3.asp"-->
<link href="../css/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("短信正文不能為空！");
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("您選擇的用戶ID已經存在了！");
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=NoteList.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="<%=session("admin_name")%>" disabled name="name"><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 username 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(0)&">"&cmrs(0)&"</option>"
cmrs.movenext
loop
response.write "</select>"
set cmrs=nothing
end sub
sub sendmail()
dim rs,sql
sql = "select count(*) from [Message]"
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
title=request("Subject")
end if
if request("sendmail")="" then
Errmsg=Errmsg+"<br>"+"<li>您沒有選擇給誰發信！"
founderr=true
else
noteto=REPLACE(request("sendmail"),", ",",")
end if
if request("Content")="" then
Errmsg=Errmsg+"<br>"+"<li>請確認輸入了短信內容。"
founderr=true
else
body=request("Content")
end if
end if
set rs=nothing
if founderr=true then
call error("Information",errmsg)
exit sub
end if
rcpt=split(noteto,",")
for i=0 to ubound(rcpt)
sql="insert into message(incept,sender,title,content,sendtime,flag,issend,delS) values('"&rcpt(i)&"','"&session("admin")&"','"&title&"','"&body&"',Now(),0,1,2)"
conn.Execute(sql)
next
stitle="短信發送成功"
smsg="您已經成功的向站內所選會員發送了短信。"
call success(stitle,smsg)
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -