send_mail.asp

网络办公系统源码

<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="Phone_Fun.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
email=replace(trim(request("email"))," ","")
bemail=split(email,",")
txt=replace(trim(request("txt")),Chr(13),"<br>")
title=replace(trim(request("title")),"'","")

act=request.QueryString("act")
if act="send" then
	for i=0 to ubound(bemail)
		sendmail bemail(i),title,txt
	next
end if
%>
<link href="../img/Style.css" type=text/css rel=stylesheet>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0" class="TableBorder">
	<form name="form1" method="POST" action="send_mail.asp?act=send" onSubmit="return CheckForm();">
	<tr>
		<th colspan="2" align="center"> <span class="TableRow1">发送手机短信<%=MailServer%></span></th>
	</tr>
	
	<tr>
	<td colspan="2" class="TableRow1"> <fieldset style="cursor: default">
	<legend>&nbsp;发送邮件</legend>
	<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
	
		<tr>
			<td width="20%" align="right" class="TableRow1"><div class="divbody"> 邮件地址：</div></td>
			<td class="TableRow1" width="80%">
			  <textarea name="email" cols="50" rows="5" id="email"></textarea>
		      <span class="tablebody1">
		      <input type="button" class="Button" value="选择人员" border="0" onclick="javascript:void(openurl('selectmail.asp'))" >
			</span></td>
		</tr>
	
		<tr>
		  <td align="right" class="TableRow1">&nbsp;</td>
		  <td class="TableRow1">地址之间用“,”隔开,中间不要有空格,地址不要多余10个</td>
		  </tr>
		<tr>
		  <td align="right" class="TableRow1">邮件主题： </td>
		  <td class="TableRow1"><input name="title" type="text" class="TableRow1" id="title" size="50">
		    *</td>
		  </tr>
		<tr>
		  <td align="right" class="TableRow1"> 邮件信息： </td>
		  <td class="TableRow1"><textarea name="txt" cols="50" rows="8" id="txt"></textarea></td>
		  </tr>
		<tr>
		  <td width="20%" align="right" class="TableRow1"><div class="divbody"></div></td>
		  <td width="80%" class="TableRow1">&nbsp; </td>
	  </tr>
	</table>
	</fieldset>	</td>
	</tr>
	<tr>
	<td width="20%" align="center" class="TableRow2">&nbsp;</td>
	<td width="80%" align="left" class="TableRow2"><input type="submit" value="发送信息" name="B1" class=Button>
&nbsp;&nbsp;
<input type="reset" value=" 重置 " name="B12" class="Button" /></td>
	</tr>
	</form>
</table>
<%
Call closeconn()
%>
<script language="javascript">
function CheckForm()
{
    var objFrm=document.form1;
	if(objFrm.email.value=="")
	{
		alert("请按要求输入邮件地址！");
		objFrm.email.focus();
		return false;
	}
	if(objFrm.title.value=="")
	{
		alert("请输入邮件主题！");
		objFrm.title.focus();
		return false;
	}
	return true;

}
</script>

<script   language="javascript">   
  function   openurl(url)   
  {   
      window.open(url,"_blank","left=200,top=200,width=400,height=200,resizable=yes");   
  }   
  </script>