📄 buyvhost.asp
字号:
<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../../Include/connect.asp"-->
<!--#include file="../../../Include/GetSysParam.asp"-->
<%
strSQL="Select * from v_ProdInfo where ProdCode='" & Request.QueryString("ID") & "' and ProdStat<>'3'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
Response.Write "<br><br><br><br><p align='center'>无法购买该产品</p>"
Rs.Close
Cn.Close
Call PrintPageBottom
Response.End
end if
%>
<script language="javascript">
<!--
function shopcheck()
{
if (document.form9.ftpaccount.value=="")
{
alert ("必须输入FTP帐号！");
document.form9.ftpaccount.focus();
return false;
}
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;
}
ii=0;
bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
if(document.form9.ftpaccount.value.length <3 || document.form9.ftpaccount.value.length > 16)
{
alert("FTP帐号必须是3-16位 a-z A-Z 0-9 之间的字母和数字组合。");
document.form9.ftpaccount.focus();
return false;
}
while (ii<document.form9.ftpaccount.value.length)
{
if (bString.indexOf(document.form9.ftpaccount.value.substring(ii,ii+1))==-1)
{
alert("FTP帐号必须是 a-z A-Z 0-9 之间的字母和数字组合。");
document.form9.ftpaccount.focus();
return false;
}
ii=ii+1;
}
if (document.form9.ftppassword.value=="")
{
alert ("必须输入FTP密码！");
document.form9.ftppassword.focus();
return false;
}
ii=0;
bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_";
while (ii<document.form9.ftppassword.value.length)
{
if (bString.indexOf(document.form9.ftppassword.value.substring(ii,ii+1))==-1)
{
alert("FTP密码必须是 a-z A-Z 0-9 之间的字母和数字组合。");
document.form9.ftppassword.focus();
return false;
}
ii=ii+1;
}
if ( document.form9.ftppassword.value.length < 5)
{
alert("输入密码少于5位");
document.form9.ftppassword.focus();
return false;
}
if (document.form9.ftppassword.value != document.form9.ftppassword1.value)
{
alert ("FTP密码和确认不一样！");
document.form9.ftppassword.focus();
return false;
}
<%
if Not IsNULL(Rs("MailType")) or Rs("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 %>
if (!document.form9.agreement.checked)
{
alert('您尚未阅读并接受的虚拟主机购买协议.');
return false;
}
document.form9.Submit.value = '数据正在提交,请勿刷新或关闭浏览器...';
submitonce(form9);
return true;
}
-->
</script>
<form name="form9" method="post" action="CreateVhost.asp" onSubmit="return shopcheck()">
<tr>
<td height="471">
<table width="100%" height="1" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" id="AutoNumber3" align="center">
<tr>
<td colspan="3" height="33" bgcolor="#FFFFFF">
<div align="center"><font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>购买虚拟主机</strong></font>
</div>
</td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> 产品名:</td>
<td height="23" bgcolor="#FFFFFF" colspan="2">
<p> <%=Rs("ProdName")%> ( <%=Rs("SiteType")%>
<% if Trim(Rs("ProdInfo"))<>"" then Response.Write ", " & Rs("ProdInfo") %>
)
<input type="hidden" name="ProdCode" value="<%=Rs("ProdCode")%>">
</td>
</tr>
<tr>
<td colspan="3" height="18" bgcolor="#FFFFFF" align="right"> </td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> WEB空间:</td>
<td height="23" bgcolor="#FFFFFF" colspan="2"> <%=Rs("SiteSize")%>M</td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> 绑定域名数:</td>
<td height="23" bgcolor="#FFFFFF" colspan="2"> <%=Rs("ThiNB")%>个</td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> 最大连接数:</td>
<td height="23" bgcolor="#FFFFFF" colspan="2"> <%=Rs("MaxIIS")%>个</td>
</tr>
<tr>
<td width="18%" height="18" bgcolor="#FFFFFF" align="right"> FTP帐号:</td>
<td width="32%" height="18" bgcolor="#FFFFFF">
<input name="ftpaccount" type="text" size="16" maxlength="32" class="input">
</td>
<td width="50%" height="18" bgcolor="#FFFFFF">
<p style="margin-left: 10; margin-right: 10; margin-top: 3; margin-bottom: 3">帐号必需为<font color="#FF0000">a-z,A-Z,0-9</font>的字母或数字</p>
</td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> FTP密码:</td>
<td width="32%" height="23" bgcolor="#FFFFFF">
<input maxlength=16 name=ftppassword size=16 type=password class="input">
</td>
<td width="50%" height="23" bgcolor="#FFFFFF">
<p style="margin-left: 10; margin-right: 10; margin-top: 3; margin-bottom: 3">密码要求最短<font color="#FF0000">8位</font>的字母或数字</p>
</td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> 确认密码:</td>
<td width="32%" height="23" bgcolor="#FFFFFF">
<input maxlength=16 name=ftppassword1 size=16 type=password class="input">
</td>
<td width="50%" height="23" bgcolor="#FFFFFF">
<p style="margin-left: 10; margin-right: 10; margin-top: 3; margin-bottom: 3">再次输入密码</p>
</td>
</tr>
<%
if Not IsNULL(Rs("MailType")) or Rs("MailType")<>"" then
%>
<input type="hidden" name="HaveMail" value="YES">
<tr>
<td colspan="3" height="23" bgcolor="#FFFFFF" align="right"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=right> 邮局空间:</td>
<td> <%=Rs("MailSize")%>M </td>
<td></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=right> 邮局用户:</td>
<td> <%=Rs("MailUser")%> 个</td>
<td></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=right valign=top>邮局密码:</td>
<td valign=top>
<input maxlength=16 name=mailpassword size=16 type=password class="input">
</td>
<td>
为了您的邮局更加安全,请将您的密码做如下设置:<br>
长度8-16位,由字母或数字组成(密码必须同时包含大小写字母和数字) 例如:<font color=#FF0000> AabB4321</font><br>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=right>密码确认:</td>
<td>
<input maxlength=16 name=mailpassword1 size=16 type=password class="input"> </td>
<td>再次输入邮局密码</td>
</tr>
<%
end if
%>
<tr>
<td colspan="3" height="23" bgcolor="#FFFFFF" align="right"> </td>
</tr>
<tr valign=top>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> 绑定域名:</td>
<td width="32%" height="23" bgcolor="#FFFFFF">
<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">
</p>
</td>
<td width="50%" height="23" bgcolor="#FFFFFF">
<p style="margin-left: 10; margin-right: 10; margin-top: 3; margin-bottom: 3">
(例:<font color="#FF0000">abc.com</font>)
<%
if Not IsNULL(Rs("MailType")) or Rs("MailType")<>"" then
%>
邮局将是 <font color="#FF0000">mail.abc.com</font>。如果您在这里没有绑定一个域名，将无法得到赠送的邮局。
<%
end if
%>
</p>
</td>
</tr>
<tr>
<td width="18%" height="23" bgcolor="#FFFFFF" align="right"> 购买年限:</td>
<td width="32%" height="23" bgcolor="#FFFFFF">
<p style="margin-left: 6">
<input maxlength=5 name=BuyYear size=3 type=text class="input" value="1">
×
<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>
<td width="50%" height="23" bgcolor="#FFFFFF">
<p style="margin-left: 10; margin-right: 10; margin-top: 3; margin-bottom: 3"> </p>
</td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF" align="right" colspan="3"> </td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF">
<div align="right">相关说明:</div>
</td>
<td height="30" bgcolor="#FFFFFF" colspan="2"><%=Rs("ProdMemo")%></td>
</tr>
<tr>
<td height="23" bgcolor="#FFFFFF" colspan="3">
<p align="center">
<input name=agreement type=checkbox value="Y">
我接受<a href=<%=HomeDir%>Aboutus/Pact/Hosting.asp target = _blank>《虚拟主机租用协议》</a>
<input type="radio" name="paytype" value="0" checked>
正式开通
<% if rs("IfTest")<>"N" then%>
<input type="radio" name="paytype" value="1" >
免费试用<font color=red><%=Sys_Opt_ProdTryDays%></font>天 ，试用时空间大小：<font color=red><%=Sys_Opt_TestSize%></font> M
<% end if%>
</td>
</tr>
<tr>
<td height="35" bgcolor="#FFFFFF" colspan="3">
<div align="center">
<input type="submit" name="Submit" value="确定购买" class="button">
<input type="reset" name="bnCancel" value=" 取 消 " class="button">
</div>
</td>
</tr>
</table>
</td>
</tr>
</form>
<%
Rs.Close
Cn.Close
Set Rs1=nothing
Set Rs2=nothing
Set Cn=nothing
Call PrintPageBottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -