buytestvhostdo.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.Form("ID")
Domain=Request.Form("domain")
DomainHead=Request.Form("domaintop")
MailDomain=Domain
MailPassword=Request.Form("mailpassword")
UserID=session("UserID")
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/SendMail.asp"-->
<%
strSQL="Select a.*,b.ServerIP from v_VHostList a,T_DNS_ServerInfo b Where a.ServerCode=b.ServerCode and a.VHID='" & VHID & "' and a.VHStat='1'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and a.UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此虚拟主机或者您没有权限！</p>"
else
%>
<!--#include file="VHostMenu.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
	ProdYear=Request.Form("ProdYear")
	BuyYear=Request.Form("BuyYear")

	if BuyYear="" or (not IsNumeric(BuyYear)) then
		Response.Write "<br><br><br><p align='center' class='titletext'>请输入购买的年限！"
		Call PrintPageBottom
		Response.End
	end if
	HowLong=Cint(BuyYear)*Cint(ProdYear)
	BeginDate=now()
	EndDate=DateAdd("yyyy",HowLong,BeginDate)
	strEndDate=FormatDate(EndDate)

	Set Rs1 = Server.CreateObject("ADODB.Recordset")
	strSQL="Select HaveMoney+OverMoney as HaveMoney, LevelCode, EMail from T_DNS_UserInfo Where UserID=" & UserID
	Rs1.open strSQL,Cn
	if Rs1.eof then
		Rs1.Close
		Response.Write "<br><br><br><p align='center' class='titletext'>用户错误，无法购买！"
		Call PrintPageBottom
		Response.End
	else
		UserLevel=Rs1("LevelCode")
		HaveMoney=CCur(Rs1("HaveMoney"))
		EMail=Rs1("EMail")
	end if
	Rs1.Close
	
	strSQL="Select ProdPrice from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & UserLevel & "' and ProdYear='" & ProdYear & "'"
	Rs1.open strSQL,Cn
	if Rs1.eof then
		Rs1.Close
		Response.Write "<br><br><br><p align='center' class='titletext'>错误，无法购买1！"
		Call PrintPageBottom
		Response.End
	else
		HowMuch=CInt(HowLong)*CCur(Rs1("ProdPrice"))
		ProdPrice=Rs1("ProdPrice")
	end if
	Rs1.Close


	if HaveMoney<HowMuch then
		Response.Write "<br><br><br><p align='center' class='titletext'>对不起，您的帐户余额不足，请先给您的帐户充值！"
		Call PrintPageBottom
		Response.End
	end if

	'取产品主机大小
	strSQL="Select * from v_ProdInfo where ProdCode='" & Rs("ProdCode") & "' and ProdStat<>'3'"
	Rs1.open strSQL,Cn
	if Rs1.eof then
		Rs1.Close
		Response.Write "<br><br><br><p align='center' class='titletext'>错误，无法购买2！"
		Call PrintPageBottom
		Response.End
	else
		SiteSize=Rs1("SiteSize")
	end if
	Rs1.Close

	
	if ModifyFtpUser(Rs("ServerIP"),Rs("UserName"),"","",CStr(Cint(SiteSize)*1000*1024),strEndDate)<>0 then
		Response.Write "<br><br><P align='center' class='titletext'>购买试用主机失败！请重新尝试...</p>"
		Call PrintPageBottom
		Response.End
	end if
	
	if Trim(Domain)<>"" then
		if IsNULL(DomainHead) or Trim(DomainHead)="" then
			strSQL="Select * from T_DNS_AllBDN Where BDN='" & Domain & "'"
			DD=Domain
		else
			strSQL="Select * from T_DNS_AllBDN Where BDN='" & DomainHead & "." & Domain & "'"
			DD=DomainHead & "." & Domain
		end if
		Rs1.open strSQL,Cn
		if not Rs1.eof then
			Rs1.Close
			Response.Write "此虚拟主机名绑定的域名重复了,请重新输入绑定域名!"
			Call PrintPageBottom
			Response.End
		end if
		Rs1.Close
		
		strSQL="Select * from T_DNS_AllPost where BPostDN='" & MailDomain & "'"
		Rs1.open strSQL,Cn
		if not Rs1.eof then
			Rs1.Close
			Response.Write "此邮局域名重复了!"
			Call PrintPageBottom
			Response.End
		end if
		Rs1.Close
		Set Rs1=Nothing
		
		if AddIISSiteBindings(Rs("ServerIP"),Rs("DNSeq"),":80:" & DD) then
			Response.Write "绑定错误! 错误码: 4"
			Call PrintPageBottom
			Response.End
		end if
		
		Set RsNo= Cn.Execute("SP_PublicNObyRs 'P1080'")
		BDNID=RsNo("Result")
		RsNo.Close
		Set RsNo=Nothing
		
		strSQL="Insert into T_DNS_AllBDN (BDNID,VHID,BDN,APDNTime) values('" & +_
			BDNID & "','" & Rs("VHID") & "','" & DD & "',getdate())"
		Cn.Execute(StrSQL)
		
		strSQL="Update T_DNS_AllVH Set BindDomain='" & DD & "' Where VHID='" & Rs("VHID") & "'"
		Cn.Execute(StrSQL)
	end if
	
	
	strSQL="exec SP_BuyTestHost " & +_
	"" & Rs("UserID") & "," & +_
	"" & Session("UserID") & "," & +_
	"" & HowMuch & "," & +_
	"" & ProdPrice & "," & +_
	"" & HowLong & "," & +_
	"'" & Rs("UOID") & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'"
	Set RsResult = Cn.Execute(strSQL)
	if RsResult("result")="1" then
		Response.Write "<P align='center' class='titletext'>购买试用主机成功，您的主机已经转为正式主机，拥有全部功能！</p>"

		Set Rs2 = Server.CreateObject("ADODB.Recordset")
		strSQL="Select a.*,b.ServerIP from T_DNS_AllVH a,T_DNS_ServerInfo b where a.ServerCode=b.ServerCode and a.VHID='" & VHID & "'"
		'response.write strSQL
		'response.end
		Rs2.open strSQL,Cn
		if not Rs2.eof then
			strUserName=rs2("UserName")
			strVHName=rs2("VHName")
			strBindDomain=rs2("BindDomain")
			strThiDN=rs2("ThiDN")
			strPSW=rs2("PSW")
			strUYear=rs2("UYear")
			strSTime=rs2("STime")
			strETime=strEndDate
			strUserName=rs2("UserName")
			strServerIP=rs2("ServerIP")		
			strDefHomePage=rs2("DefHomePage")
			'发Mail
			Subject="主机开通虚拟主机成功! --" & Opt_System_CompanyName
			MailFile = "../../../Include/MailTemplate/testopen.txt"
			Send_Email Email,Subject,MailFile,"$注册人$",strUserName,"$主机名$",strVHName,"$绑定域名$",strBindDomain,"$系统绑定三级域名$",strThiDN,"$密码$",strPSW,"$年限$",strUYear,"$开通日期$",strSTime,"$到期日期$",strETime,"","","$用户名$",strUserName,"$服务器IP$",strServerIP,"$默认文档$",strDefHomePage
			Response.Write "<P align='center' class='titletext'>已经将购买主机信息发到用户E-Mail:" &Email& "中！</p>"
		end if
		Rs2.Close
		Set Rs2=Nothing
	else
		Response.Write "<br><br><P align='center' class='titletext'>" & RsResult("msg") & "</p>"
	end if
	RsResult.Close
	Set RsResult=Nothing
	
	'==========================如果有赠送邮局=======================================
	if Request.Form("HaveMail")="YES" and Trim(MailDomain)<>"" then
		
		UOID=Rs("UOID")
		
		strSQL="exec SP_CreateMail " & +_
			"'" & UserID & "'," & +_
			"'" & "查询" & "'," & +_
			"'" & Request.ServerVariables("REMOTE_ADDR") & "'," & +_
			"'" & Rs("ProdCode") & "'"
		
		Set Rs1= Cn.Execute(strSQL)
        	
		if Rs1("result")<>0 then
			Response.Write Rs1("msg")
			Rs1.Close
			Call PrintPageBottom
			Response.End
		end if
		ServerCode=Rs1("ServerCode")
		ServerIP=Rs1("ServerIP")
		MailSize=Rs1("MailSize")
		MailUser=Rs1("MailUser")
		MailSiteNum=Rs1("SiteNum")
		BPCode=Rs1("BPCode")
		ProdName=Rs1("ProdName")
		ServerPubIP=Rs1("ServerPubIP")
		Rs1.Close
		
		strSQL="Select * from T_DNS_AllPost where BPostDN='" & MailDomain & "'"
		Rs1.open strSQL,Cn
		if not Rs1.eof then
			Rs1.Close
			Response.Write "此邮局域名重复了,虚拟主机已开通成功!"
			Call PrintPageBottom
			Response.End
		end if
		Rs1.Close
		
		if CreateMailDomain(ServerIP,MailDomain)<>0 then
			Response.Write "建立邮局失败, 请重新尝试! 错误码: 1"
			Call PrintPageBottom
			Response.End
		end if
		
		if CreateMailUser(ServerIP,MailDomain,Opt_System_MailManager,MailPassword,"0")<>0 then
			Response.Write "建立邮局失败, 请重新尝试! 错误码: 2"
			Call PrintPageBottom
			Response.End
		end if
		
		if ChangeMailDomainProp(ServerIP,MailDomain,Opt_System_MailManager & "@" & MailDomain, MailUser, CStr(Cint(MailSize)*1000))<>0 then
			Response.Write "建立邮局失败, 请重新尝试! 错误码: 3"
			Call PrintPageBottom
			Response.End
		end if
		
		if AddIISSiteBindings(ServerIP,MailSiteNum,":80:mail." & MailDomain) then
			Response.Write "建立邮局失败, 请重新尝试! 错误码: 4"
			Call PrintPageBottom
			Response.End
		end if
		
		Set RsNo= Cn.Execute("SP_PublicNObyRs 'P1140'")
		PostID=RsNo("Result")
		RsNo.Close
		Set RsNo=Nothing
		
		strSQL="Insert into T_DNS_AllPost (PostID,UOID,BPCode,STime,UYear,ETime,UserName,PSW,ServerCode,BPostDN,MaxSize,MaxUser,FeeStat,PostStat,UserID,Stat,IfSubmit) values('" & +_
		PostID & "','" & UOID & "','" & BPCode & "',getdate()," & HowLong & ",'" & strEndDate & "','" & Opt_System_MailManager & +_
		"','" & MailPassword & "','" & ServerCode & "','" & MailDomain & "'," & MailSize & "," & MailUser & ",'1','1','" & UserID & "','2','0')"
		Cn.Execute(StrSQL)
		
		strSQL="Update T_DNS_ServerInfo Set RealSize=RealSize+" & MailSize & ",RealUser=RealUser+" & MailUser & " Where ServerCode='" & ServerCode & "'"
		Cn.Execute(StrSQL)
		
		Subject="开通邮局(赠送)成功! --" & Opt_System_CompanyName
		MailFile = "../../Include/MailTemplate/openmail.txt"
		Send_Email Email,Subject,MailFile,"$产品名$(赠送邮局)",ProdName,"$服务器IP$",ServerPubIP,"$绑定域名$",MailDomain,"$年限$",CStr(HowLong),"$密码$",MailPassword,"$用户名$",Opt_System_MailManager & "@" & MailDomain,"$开通日期$",BeginDate,"$到期日期$",strEndDate,"$注册人$",UserName,"","","","","",""
		Response.Write "<P align='center' class='titletext'>已经邮局信息发到用户E-Mail:" &Email& "中！</p>"
		%>
		<P align='center' class='titletext'>
		<form name="form1" method="post" action="BuyTestVHostDo2.asp">
		<input type="hidden" name="ID" value="<%=PostID%>">
		<input type="hidden" name="VHID" value="<%=VHID%>">
		<font color=red>您已经完成支付，试用虚拟主机及邮局购买成功! <br>为保证系统正确建立邮局信息，请点击下面按钮再次确认！</font><br>
		<input type="submit" name="Submit" value="再次确认邮局购买信息" class="button">
		</form>
		</p>
<%
	end if
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>

<%
Function FormatDate(iDate)
	FormatDate=DatePart("yyyy",iDate) & "-" & DatePart("m",iDate) & "-" & DatePart("d",iDate)
End Function
%>