updatevhostsp.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * 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"-->
<!------------------------------------------------------------------------------------->
<%
	strSQL="Select SpecName,SPecCode from T_DNS_SpecInfo Where TypeCode='2' and OperType='2' and SPChange>" & Rs("MaxSize") & " and IfUse='Y'"
	Set Rs1= Server.CreateObject("ADODB.Recordset")
	Rs1.open strSQL,Cn
	If Rs1.Eof Then
		Response.Write "<BR><BR><br><P align='center' class='titletext'>您的虚拟主机的空间已经达到上限了, 无法再升级了</p>"
	else
%>
<form name="inputform" action="UpdateVHostSPDo.asp" 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>
	    空间升级--<font color=red><%=Rs("VHName")%></font>
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>" width="30%">当前空间</td>
	  <td width="70%">
	    <%=Rs("MaxSize")%>M
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">升级选择</td>
	  <td>
            <Select name="SPecCode" class="input">
            <%
		While Not Rs1.Eof
			Response.Write "<option value='" & Rs1("SPecCode") & "'>" & Rs1("SpecName") & "</option>"
			Rs1.movenext
		WEnd
	    %>
            </select>
	  </td>
	</tr>
	<tr>
	  <td colspan=2  bgcolor="<%=Opt_TD_BGColor2%>" align=center>
	    <input name="ID" type="hidden" value="<%=VHID%>">
	    <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
	Rs1.Close
	Set Rs1=Nothing

end if

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