📄 teachmaillist.asp

📁 功能非常完整的校友录
💻 ASP
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<!--#INCLUDE FILE="email.asp" -->

<html><head>
<title><%=SchoolmateName%>——教师群体信件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="txl.css" type="text/css" rel="stylesheet">
<script language="JavaScript" src="script/jsfun.js">
</script>
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0   bgColor="<%=bodycolor%>">

<%
if request("action")="sendmail" then
call sendmail()
else
call writelettle()
end if
call endconnection()


sub writelettle()
dim rs,StrSQL
StrSQL = "Select realname,email from student where userid='"&membername&"'"
set rs=conn.Execute(StrSQL)

mfrom=htmlencode(rs("realname"))&"&nbsp;&lt;"&htmlencode(rs("email"))&"&gt;"

%>
<!--#INCLUDE FILE="script/sendnow.inc" -->

<div id="sponsorAdDiv" style="visibility:hidden">
<table width="300" height="50" bgcolor="<%=tablebordercolor%>" border=0 cellspacing=1><tr><td>
<table width="100%" height="100%"  border=0 cellspacing=0><tr bgcolor="<%=tablebodycolor1%>"><td>
&nbsp;&nbsp;&nbsp;&nbsp;正在处理邮件，请稍候......
</td></tr></table></td></tr></table></div> 

<br><br><table border="0" cellspacing="1" width="100%">
  <tr>
    <td>
    <table border="0" cellspacing="1" width="100%">
      <tr>
        <td align="center"><br>
        <form style="MARGIN: 0px" name="frmmail" action="TeachMailList.asp?Action=sendmail" method="post"
        onsubmit="submitonce(this);initAd();">
          <input type="hidden" name="mailfrom" value="<%=rs("email")%>">
		  <table border="0" cellspacing="1" width="400" cellpadding="4" bgcolor="<%=tablebordercolor%>">
            <tr bgcolor=<%=tabletitlecolor%>>
              <td colspan=2 align=center><img height="30" src="images/icon05.gif" width="30" align="absMiddle"> 
              <b>教师邮件群发</b></td>
            </tr>

            <tr bgcolor=<%=tablebodycolor1%>>
              <td  colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              此项功能将向所有教师通讯录中的教师发邮件</td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td height="13" width=80>&nbsp;&nbsp;发 件 人</td><td> 
              &nbsp;&nbsp;<%=mfrom%></td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td height="13" >&nbsp;&nbsp;收 件 人</td><td>&nbsp;&nbsp;所有教师通讯录中的教师</td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td height="13" >&nbsp;&nbsp;信件主题</td><td>&nbsp;&nbsp<input size="41" name="mailsub"> </td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td >&nbsp;&nbsp;信件内容</td>
                         <td >&nbsp;&nbsp;<textarea name="mailbody" rows="8" cols="40"></textarea></td>
            </tr>
            <tr bgcolor="<%=tabletitlecolor%>">
              <td height="20" align="center" colspan=2><input
              style="WIDTH: 80px; HEIGHT: 20px" type="submit" value="发送(S)" name="submit">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              &nbsp; <input style="WIDTH: 80px; HEIGHT: 20px" type="reset" value="重置(R)"
              name="reset"> </td>
            </tr>
          </table>
        </form>
        <p><br>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
set rs=nothing
end sub

sub sendmail()

	dim rs,sql
	sql="select distinct email from [teacher] where email<>'"&""&"' and email is not null"
	set rs=conn.Execute(sql)
	if rs.Eof or rs.Bof then
		Errmsg=Errmsg+"<br>"+"<li>操作失败！目前教师通讯录中有邮件地址的教师还没有。"
		founderr=true
	else
		if request("mailsub")="" then
			Errmsg=Errmsg+"<br>"+"<li>请确认输入了邮件主题。"
			founderr=true
		else
			mailtopic=request("mailsub")
		end if

		if request("mailbody")="" then
			Errmsg=Errmsg+"<br>"+"<li>请确认输入了邮件内容。"
			founderr=true
		else
			mailbody=request("mailbody")
		end if
	end if

	if founderr=true then
		call error(errmsg)
		exit sub
	end if
		mailfrom=request("mailform")
		mailto=rs("email")
		rs.movenext
		do until rs.eof
			mailto=mailto&","&rs("email")
			rs.movenext
		loop
		set rs=nothing
		if EmailFlag=0 then
			errmsg=errmsg+"<br>"+"<li>本同学录不支持发送邮件。</li>"
			call error(errmsg)
			exit sub
		elseif EmailFlag=1 then
			call jmail()
		elseif EmailFlag=2 then
			call Cdonts()
		elseif EmailFlag=3 then
			call aspemail()
		end if

if SendMailStatus="OK" then
		stitle="邮件发送成功"
		smsg="您已经成功的向教师通讯录中的教师发送了邮件。"
		call success(stitle,smsg)
else
		errmsg=errmsg+"<br>"+"<li>由于以下原因邮件发送失败！</li>"
		errmsg=errmsg+"<br>"&SendMailStatus
		call error(errmsg)
end if

end sub

%>
<!--#INCLUDE FILE="footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -