buytestvhost.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 & "' and VHStat='1'"
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
	strSQL="Select * from v_ProdInfo where ProdCode='" & Rs("ProdCode") & "' and ProdStat<>'3'"
	Set Rs1= Server.CreateObject("ADODB.Recordset")
	Rs1.open strSQL,Cn,1,1
	If Rs1.Eof Then
		Response.Write "<br><br><br><br><p align='center'>无法购买该产品</p>"
		Cn.Close
		Call PrintPageBottom
		Response.End
	end if
%>
<!--#include file="VHostMenu.asp"-->
<!------------------------------------------------------------------------------------->
<script language="javascript">
<!--
	function shopcheck()
	{
		if (document.form9.BuyYear.value=="" || document.form9.BuyYear.value=="0" )
		{
			alert ("必须输入正确的购买年限！");
			document.form9.BuyYear.focus();
			return false;
		}
		ii=0;
		     bString="0123456789";
	 while (ii<document.form9.BuyYear.value.length)
	 {
		if (bString.indexOf(document.form9.BuyYear.value.substring(ii,ii+1))==-1)
		{
			alert("购买年限必须是数字");
			document.form9.BuyYear.focus();
			return false;
		}
		ii=ii+1;
     	}
     	
     	<%
        if Not IsNULL(Rs1("MailType")) or Rs1("MailType")<>"" then
        %>
		
		if (document.form9.mailpassword.value=="")
		{
			alert ("必须输入邮局密码！");
			document.form9.mailpassword.focus();
			return false;
		}
		ii=0;
     bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_";
	 while (ii<document.form9.mailpassword.value.length)
	 {
		if (bString.indexOf(document.form9.mailpassword.value.substring(ii,ii+1))==-1)
		{
			alert("管理员密码必须是 a-z A-Z 0-9 之间的字母和数字组合。");
			document.form9.mailpassword.focus();
			return false;
		}
		ii=ii+1;
     }
		if ( document.form9.mailpassword.value.length < 5)
		{
			alert("输入管理员密码少于5位");
			document.form9.mailpassword.focus();
			return false;
		}
		if (document.form9.mailpassword.value != document.form9.mailpassword1.value)
		{
			alert ("管理员密码和确认不一样！");
			document.form9.mailpassword.focus();
			return false;
		}
		
	<% end if %>
		submitonce(form9);
		return true;
	}
-->
</script>
<form name="form9" action="BuyTestVHostDo.asp" method="post" onSubmit="return shopcheck()">
  <table width="80%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
	<tr bgcolor="<%=Opt_TR_BGColor%>">
	  <td colspan=2 align=center>
	    购买虚拟主机--<font color=red><%=Rs("VHName")%></font>
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td bgcolor="<%=Opt_TR_BGColor%>" width="20%" align=right>到&nbsp;期&nbsp;日:</td>
	  <td>&nbsp;&nbsp;<%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
	</tr>

	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td bgcolor="<%=Opt_TR_BGColor%>"  align=right>虚拟主机&nbsp;<br>空间大小:</td>
	  <td>&nbsp;&nbsp;<%=rs1("SiteSize")%>M</td>
	</tr>	
	<tr valign=top bgcolor="<%=Opt_TD_BGColor2%>"> 
          <td bgcolor="<%=Opt_TR_BGColor%>" align="right"> 绑定域名:</td>
          <td> 
            <p style="margin-left: 6"> 
              <input name=domaintop type=text size="3" maxlength=128 class="input" value="www">
              . 
              <input name=domain type=text size="16" maxlength=128 class="input">
              (例:<font color="#FF0000">abc.com</font>)
            </p>
            
        <%
        if Not IsNULL(Rs1("MailType")) or Rs1("MailType")<>"" then
        %>
        <p style="margin-left: 10; margin-right: 10; margin-top: 3; margin-bottom: 3">
        邮局将是 <font color="#FF0000">mail.abc.com</font>。如果您在这里没有绑定一个域名，将无法得到赠送的邮局。
        </p>
        <%
        end if
        %>
            
          </td>
        </tr>
        
	 <%
        if Not IsNULL(Rs1("MailType")) or Rs1("MailType")<>"" then
        %>
      <input type="hidden" name="HaveMail" value="YES">
      <tr bgcolor="<%=Opt_TD_BGColor2%>"> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>"> 邮局空间:</td>
        <td>&nbsp;&nbsp;<%=Rs1("MailSize")%>M</td>
      </tr>
      <tr bgcolor="<%=Opt_TD_BGColor2%>"> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>"> 邮局用户:</td>
        <td>&nbsp;&nbsp;<%=Rs1("MailUser")%> 个</td>
      </tr>
      <tr bgcolor="<%=Opt_TD_BGColor2%>"> 
        <td align=right valign=top bgcolor="<%=Opt_TR_BGColor%>">邮局密码:</td>
        <td valign=top>&nbsp;
        <input maxlength=16 name=mailpassword size=16 type=password class="input"> 
        <br>
        为了您的邮局更加安全,请将您的密码做如下设置:<br>
          长度8-16位,由字母或数字组成(密码必须同时包含大小写字母和数字) 例如:<font color=#FF0000> AabB4321</font><br>         
        </td>
      </tr>
      <tr bgcolor="<%=Opt_TD_BGColor2%>"> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>">密码确认:</td>
        <td>&nbsp;
        <input maxlength=16 name=mailpassword1 size=16 type=password class="input"> </td>
      </tr>
        <%
        end if
        %>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td bgcolor="<%=Opt_TR_BGColor%>" align=right>选择年限:</td>
	  <td>&nbsp;
		<select name="BuyYear" size=1 class="input">
		<%
		i=1
		while i<=10
			response.write "<option value='" & i & "'>" & i & "</option>"
			i=i+1
		wend
		%>
		</select>
          ×
          <select name="ProdYear" size=1 class="input">
            <%
            Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            while not Rs1.eof
            %>
            <option value="<%=Rs1("ProdYear")%>"><%=Rs1("ProdYear")%>年/<%=Rs1("ProdPrice")%>元</option>
            <%
            	Rs1.movenext
            wend
            Rs1.Close
            %>
          </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

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