Mail_Send.asp
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 3k
Development Platform:

VBScript

  1. <!--#include file="bsconfig.asp"-->
  2. <% 
  3. set rs=server.createobject("adodb.recordset") 
  4. sql="select * from maildefault order by id desc" 
  5. rs.open sql,conn,1,1   
  6. %>
  7. <!-- #include file="Inc/Head.asp" -->
  8. <BR>
  9. <table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
  10. <tr>
  11. <td class="a1" height="25" align="center"><strong>发 送 邮 件</strong></td>
  12. </tr>
  13. <tr class="a4">
  14. <td align="center">
  15.       <br>
  16. <form name="sendmail" action="Mail_send_to.asp" method="post" >
  17.         <table border="0" cellspacing="2" cellpadding="0" width="550" align="center">
  18.           <tr> 
  19.             <td height="25" bgcolor="#C0C0C0">
  20. <div align="center"><font color="#000000">发信人地址:</font></div></td>
  21.             <td height="30" bgcolor="#E3E3E3"> <input type="text" name="frommail" value="<%=rs("frommail")%>"> 
  22.             </td>
  23.           </tr>
  24.           <tr> <%email=request("email")%>
  25.             <td bgcolor="#C0C0C0">
  26. <div align="center"><font color="#000000">收信人地址:</font></div></td>
  27.             <td bgcolor="#E3E3E3"> 
  28.               <input name="tomail" type="text" value="<%=email%>">
  29.               <br>
  30.               <br>
  31.               <font color="#000000">(如果为空,从数据库取地址群发!) </font></td>
  32.           </tr>
  33.           <tr> 
  34.             <td bgcolor="#C0C0C0">
  35. <div align="center"><font color="#000000">信件标题:</font></div></td>
  36.             <td bgcolor="#E3E3E3"> 
  37.               <input type="text" name="mailsubject" size="50">
  38.               <br> <br>
  39.               <font color="#000000">(如果为空,则显示<font color="#FF0000">“<%=rs("mailsubject")%>”</font>!) 
  40.               </font></td>
  41.           </tr>
  42.           <tr> 
  43.             <td bgcolor="#C0C0C0">
  44. <div align="center"><font color="#000000">信件内容:</font></div></td>
  45.             <td bgcolor="#E3E3E3"> 
  46.               <textarea name="mailbody" cols="50" rows="8"></textarea>
  47.               <br>
  48.               <br>
  49.             </td>
  50.           </tr>
  51.           <tr bgcolor="#336699"> 
  52.             <td height="25" bgcolor="#C0C0C0"> 
  53.               <div align="center"></div></td>
  54.             <td height="22" bgcolor="#E3E3E3"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  55.               <input type="submit" name="Submit" value="发送"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  56.               <input type="reset" name="Submit" value="取消"> <input type="hidden" name="action" value="我发"> 
  57.             </td>
  58.           </tr>
  59.         </table>
  60. </form>
  61. </td>
  62. </tr>
  63. </table>
  64. <BR>
  65. <%htmlend%>