buydomain.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 115 行

<% ModuleCode="M0910" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>

<!--#include file="../../include/connect.asp"-->

<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form9.domain_head, "域名"))			return false;
	if (!CheckEmpty(form9.domain_tail, "后缀"))			return false;
	if (!CheckEmpty(form9.BuyYear, "数量"))			return false;
	if (!CheckInteger(form9.BuyYear, "数量"))			return false;
	if (form9.BuyYear.value<1){	
		alert("数量不能少于1.");
		form9.BuyYear.focus();
		return false;
	}
	//全部通过
	submitonce(form9);
	return true;
}
-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
	<td height="26" class="titletext"><font color="<%=Opt_Font_TitleColor%>">
	<strong>域名注册</strong>
	</td>
</tr>
<tr> 
  <td> 
	<center>
	<form name="form9" action="BuyDomainRe.asp" method="post" onSubmit="return CheckAll()">
	<table>
	<tr>
		<td>域名：www.</td>
		<td><input type="text" name="domain_head" class="input" size="20">
		</td>
		<td>
			<select name='domain_tail' class="input">
		<%
		strSQL="Select a.DNName,a.DNCode from T_DNS_ProdDNInfo a,T_DNS_ProdBasicPower b ,T_DNS_ProdPower c where a.BPCode=b.BPCode and b.BPCode=c.BPCode and c.ProdCode='"& request("ID")&"' and b.TypeCode='1' order by a.DispSeq"
		Set Rs1=Server.CreateObject("ADODB.Recordset")
		Rs1.open strSQL,Cn,1,1
		While not Rs1.eof
		%>
			<option value="<%=rs1("DNCode")%>" ><%=rs1("DNName")%></option>
		<%
			Rs1.movenext
		Wend
		Rs1.close
		Set Rs1=nothing
		%>
			</select>
		</td>
	</tr>
	<tr>
		<td>购买年限/价格：</td>
		<td align="left">
		<input maxlength=2 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='" & request("ID") & "' 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>&nbsp;</td>
		<td align="right">
		<input type="hidden"  name="ID" value="<%=request("ID")%>">
		<input type="hidden"  name="P1" value="<%=request("P1")%>">
		<input type="submit" class="button" name="next" value="下一步">
		</td>
	</tr>	
	</table>
	</form>
	</center>
	<left>
	<b>说明：</b><br>
	1.域名必须以（a-z,0-9,_开头，不支持大写） <br>
	2.".CN" 支持二级域名，如abc.com.cn <br>
	3.".CN" 域名只能注册一年，否则无法注册成功 <br>
	4.".BIZ" 域名和".INFO" 域名 注册年限必须是2年以上，否则无法注册成功 <br>
	5.".US" 域名 注册年限必须是2年以上，否则无法注册成功 <br>
	</left>	
	<%
		if len(request("msg"))>0 then
		   response.write "<br><font color=red>"&request("msg")&"</font>"
		end if
		%>
	</td>
	</tr>
</table>

<%
Call PrintPageBottom
%>