以前收集的一些资料---一个使用CDO的邮件列表ASP程序(用户端)

这是用户使用的页面和实现的asp
用户页面：subscrib.html
<BODY BGCOLOR="#ffffff">
<CENTER>
<P>
<table WIDTH=125 BORDER=0 CELLSPACING=0>
<tr>
  <td width="100%" valign="top" align="middle" bgcolor="#0066cc"
    height="20"><strong><font color="#ffffff" size="2" face="Verdana, Arial">
<A NAME="NEWSLETTER">
    信件</font></strong></A></td>
</tr>
<tr>
<td valign="top" bgcolor="#99ccff" width="100%" >
  <font face="Arial, Helvetica" size="1"><font color="#000000">
  <FORM ACTION="subscribe.asp" METHOD="post">
  <INPUT TYPE="radio" NAME="action" VALUE="subscribe" checked>订阅邮件<BR>
  <INPUT TYPE="radio" NAME="action" VALUE="unsubscribe">取消订阅<BR>
  <CENTER>
  <INPUT NAME="email" VALUE="your-email" SIZE=10 MAXLENGTH=100 ><BR>
  <INPUT TYPE="hidden" NAME="datafile" VALUE="subscribe">
  <INPUT TYPE="submit" VALUE="DO IT!"><BR>
  快来加入邮件列表。
  </CENTER></FORM>
           </font>
           </font>
   </td>
</tr>
</table>
</BODY></HTML>
文件名为subscrib.asp
<%
BASEDIR= Server.MapPath("/tmp/maillist")

Forreading = 1
Forwriting = 2
Forappending = 8

delimiter = "|"
linedelimiter = vbCrlf

valid_page

return_to = Request.ServerVariables("HTTP_REFERER")
the_date = date()
ip_addr = Request.ServerVariables("REMOTE

1 2 3 4 5 6 下一页

<< 以前收集的一些资料---介绍一个非常好用的发送邮件的组件以前收集的一些资料---一个使用CDO的邮件列表ASP程序(管理端) >>

查看所有评论