updatevhostspdo.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.Form("ID")
UserID=session("UserID")
SPecCode=Request.Form("SPecCode")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select *,DateDiff(yyyy,getdate(),ETime) as HowLong from v_VHostList Where VHID='" & VHID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and 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"-->
<%

	HowLong=Rs("HowLong")

	Set Rs1 = Server.CreateObject("ADODB.Recordset")
	strSQL="Select HaveMoney, LevelCode 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"))
	end if
	Rs1.Close
	
	strSQL="Select SPChange from T_DNS_SpecInfo Where SPecCode='" & SPecCode & "'"
	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
		SPChange=Rs1("SPChange")
		SiteSize=CInt(SPChange)*1024000
	end if
	Rs1.Close
	
	strSQL="Select SpecPrice from T_DNS_SpecPrice Where SPecCode='" & SPecCode & "' and LevelCode='" & UserLevel & "' and ProdYear='" & "1" & "'"
	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
		HowMuch=CInt(HowLong)*CCur(Rs1("SpecPrice"))
	end if
	Rs1.Close
	Set Rs1=Nothing
	
	'Response.Write HowMuch & "," & SPChange & "," & SiteSize
	'Response.End
	
	if HaveMoney<HowMuch then
		Response.Write "<br><br><br><p align='center' class='titletext'>对不起，您的帐户余额不足，请先给您的帐户充值！"
		Call PrintPageBottom
		Response.End
	end if

	if ModifyFtpUser(Rs("ServerIP"),Rs("UserName"),"","",SiteSize,"")=0 then
		strSQL="Update T_DNS_AllVH Set MaxSize=" & SPChange & " Where VHID='" & VHID & "'"
		Cn.Execute(StrSQL)
		strSQL="Update T_DNS_UserInfo Set HaveMoney=HaveMoney-" & HowMuch & ",AllMoney=AllMoney+" & HowMuch & " where UserID=" & UserID
		Cn.Execute(StrSQL)
		Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllVH','主机空间升级','" & VHID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
		Response.Write "<br><br><P align='center' class='titletext'>虚拟主机空间升级成功！</p>"
	else
		Response.Write "<br><br><P align='center' class='titletext'>虚拟主机空间升级失败！请重新尝试...</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
%>