delouttime.asp

私密信息系统-PrivNote System v20080719 很好用的大家试试看

<%
Dim ReadKeyRS
Dim ReadKeyRS_cmd
Dim ReadKeyRS_numRows

Set ReadKeyRS_cmd = Server.CreateObject ("ADODB.Command")
ReadKeyRS_cmd.ActiveConnection = MM_CONN_STRING
ReadKeyRS_cmd.CommandText = "SELECT * FROM [NoteTable]" 
ReadKeyRS_cmd.Prepared = true

Set ReadKeyRS = ReadKeyRS_cmd.Execute
ReadKeyRS_numRows = 0

Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
ReadKeyRS_numRows = ReadKeyRS_numRows + Repeat1__numRows


While ((Repeat1__numRows <> 0) AND (NOT ReadKeyRS.EOF)) 


If Not ReadKeyRS.EOF Or Not ReadKeyRS.BOF Then'不为空

CTime = (ReadKeyRS.Fields.Item("ReadTimeClose").Value)
NowTime = Now()
RNUM = (ReadKeyRS.Fields.Item("ReadNumber").Value)
ClossTime = DateDiff("s",CTime,NowTime)

if ClossTime > 0 Then'判断阅读结束时间超过现在开始
	'阅读发信通知发送者开始
	toemail = Trim(ReadKeyRS.Fields.Item("SenderEmail").Value) '邮件将发送的地址
	set jmail = Server.CreateObject("jmail.message") '创建组件
	jmail.silent = true '开启错误码
	jmail.logging = true '打开日记访问
	jmail.charset = "gb2312" '邮件编码
	jmail.contentType = "text/html" '邮件格式（HTML:text/html）
	jmail.addrecipient toemail '邮件发送地址
	jmail.from = fromemail '发送邮件者地址
	jmail.FromName = ""&sysName&"特快专递"
	jmail.subject = ""&sysName&"信息阅读超时无任何操作，系统自动批量销毁通知邮件" '邮件标题
	jmail.body = "<p>您发送给："&(ReadKeyRS.Fields.Item("ReaderEmail").Value)&" 要求在 "&(ReadKeyRS.Fields.Item("ReadTimeStart").Value)&" 到 "&(ReadKeyRS.Fields.Item("ReadTimeClose").Value)&" 之间阅读的私密信息，由于超过允许阅读时间【"&ClossTime&"】秒，阅读者无任何操作，已经在 "&Now()&" 由本系统批量自动销毁。<br />消息剩余阅读次数："&(ReadKeyRS.Fields.Item("ReadNumber").Value)&"次</p><br />阅读者无任何操作！<p>（提醒：本邮件为系统自动发送 请勿回复 谢谢！） <br /><br />本邮件发出时系统时间为：["&NowTime&"] </p>" '邮件内容
	jmail.mailserverusername = username '登录邮件服务器用户名
	jmail.mailserverpassword = pass '登录邮件服务器密码
	jmail.priority = 3 '优先级（1-5）5为最高
	jmail.send(servername) '邮件发送
	set jmail = nothing '关闭对象
	'阅读发信通知发送者结束
