bs_mail_send.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 165 行

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
  <%
 if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
 %>
  <script language="javascript">
<!--
function checks()
{
if(document.sendmail.frommail.value=="")
{
alert("发信人不能为空!");
return false;
}
 if(document.sendmail.mailsubject.value=="")
{
alert("请输入信件标题!");
return false;

}
 if(document.sendmail.mailbody.value=="")
{
alert("请输入信件内容!");
return false;

}
if(document.sendmail.tomail.value=="")
{
var i=confirm("你没有输入收信人地址！那么将进行群发邮件！你确定要群发吗，请考虑网络传输速率和系统资源!");
if(i)
{
return true;
}
else
{
return false;
}
}
 }
 function istrues()
 {
 var i=confirm("你确定要进行自动匹配商机发送吗？此操作可能消耗较多资源！");
 if(i)
 {
 return true;
 }
 else
 {
 return false;
 }
 }
//-->
</script>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<%

	Function IsObjInstalled(strClassString)
		on error resume next
		IsObjInstalled = False
		Err = 0
		Dim xTestObj
		Set xTestObj = Server.CreateObject(strClassString)
		If 0 = Err Then IsObjInstalled = True
		Set xTestObj = Nothing
		Err = 0
	End Function
 	Dim theInstalledObjects(17)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"
    theInstalledObjects(2) = "MSWC.NextLink"
    theInstalledObjects(3) = "MSWC.Tools"
    theInstalledObjects(4) = "MSWC.Status"
    theInstalledObjects(5) = "MSWC.Counters"
    theInstalledObjects(6) = "IISSample.ContentRotator"
    theInstalledObjects(7) = "IISSample.PageCounter"
    theInstalledObjects(8) = "MSWC.PermissionChecker"
    theInstalledObjects(9) = FS
    theInstalledObjects(10) = "adodb.connection"
     theInstalledObjects(11) = "SoftArtisans.FileUp"
    theInstalledObjects(12) = "SoftArtisans.FileManager"
    theInstalledObjects(13) = "JMail.SMTPMail"
    theInstalledObjects(14) = "CDONTS.NewMail"
    theInstalledObjects(15) = "Persits.MailSender"
    theInstalledObjects(16) = "LyfUpload.UploadFile"
    theInstalledObjects(17) = "Persits.Upload.1"
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#D4D0C8" class="a2">
 	<tr class="a4">
		<td align="center" bgcolor="#E8F4FF">
      
      <b>发 送 邮 件</b>  <br><hr size="1"  color="#D3765A" width="90%" />
      
      Jmail组件支持：<%If Not IsObjInstalled(theInstalledObjects(13)) Then%><font color="red">对不起！不能用Jmail组件发送邮件,需安装了jmail组件才可发送邮件！<b>×</b></font><%else%><b><font color="red">√</font></b><%end if%>
      
 	  
     <table border="1"  bordercolor="#B8CFE4" cellpadding="0"  cellspacing="0" align="center" width="98%" >
	 <form name="emform" method="post" action="sendinfoemail.asp" onsubmit="return istrues();"><tr><td  >  
 	 <font   color="#0099CC">提示：由于随着会员数量的增加和订阅商机有关的供求信息的增加，会造成系统定时自动发送时消耗大量的服务器资源而引起系统无法正常运行！由此采用后台事件触发的方式进行发送，以缓解上述问题的严重性！请不要随意的触发此功能！后果自负！</font></td></tr><tr><td align="center" valign="middle" bgcolor="#D6DFEF"><br />
 	       <input type="submit" name="sendgo" value="点击进行订阅商机自动匹配发送至会员Email处理" />
	<br /> <hr size="1" color="#0099CC"  width="90%"/></td></tr></form></table>
  	  
	  
 	  <form name="sendmail" action="Bs_Mail_Send_to.asp" method="post"    onsubmit="return checks();">
        <table width="560" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#D3DCEE">
          <tr> 
            <td width="181" height="25" bgcolor="#DFE6F3">
<div align="center"><font color="#000000">发信人地址：</font></div></td>
            <td width="363" height="30" bgcolor="#DFE6F3"> <input name="frommail" type="text" value="<%=SystemEmail%>" size="30" maxlength="50">
              (默认设置在基本设置中)</td>
          </tr>
          <tr>
            <td bgcolor="#D3DCEE"><div align="center">发信人邮箱密码：</div></td>
            <td height="35" bgcolor="#D3DCEE"><input name="mail_pwd" type="password" id="mail_pwd" value="<%=HOPE_MailPwd%>" size="30" maxlength="50">
              (
            默认设置在基本设置中)</td>
          </tr>
          <tr>
            <td bgcolor="#D3DCEE"><div align="center">发件人邮箱的邮件服务器地址：</div></td>
            <td height="35" bgcolor="#D3DCEE"><input name="mail_smtp" type="text" id="mail_smtp" value="<%=SMTPServer%>" size="30" maxlength="50">
(
            默认设置在基本设置中)</td>
          </tr>
          <tr> <%email=request("email")%>
            <td bgcolor="#D3DCEE">
<div align="center"><font color="#000000">收信人地址：</font></div></td>
            <td height="40" bgcolor="#D3DCEE"> 
              <input name="tomail" type="text" value="<%=email%>" size="50">
              <br>
            <font color="#000000">（如果为空，从数据库取地址群发！多个用户请用“,”号隔开。） </font></td>
          </tr>
          <tr> 
            <td bgcolor="#D3DCEE">
<div align="center"><font color="#000000">信件标题：</font></div></td>
            <td height="35" bgcolor="#D3DCEE"> 
            <input name="mailsubject" type="text" value="<%=webname%>" size="50" maxlength="50"></td>
          </tr>
          <tr> 
            <td bgcolor="#D3DCEE">
<div align="center"><font color="#000000">信件内容：</font></div></td>
            <td bgcolor="#D3DCEE"> 
              <textarea name="mailbody" cols="55" rows="10"><%=webname%></textarea>
              <br>
              <br>            </td>
          </tr>
          <tr bgcolor="#336699"> 
             <td height="30" align="center" colspan="2" bgcolor="#ECF5FF"> 
             <%
			 If   IsObjInstalled(theInstalledObjects(13)) Then
			 %> <input type="submit" name="Submit" value=" 发 送 ">&nbsp;&nbsp;
              <input type="button" name="Submit" value=" 取 消 " onClick="javascript:history.back();"> 
            <input type="hidden" name="action" value="我发">  
			 <%
			 end if 
			 %>			         </td>
          </tr>
        </table>
</form>
	  </td>
	</tr>
</table>