domain.asp

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

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

<!--#include file="../../../include/connect.asp"-->
<%
strSQL="Select a.* from v_ProdInfo a, T_DNS_CurBuy b where a.ProdCode=b.ProdCode and b.PID='" & session("P_ID") & "' and a.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 CheckAll()
{
	//检查非空
	if (!CheckEmpty(form9.domain_head, "域名"))			return false;
	if (!CheckEmpty(form9.domain_tail, "后缀"))			return false;

	//全部通过
	submitonce(form9);
	return true;
}
-->
</script>
<table align=center border=0 cellpadding="0" cellspacing="0" width="95%">
  <tr>
    <td colspan="2" class="titletext" height="30">
    <font color="<%=Opt_Font_TitleColor%>"><strong>购买<%=Rs("ProdName")%></strong></font>
    </td>
  </tr>
  <tr>
    <td colspan="2" height="1" bgcolor="#FFCC00"></td>
  </tr>
  <tr>    
    <td height="28">
      <strong>第 <font color=red><%=InStr(session("P_DSM"),"D")%></font> 步  -  域名注册</strong>
    </td>
    <td align="right">
    共 <%=Len(session("P_DSM"))%> 步
    </td>
  </tr>
  <tr>
    <td colspan="2">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
  <td> 
	<center>
	<form name="form9" action="DomainRe.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.DomainTypeCode from v_ProdInfo a,T_DNS_CurBuy b Where a.ProdCode=b.ProdCode and b.PID='" & Session("P_ID") & "'"
		Set Rs2=Cn.Execute(strSQL)
		DomainTypeCode=Rs2("DomainTypeCode")
		Rs2.Close
		Set Rs2=Nothing
		strSQL="Select a.DNName,a.DNCode from T_DNS_ProdDNInfo a,T_DNS_ProdBasicPower b  where a.BPCode=b.BPCode and a.BPCode='" & DomainTypeCode &"'  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>&nbsp;</td>
		<td align="right">
		<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>
    </td>
  </tr>
</table>
<%
Rs.Close
Cn.Close
Set Rs=nothing
Set Cn=nothing
Call PrintPageBottom
%>