upgradevh.asp

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

<%
if request("T")="3" then
	ModuleCode="M0510"
else
	ModuleCode="M0410"
end if
%>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
T=request("T")
if T="3" then
	strProdTypeName="邮局"
	strSQL="Select PostStat as VHStat,UOID,datediff(dd,STime,ETime) as D1,UserID,datediff(dd,getdate(),ETime) as D2,Stat from T_DNS_AllPost Where PostID='" & VHID & "'"
else
	strProdTypeName="虚拟主机"
	strSQL="Select VHStat,UOID,datediff(dd,STime,ETime) as D1,UserID,datediff(dd,getdate(),ETime) as D2,VHName,Stat from T_DNS_AllVH Where VHID='" & VHID & "'"
end if


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'>对不起, 找不到此"&strProdTypeName&"或者您没有权限！</p>"
else
	if T="3" then
		VHName=""
		PostID=VHID
%>
	<!--#include file="../mail/MailMenu.asp"-->
<% 
	else
		VHName=rs("VHName")
%>
	<!--#include file="VHostMenu.asp"-->
<%
	end if
%>
	<!------------------------------------------------------------------------------------->
<%
	strSQL="Select b.ProdLevel,a.TotPrice,a.ProdCode,b.ProdName,b.STCode from T_DNS_UserOrder a ,T_DNS_ProdInfo b Where a.UOID='" & rs("UOID") & "' and a.ProdCode=b.ProdCode"
	Set Rs1= Server.CreateObject("ADODB.Recordset")
	Rs1.open strSQL,Cn
	If Rs1.Eof Then
		Response.Write "<BR><BR><br><P align='center' class='titletext'>"&strProdTypeName&"无法升级</p>"
	else
		strSQL="Select * from T_DNS_ProdInfo Where STCode='" & rs1("STCode") & "' and ProdLevel>" & rs1("ProdLevel")
		Set Rs2= Server.CreateObject("ADODB.Recordset")
		Rs2.open strSQL,Cn
		If Rs2.Eof Then
			Response.Write "<BR><BR><br><P align='center' class='titletext'>您的"&strProdTypeName&"已经达到上限了, 无法再升级了</p>"
		else	
	%>
		<form name="form1" action="UpgradeVH2.asp?T=<%=T%>&VHID=<%=VHID%>&UOID=<%=rs("UOID")%>&UserID=<%=rs("UserID")%>&ProdCode=<%=Rs1("ProdCode")%>&ProdName=<%=Rs1("ProdName")%>&D1=<%=Rs("D1")%>&D2=<%=Rs("D2")%>&VHName=<%=VHName%>&ProdTypeName=<%=strProdTypeName%>" method="post">
	  <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>
		  <input name="TotPrice" type="hidden" value="<%=rs1("TotPrice")%>" >
		    <%=strProdTypeName%>产品<font color=red><%=VHName%></font>升级--选择升级产品
		  </td>
		</tr>
		<tr bgcolor="<%=Opt_TD_BGColor2%>">
		  <td align=right bgcolor="<%=Opt_TR_BGColor%>" width="30%">当前产品</td>
		  <td width="70%">
		    <%=Rs1("ProdName")%>
		  </td>
		</tr>
		<tr bgcolor="<%=Opt_TD_BGColor2%>">
		  <td align=right bgcolor="<%=Opt_TR_BGColor%>">升级选择</td>
		  <td>
	            <Select name="ProdCode2" class="input">
	            <%
			While Not Rs2.Eof
				Response.Write "<option value='" & Rs2("ProdCode") & "'>" & Rs2("ProdName") & "</option>"
				Rs2.movenext
			WEnd
		    %>
	            </select>
		  </td>
		</tr>
		<tr>
		  <td colspan=2  bgcolor="<%=Opt_TD_BGColor2%>" align=center>
		    <input name="submit1" type=submit value="下一步" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
		    <input type=button onclick="javascript:history.go(-1)" value="返回" class="button" name=button1>
		  </td>
		</tr>
	  </table>
	</form>   
	
	<%
		end if
		Rs2.Close       
		Set Rs2=Nothing	
	end if
	Rs1.Close
	Set Rs1=Nothing	
end if

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