| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 990 人关注过本帖
标题:asp 如何实现 定时发 送 mail?
只看楼主 加入收藏
gesongs
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:129
专家分:100
注 册:2011-7-7
结帖率:52.78%
收藏
已结贴  问题点数:0 回复次数:2 
asp 如何实现 定时发 送 mail?
如下代码  从一论坛里 摘来的 说 文件名必须是global.asa 一定要放在网站的根目录下
照做了 但是 没有运行
与last-update.txt这个有文件名有关吗?这个文件放在哪?里面的 时间格式 是什么样的?
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("SessionCount") = 0
End Sub

Sub Session_OnStart
Application.Lock
Application("SessionCount") = Application("SessionCount") + 1
Application.Unlock
If Application("SessionCount") > 15 Then
Application.Lock
Application("SessionCount") = 0
Application.Unlock
Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set OpenMyFile = ObjMyFile.OpenTextFile(Server.MapPath("last-update.txt"))
MyFileValue = OpenMyFile.ReadLine '读取被保存在last-update.txt中的上一次执行的时间
OpenMyFile.Close
If DateDiff("h",MyFileValue,NOW) > 1 Then '每24小时定时运行一次
' 这里输入你要运行的程序
' 不需要添加<%与%>标签
' 例如:向会员发送一封邮件
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "songge@
myMail.To = "songge@
myMail.Subject = "Your Password"
myMail.Body = "This is a Your Password:" & sPassword
myMail.Send
Set myMail = Nothing

Set WriteMyFile = ObjMyFile.CreateTextFile(Server.MapPath("last-update.txt"))
WriteMyFile.WriteLine(NOW) '保留当前运行的时间,以便供下次使用,这个时间也可以保存到数据库中,这里就直接放到一个记事本中了。
WriteMyFile.Close
End if
End If
End Sub
</SCRIPT>
搜索更多相关主题的帖子: 如何 网站 根目录 
2011-09-25 08:37
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:7 
有关联,那个txt文本文件要与global.asa放在同一个目录下,这个的原理就是当用户访问网站时就发送一次邮件。
2011-09-26 13:33
whoamixp
Rank: 1
等 级:新手上路
帖 子:2
专家分:7
注 册:2008-9-24
收藏
得分:7 
正在学习这方面的东东,多谢!
2011-09-27 22:29
快速回复:asp 如何实现 定时发 送 mail?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016788 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved