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>