notifydo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0825" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
SendType=Request.Form("Type")
MType=Request.Form("ViewType")
if MType="" then
	MType="1"
end if
PID=Request.Form("PID")
if Trim(PID)="" then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 请选择需要发送续费通知的对象！</p>"
	Call PrintPageBottom
	Response.End
end if
%>
<!--#include file="NotifyMenu.asp"-->
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/SendMail.asp"-->
<br><br><center>
<%
UIDs=Split(PID,", ")

Set Rs= Server.CreateObject("ADODB.Recordset")
Select Case SendType
	Case "domain"
		For I=0 to UBound(UIDs)
			strSQL="Select a.DomainName,a.UserID,a.ETime,b.UserName,b.Email from T_DNS_AllDN a, T_DNS_UserInfo b Where a.UserID=b.UserID and DNID='" & UIDs(I) & "'"
			Rs.open strSQL,Cn
			If Not Rs.Eof Then
				Subject="提示：您的域名即将过期 -- " & Opt_System_CompanyName
				MailFile = "../../Include/MailTemplate/domainover.txt"
				if Send_Email(Rs("Email"),Subject,MailFile,"$注册人$",Rs("UserName"),"$注册域名$",Rs("DomainName"),"$到期时间$",FormatDateTime(Rs("ETime"),vbShortDate),"","","","","","","","","","","","","","","","","","") then
					'strSQL="update T_DNS_AllDN Set MailTimes=MailTimes+1 where DNID='" & UIDs(I) & "'"
					strSQL="SP_AddMailTimes '0','" & UIDs(I) & "'"
					Cn.Execute(strSQL)
					Response.Write "<li>通知邮件已成功发送到用户" & Rs("UserID") & "(" & Rs("UserName") & ") 的邮箱" & Rs("Email") & "中"
				else
					Response.Write "<li>通知邮件发送到用户" & Rs("UserID") & "(" & Rs("UserName") & ") 的邮箱" & Rs("Email") & "<font color=red>失败</font>"
				end if
			end if
			Rs.Close
		Next		
	Case "vhost"
		For I=0 to UBound(UIDs)
			strSQL="Select a.*,b.UserName,b.Email from v_VHostList a, T_DNS_UserInfo b Where a.UserID=b.UserID and VHID='" & UIDs(I) & "'"
			Rs.open strSQL,Cn
			If Not Rs.Eof Then
				Select Case MType
					Case "1"
						Subject="提示：您的虚拟主机即将过期 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/willover.txt"
					Case "2"
						Subject="提示：您的虚拟主机已经过期 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/alreadyover.txt"
					Case "3"
						Subject="提示：您的虚拟主机已经删除 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/delete.txt"
					Case "4"
						Subject="提示：您试用的虚拟主机已经到期,系统将自动删除 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/deltest.txt"
				End Select
				if Send_Email(Rs("Email"),Subject,MailFile,"$注册人$",Rs("UserName"),"$产品名$",Rs("ServerType"),"$主机名$",Rs("VHName"),"$开通日期$",FormatDateTime(Rs("STime"),vbShortDate),"$到期日期$",FormatDateTime(Rs("ETime"),vbShortDate),"$删除日期$",FormatDateTime(DateAdd("d",Sys_Opt_OverDays,Rs("ETime")),vbShortDate),"$绑定域名$",Rs("BindDomain"),"$系统绑定三级域名$",Rs("ThiDN"),"$年限$",Rs("UYear"),"$服务器IP$",Rs("ServerPubIP"),"$空间大小$",Rs("MaxSize"),"$试用期$",Sys_Opt_ProdTryDays) then
					'strSQL="update T_DNS_AllVH Set MailTimes=MailTimes+1 where VHID='" & UIDs(I) & "'"
					strSQL="SP_AddMailTimes '1','" & UIDs(I) & "'"
					Cn.Execute(strSQL)
					Response.Write "<li>通知邮件已成功发送到用户" & Rs("UserID") & "(" & Rs("UserName") & ") 的邮箱" & Rs("Email") & "中"
				else
					Response.Write "<li>通知邮件发送到用户" & Rs("UserID") & "(" & Rs("UserName") & ") 的邮箱" & Rs("Email") & "<font color=red>失败</font>"
				end if
			end if
			Rs.Close
		Next
	Case "mail"
		For I=0 to UBound(UIDs)
			strSQL="Select a.*,b.UserName,b.Email from v_MailList a, T_DNS_UserInfo b Where a.UserID=b.UserID and PostID='" & UIDs(I) & "'"
			Rs.open strSQL,Cn
			If Not Rs.Eof Then
				Select Case MType
					Case "1"
						Subject="提示：您的邮局即将过期 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/mailwillover.txt"
					Case "2"
						Subject="提示：您的邮局已经过期 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/mailhasover.txt"
					Case "3"
						Subject="提示：您的邮局已经删除 -- " & Opt_System_CompanyName
						MailFile = "../../Include/MailTemplate/maildel.txt"
				End Select
				if Send_Email(Rs("Email"),Subject,MailFile,"$注册人$",Rs("UserName"),"$产品名$",Rs("MailType"),"$绑定域名$",Rs("BPostDN"),"$开通日期$",FormatDateTime(Rs("STime"),vbShortDate),"$到期日期$",FormatDateTime(Rs("ETime"),vbShortDate),"$删除日期$",FormatDateTime(DateAdd("d",Sys_Opt_OverDays,Rs("ETime")),vbShortDate),"$服务器IP$",Rs("ServerPubIP"),"$年限$",Rs("UYear"),"","","","","","","","") then
					'strSQL="update T_DNS_AllPost Set MailTimes=MailTimes+1 where PostID='" & UIDs(I) & "'"
					strSQL="SP_AddMailTimes '2','" & UIDs(I) & "'"
					Cn.Execute(strSQL)
					Response.Write "<li>通知邮件已成功发送到用户" & Rs("UserID") & "(" & Rs("UserName") & ") 的邮箱" & Rs("Email") & "中"
				else
					Response.Write "<li>通知邮件发送到用户" & Rs("UserID") & "(" & Rs("UserName") & ") 的邮箱" & Rs("Email") & "<font color=red>失败</font>"
				end if
			end if
			Rs.Close
		Next
End Select

Cn.Execute("SP_UserOP "& session("UserID")& ",'N/A','发送续费通知','" & FormatDateTime(Now(),vbShortDate) & "','" & SendType & "','"& Request.ServerVariables("REMOTE_ADDR") &"'" )

Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>