站内搜索
分类列表
本类阅读排行
本类推荐文章
- ASP技巧：让Len,Left,Right函数识...
- 用ASP实现IE地址栏参数的判断
- 如何实现ASP.NET网站个性化
- 如何在Asp.net中使用HtmlArea编辑...
- 用ASP.Net实现在线压缩和解压缩
- ASP实现不存在的网页就自动发送邮...
- 用ASP取出HTML里面的图片地址的函...
- asp.net跳转页面的三种方法比较
- 一个Winsock组件
- 用WinSock设计Chat程序(转)
- 在MFC应用中深入定制WebBrowser控...
- 这几天有人问关于编应.dll的问题，...
- 在Visual J++中编写ASP COM组件(转...
- 一个显示Grid的VBScript对象
- 好东西，快来看呀：（转载自中华网...
广告
以前收集的一些资料---一个使用CDO的邮件列表ASP程序(用户端)
作者： 来源： 点击： 日期：2007-3-29 23:34:34
这是用户使用的页面和实现的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_ADDR")
datafile = Request.Form("datafile") & ".lst"
email = Request.Form("email")
action = Request.Form("action")
if datafile = "" then
Response.Write "配置出错: 没有选择数据文件<br>"
Response.End
用户页面：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_ADDR")
datafile = Request.Form("datafile") & ".lst"
email = Request.Form("email")
action = Request.Form("action")
if datafile = "" then
Response.Write "配置出错: 没有选择数据文件<br>"
Response.End
以前收集的一些资料---一个使用CDO的邮件列表ASP程序(用户端) 评论