read.asp

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

<%If Request("key") <>"" Then'判断是否来自index.asp开始%>
<!--#include file="Inc/MD5.asp" -->
<!--#include file="Inc/head.asp" -->
<%
'判断来自index.asp所传递的key是否正确开始
Dim ReadKeyRS__MMColParam
ReadKeyRS__MMColParam = "0"
If (Trim(Request("key")) <> "") Then
  ReadKeyRS__MMColParam = Trim(Request("key"))
End If
%>
<%
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] WHERE ReadKey = ?" 
ReadKeyRS_cmd.Prepared = true
ReadKeyRS_cmd.Parameters.Append ReadKeyRS_cmd.CreateParameter("param1", 200, 1, 2048, ReadKeyRS__MMColParam) ' adVarChar

Set ReadKeyRS = ReadKeyRS_cmd.Execute
ReadKeyRS_numRows = 0


If ReadKeyRS.EOF And ReadKeyRS.BOF Then'为空
	Response.Redirect("Error.asp?ErrorInfo=错误！请勿随意修改私密信息阅读地址！或信息已被销毁！")
End If ' end ReadKeyRS.EOF And ReadKeyRS.BOF 为空

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

Dim JiluTime
JiluTime = (ReadKeyRS.Fields.Item("NowTime").Value)

Dim NowTime,StartTime,ClossTime
NowTime = Now()
StartTime = DateDiff("s",NowTime,(ReadKeyRS.Fields.Item("ReadTimeStart").Value))
ClossTime = DateDiff("s",(ReadKeyRS.Fields.Item("ReadTimeClose").Value),NowTime)

		if StartTime > "86400" Then
			STd = Int(StartTime/86400)
			Response.Redirect("Error.asp?ErrorInfo=错误！距离信息发送者允许的 开始阅读时间 约还有【"&STd&"】天，今天是看不了了~")
		Elseif StartTime > "3600" Then
			STh = Int(StartTime/3600)
			Response.Redirect("Error.asp?ErrorInfo=错误！距离信息发送者允许的 开始阅读时间 约还有【"&STh&"】小时，别急~喝口茶再来也不迟~")	
		Elseif StartTime > "60" Then
			STn = Int(StartTime/60)
			Response.Redirect("Error.asp?ErrorInfo=错误！距离信息发送者允许的 开始阅读时间 还有【"&STn&"】分钟，稍等一下下~")
		Elseif StartTime > "0" Then
			Response.Redirect("Error.asp?ErrorInfo=错误！距离信息发送者允许的 开始阅读时间 只有【"&StartTime&"】秒~马上可以看了~")
		End if
	
		if ClossTime > "0" Then
	'阅读发信通知发送者开始
	toemail = (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&"信息阅读超时【"&ClossTime&"】秒，自动销毁通知邮件" '邮件标题
	jmail.body = "<p>您发送给："&(ReadKeyRS.Fields.Item("ReaderEmail").Value)&" 要求在 "&(ReadKeyRS.Fields.Item("ReadTimeStart").Value)&" 到 "&(ReadKeyRS.Fields.Item("ReadTimeClose").Value)&" 之间阅读的私密信息，阅读者在 "&Now()&" 进行阅读时，由于超过允许阅读时间【"&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 '关闭对象
	'阅读发信通知发送者结束
			'删除信息记录开始
			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

			'删除信息记录结束

			Response.Redirect("Error.asp?ErrorInfo=错误！超过信息发送者允许的 结束阅读时间【"&ClossTime&"】秒！信息被销毁了！")
		End if

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


ReadKeyRS.Close()
Set ReadKeyRS = Nothing
'判断来自index.asp所传递的key是否正确结束
%>
<%
Dim ReadRS__MMColParam
ReadRS__MMColParam = "0"
If (Request("ReadPassW") <> "") Then
  ReadRS__MMColParam = MD5(MD5(Request("ReadPassW")&JiluTime))
End If
%>
<%
Dim ReadRS
Dim ReadRS_cmd
Dim ReadRS_numRows

Set ReadRS_cmd = Server.CreateObject ("ADODB.Command")
ReadRS_cmd.ActiveConnection = MM_CONN_STRING
ReadRS_cmd.CommandText = "SELECT * FROM [NoteTable] WHERE ReadKey = ?" 
ReadRS_cmd.Prepared = true
ReadRS_cmd.Parameters.Append ReadRS_cmd.CreateParameter("param1", 200, 1, 32, ReadRS__MMColParam) ' adVarChar

Set ReadRS = ReadRS_cmd.Execute
ReadRS_numRows = 0

%>

<%if Request("ReadPassW") <> "" Then'判断阅读密钥不为空开始%>
<% If Not ReadRS.EOF Or Not ReadRS.BOF Then '不为空%>
<%
if (ReadRS.Fields.Item("ReadNumber").Value) <= "0" Then'判断阅读次数开始

	'阅读发信通知发送者开始
	toemail = (ReadRS.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&"信息已被阅读通知邮件" '邮件标题
	'获取系统安装路径开始
	k=split("" & Request.ServerVariables("PATH_INFO") & "","/") 
	n=ubound(k) 
	FileName=k(n)
	menu = replace(Request.ServerVariables("PATH_INFO"),FileName,"")
	host = Request.ServerVariables("Http_Host")
	URL = "http://"&host&menu
	'Response.Write URL
	'获取系统安装路径结束
	jmail.body = "<p>您发送给："&(ReadRS.Fields.Item("ReaderEmail").Value)&" 的私密信息由于超过阅读次数，已经在 "&Now()&" 自动销毁。</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 = (ReadRS.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

'删除信息记录结束

Response.Redirect("Error.asp?ErrorInfo=错误！已经超过允许的阅读次数！信息被销毁！")
End if'判断阅读次数结束
%>

<%

'解密开始
if NoteJiaMi = "1" Then
Set objEncrypt = Server.CreateObject("myEncrypt.clsEncrypt")
objEncrypt.KeyCode = Request("ReadPassW")
  txt = objEncrypt.unEncrypt(ReadRS.Fields.Item("Message").Value)
Set objEncrypt = Nothing
Elseif NoteJiaMi = "0" Then
  txt = (ReadRS.Fields.Item("Message").Value)
End if
'解密结束
%>
<%
Dim CTime
CTime = DateDiff("s",Now(),(ReadRS.Fields.Item("ReadTimeClose").Value))
%>