'wscript.echo "超时通知发送者"&toemail&"完成！"

	'阅读发信通知接收者开始
	toemail = Trim(ReadKeyRS.Fields.Item("ReaderEmail").Value) '邮件将发送的地址
	set jmail = Server.CreateObject("jmail.message") '创建组件
	jmail.silent = true '开启错误码
	jmail.logging = true '打开日记访问
	jmail.charset = "gb2312" '邮件编码
	jmail.contentType = "text/html" '邮件格式（HTML:text/html）
	jmail.addrecipient toemail '邮件发送地址
	jmail.from = fromemail '发送邮件者地址
	jmail.FromName = ""&sysName&"特快专递"
	jmail.subject = ""&sysName&"信息阅读超时无任何操作，系统自动批量销毁通知邮件" '邮件标题
	jmail.body = "<p>您的朋友："&(ReadKeyRS.Fields.Item("SenderEmail").Value)&" 要求您在 "&(ReadKeyRS.Fields.Item("ReadTimeStart").Value)&" 到 "&(ReadKeyRS.Fields.Item("ReadTimeClose").Value)&" 之间阅读的私密信息，由于超过允许阅读时间【"&ClossTime&"】秒您无任何操作，已经在 "&Now()&" 由本系统批量自动销毁。<br />消息剩余阅读次数："&(ReadKeyRS.Fields.Item("ReadNumber").Value)&"次</p><p>（提醒：本邮件为系统自动发送 请勿回复 谢谢！） <br /><br />本邮件发出时系统时间为：["&NowTime&"] </p>" '邮件内容
	jmail.mailserverusername = username '登录邮件服务器用户名
	jmail.mailserverpassword = pass '登录邮件服务器密码
	jmail.priority = 3 '优先级（1-5）5为最高
	jmail.send(servername) '邮件发送
	set jmail = nothing '关闭对象
	'阅读发信通知接收者结束

'删除信息记录开始
DelKey = (ReadKeyRS.Fields.Item("ReadKey").Value)
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_CONN_STRING
    MM_editCmd.CommandText = "DELETE FROM [NoteTable] WHERE ReadKey = ?"
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 200, 1, 32, DelKey) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
'删除信息记录结束
End if'判断阅读结束时间超过现在结束

if RNUM < 1 Then'判断阅读次数小于1开始

	'阅读发信通知发送者开始
	toemail = Trim(ReadKeyRS.Fields.Item("SenderEmail").Value) '邮件将发送的地址
	set jmail = Server.CreateObject("jmail.message") '创建组件
	jmail.silent = true '开启错误码
	jmail.logging = true '打开日记访问
	jmail.charset = "gb2312" '邮件编码
	jmail.contentType = "text/html" '邮件格式（HTML:text/html）
	jmail.addrecipient toemail '邮件发送地址
	jmail.from = fromemail '发送邮件者地址
	jmail.FromName = ""&sysName&"特快专递"
	jmail.subject = ""&sysName&"信息阅读次数超过无任何操作，系统自动批量销毁通知邮件" '邮件标题
	jmail.body = "<p>您发送给："&(ReadKeyRS.Fields.Item("ReaderEmail").Value)&" 要求在 "&(ReadKeyRS.Fields.Item("ReadTimeStart").Value)&" 到 "&(ReadKeyRS.Fields.Item("ReadTimeClose").Value)&" 之间阅读的私密信息，由于允许阅读次数剩余【"&RNUM&"】次，已经在 "&Now()&" 由本系统批量自动销毁。<br />消息剩余阅读次数："&(ReadKeyRS.Fields.Item("ReadNumber").Value)&"次</p><br />阅读者本次阅读操作未成功！<p>（提醒：本邮件为系统自动发送 请勿回复 谢谢！） <br /><br />本邮件发出时系统时间为：["&NowTime&"] </p>" '邮件内容
	jmail.mailserverusername = username '登录邮件服务器用户名
	jmail.mailserverpassword = pass '登录邮件服务器密码
	jmail.priority = 3 '优先级（1-5）5为最高
	jmail.send(servername) '邮件发送
	set jmail = nothing '关闭对象
	'阅读发信通知发送者结束
'wscript.echo "超过次数通知发送者"&toemail&"完成！"

'删除信息记录开始
DelKey = (ReadKeyRS.Fields.Item("ReadKey").Value)
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_CONN_STRING
    MM_editCmd.CommandText = "DELETE FROM [NoteTable] WHERE ReadKey = ?"
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 200, 1, 32, DelKey) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
'wscript.echo "超过次数删除完成"
'删除信息记录结束
End if'判断阅读次数小于1结束

End If ' end Not ReadKeyRS.EOF Or NOT ReadKeyRS.BOF 不为空

  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  ReadKeyRS.MoveNext()
Wend

ReadKeyRS.Close()
Set ReadKeyRS = Nothing
%>