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

📄 sendmailall.asp

📁 一个公司营销系统
💻 ASP
字号:
<%
if session("username")="" or session("password")="" then
   session.timeout=5
   response.write "<script language='javascript'>"
   response.write "alert('账号或密码错误!');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
end if
%>
<!--#include file="../conn.asp"-->
<%
set rs=server.createobject("adodb.recordset") 
sql="select * from maildefault order by id desc" 
rs.open sql,conn,1,1   
%> 
<html>
<head>
<title>邮件发送</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css.css" type="text/css">
</head>
<body bgcolor="#7bb5de" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="2" hspace="0" height="28" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td height="28" background="../Images/lvbg.gif"> 
      <div align="center"><font color="#FFFFFF"><b>
        <font color="#000000" style="font-size: 14px">.:: 邮件群发程序-群发全部会员 ::.</font></b></font></div>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="50"> </td>
  </tr>
</table>
<form name="sendmail" action="sendmailtoall.asp" method="post" >
  <div align="center">
    <center>
  <table border="1" cellspacing="0" cellpadding="4" bgcolor="#000000" width="80%" style="border-collapse: collapse" bordercolor="#111111">
    <tr> 
      <td height="30" bgcolor=#C9D8AD align="right" width="160">
      <font style="font-size: 14px; font-weight: 700">发信人地址:</font></td>
      <td height="30" bgcolor=#C9D8AD width="578"> 
        <input type="text" name="frommail" value="<%=rs("frommail")%>" size="20">
      </td>
  </tr>
    <tr> 
      <td height="76" bgcolor=#AEC38D align="right" width="160">
      <font style="font-size: 14px; font-weight: 700">收信人地址:</font></td>
      <td height="75" bgcolor=#AEC38D width="578"> 
        <input type="text" name="tomail" size="20"><p><font style="font-size: 14px">
        (如果为空,从数据库取地址群发!^&amp;^) </font></td>
  </tr>
    <tr> 
      <td height="30" bgcolor=#C9D8AD align="right" width="160">
      <font style="font-size: 14px; font-weight: 700">信件标题:</font></td>
      <td height="75" bgcolor=#C9D8AD width="578"> 
        <input type="text" name="mailsubject" size="50"><p><font style="font-size: 14px">(如果为空,则显示“<%=rs("mailsubject")%>”!^&amp;^)</font></td>
  </tr>
    <tr> 
      <td height="186" bgcolor=#AEC38D align="right" width="160">
      <font style="font-size: 14px; font-weight: 700">信件内容:</font></td>  
      <td height="186" bgcolor=#AEC38D width="578"> 
        <textarea name="mailbody" cols="67" rows="10"></textarea><br>
      </td>
  </tr>
    <tr bgcolor=#0080C0> 
      <td height="53" bgcolor="#C9D8AD" width="160"> </td>
      <td height="53" bgcolor="#C9D8AD" width="578"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="submit" name="Submit" value="  发送  " class="lkbtn">
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input type="reset" name="Submit" value="  取消  " class="lkbtn">
        <input type="hidden" name="action" value="我发">
      </td>
  </tr>
</table></center>
  </div>
</form>
</body>
</html>

⌨️ 快捷键说明

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