最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP进阶教程Ⅹ:留言簿自动发E-Mail
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
如果你的ASP及WEB数据库的运行平台是IIS4(Internet Information Server 4.0),你可以使用CDONTS.DLL。如果你已经缺省安装过NT 4.0 Option Pack,CDONTS.DLL便存放在你机器的C:WinntSystem32目录下面。有了该组件我们还不能立即应用它,在对它进行应用之前我们必须先完成组件的注册,那么怎样才能对CDONTS.DLL进行注册呢?我们可以在MS-DOS方式下进入到CDONTS.DLL所在的目录C:WinntSystem32下输入:
c:winntsystem32>regsvr32 cdonts.dll
(如果我们想将其御载可用指令: c:winntsystem32>regsvr32/u cdonts.dll)
在完成了组件的注册后,现在我们可以开始来解说如何对该组件的使用。我们可以用下面简单的脚本来给留言簿的添加自动发E-MAIL的功能。
< %
Dim MailObject
Dim Email
Email = Request.form("Email")
Set MailObject = Server.CreateObject("CDONTS.NewMail")
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.Subject = "欢迎您下次再来"
MailObject.Send "你本人的E-MAIL", Email ,"欢迎您下次再来给我们留言。" myMail.Send
Set myMail=Nothing
%>
将上述的代码COPY到manage2.asp 去,一个简单的通过ASP来发送E-MAIL的留言簿就实现了。也许你并不会满意这种发E-MAIL的方式,理由很简单:因为为了答谢你的网友对你的支持,你昨晚熬夜足足写了几千字(也许是我说少了)的感激话语,今早一大早起来才发现原来上述的留言簿竟然未具备发附件的功能,瞧,这有多气人的。还好,原来CDONTS.DLL也可以用来发送附件,事不宜迟,我们立即就将其奉献出来。< %
Dim MailObject
Dim Email Email = Request("Email")
Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_file="D:cwjGO-aspguestbook5email.txt"
f_name="email.txt"
MailObject.From="你本人的E-MAIL"
MailObject.To = Email
MailObject.Subject="感谢您对我们工作的支持"
MailObject.Body="感谢您对我们工作的支持"
-
上一个: ASP进阶教程Ⅸ:留言查询功能(一)
-
下一个: 正则表达式应用范例(转)
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14