upgradevh3.asp

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

<%
if request("T")="3" then
	ModuleCode="M0510"
else
	ModuleCode="M0410"
end if
%>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%

T=request("T")
ProdTypeName=request("ProdTypeName")
VHName=request("VHName")
'记录人
UserID=request("UserID")
'操作人
UserID2=session("UserID")

ProdName=request("ProdName")
ProdName2=request("ProdName2")

'新产品编号
ProdCode=request("ProdCode")

UOID=request("UOID")
VHID=request("VHID")
'增加金额
PD0=request("PD0")

ppp=1
strSQL="exec SP_Upgrade_Fee '"& T & "','" & ProdCode & "','" & VHID & "'"

set Rs2=Cn.Execute(strSQL)
If Rs2("result")="0" Then
	strMSG=Rs2("msg")
	ppp=0
else
	PD0=rs2("TotPrice")
	'通过
	ppp=1 
	
	'是否余额不足
	set Rs=Cn.Execute("SP_Upgrade '1',"&UserID&","&UserID2&","&PD0&",'"&ProdCode&"','"&UOID&"','"&Request.ServerVariables("REMOTE_ADDR")&"'" )
	If Rs("result")="0" Then
		ppp=0
		strMSG=Rs("msg")
	else
		'发送数据包，更新注册数据
		if rs("Inc1")="1" then '主机
			'虚拟主机类型
			'response.write Rs("ServerIP")&Rs("DNSeq")&Rs("ProdMap")
			'response.end
			if SetServerType(Rs("ServerIP"),Rs("DNSeq"),Rs("ProdMap"))<>0 then
				ppp=0
				strMSG="虚拟主机类型升级失败1！请重新尝试..."
			end if
			if (ppp=1) then
				'虚拟主机大小
				if ModifyFtpUser(Rs("ServerIP"),Rs("UserName"),"","",CStr(Cint(Rs("MaxSize"))*1000*1024),"")<>0 then
					ppp=0
					strMSG="虚拟主机空间升级失败2！请重新尝试..."
				end if			
			end if	
			if (ppp=1) then
				'虚拟主机最大连接数
				if SetMaxConnections(Rs("ServerIP"),Rs("DNSeq"),Rs("MaxIIS"))<>0 then
					ppp=0
					strMSG="虚拟主机空间升级失败3！请重新尝试..."
				end if			
			end if
		end if
		if rs("Inc2")="1" then '邮局
			if ChangeMailDomainProp(Rs("ServerIP2"),Rs("BPostDN"),Opt_System_MailManager & "@" & Rs("BPostDN"), Rs("MaxUser"), CStr(Cint(Rs("MaxSize2"))*1000))<>0 then
				ppp=0
				strMSG="邮局升级失败！请重新尝试..."
			end if
		end if
	end if
	RS.close
	Set Rs=Nothing
	
	'执行存储过程，用户扣款 公司入款 更新订单表 修改产品
	if ppp=1 then
		set RS=Cn.Execute("SP_Upgrade '2',"&UserID&","&UserID2&","&PD0&",'"&ProdCode&"','"&UOID&"','"&Request.ServerVariables("REMOTE_ADDR")&"'" )
		strMSG=RS("msg")
		Rs.close
		Set Rs=Nothing
	end if
end if

Cn.Close
Set Cn=Nothing
%>
	  <table width="60%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
		<tr bgcolor="<%=Opt_TR_BGColor%>">
		  <td colspan=2  bgcolor="<%=Opt_TR_BGColor%>" align=center>
		    <%=ProdTypeName%>产品<font color=red><%=VHName%></font>升级--升级结果
		  </td>
		</tr>
		<tr bgcolor="<%=Opt_TD_BGColor2%>">
		  <td colspan=2>
		  <%response.write "从&nbsp;"&ProdName&"&nbsp;升级到&nbsp;<font color=red>"&ProdName2&"</font>&nbsp;&nbsp;金额<font color=red>"&PD0&"</font>"%>
		  </td>
		</tr>
		<tr bgcolor="<%=Opt_TD_BGColor2%>">
		  <td colspan=2>
		  <center><%=strMSG%></center>
		  </td>
		</tr>
	  </table>

<%

Call PrintPageBottom
%>