如下代码  从一论坛里 摘来的 说 文件名必须是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>

有关联，那个txt文本文件要与global.asa放在同一个目录下，这个的原理就是当用户访问网站时就发送一次邮件。

正在学习这方面的东东，多谢！