⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mail_send.asp

📁 使用Asp+Access+FSO+Jmail+Servu开发
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="admin.asp"-->

<%
chk_admin_login(3)
set rs=server.createobject("adodb.recordset") 
sql="select * from config" 
rs.open sql,conn,1,1  
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
<script language="jscript">
<!--
function dis(){
document.send.Submit.value='正在发送邮件...'
document.send.Submit.disabled=true;
return true;
}
//-->
</script>
</head>
<body>
<table border="1" align=center cellpadding="4" cellspacing="0" class="table-line">
  <form name="send" action="mail_sendto.asp" method=post onSubmit="return dis();">
    <tr align="center" class=td-title-color> 
      <td colspan="4"><table  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td class="shadow">群 发 邮 件</td>
        </tr>
      </table>      </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td class=forumrow>发件人姓名:</td>
      <td colspan="3" class=forumrow> <input name=name type=text size=30 value="<%=rs("site")%>"> 
      <FONT color=#ff0000>*</FONT></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td class=forumrow>发件人E-mail:</td>
      <td colspan="3" class=forumrow> <input name=email type=text size=30 value="<%=rs("siteemail")%>"> 
      <FONT color=#ff0000>*</FONT></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td class=forumrow>收件人地址:</td>
      <td colspan="3" class=forumrow> <input name=toemail type=text size=30 value="<%=Trim(Request.QueryString("toemail"))%>"> 
      <FONT color=#ff0000>* </FONT>(如果为空,则向所有用户发送)</td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td class=forumrow>邮件标题:</td>
      <td colspan="3" class=forumrow> <input name=subject type=text id="subject" value="<%=rs("subject")%>" size=30> 
      <FONT color=#ff0000>*</FONT></td>
    </tr>
    <tr class=td-body-color> 
      <td>邮件内容:</td>
      <td colspan="3" class=td-body-color> <textarea name="body" cols=50 rows=6 id="body"></textarea> 
      <FONT color=#ff0000>*</FONT></td>
    </tr>
    <tr> 
      <td height="25" colspan="4" align="center" class=forumrow> 
        <input type="Submit" value="发送邮件" name="Submit"> 
        &nbsp; <input type="reset" name="Clear" value="重新填写">
      </td>
    </tr>
  </form>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="30" align="center"> <a href="http://www.9cool.net" target="_blank">九酷邮件发送系统商业专用版V1.0</a></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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