dnreg.asp

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

<% ModuleCode="M0905" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="domain_reg_class.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form1.domain_head, "域名"))			return false;
	if (!CheckEmpty(form1.domain_tail, "后缀"))			return false;
	//全部通过
	submitonce(form1);
	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="form1" action="" method="post">
	<table>
	<tr>
		<td>域名：www.</td><td><input type="text" name="domain_head" class="input" size="20">
		</td>
		<td>
			<select name='domain_tail' class="input">
			<option value='.com'>.com</option>
			<option value='.net'>.net</option>
			<option value='.org'>.org</option>
			<option value='.cn'>.cn</option>
			<option value='.biz'>.biz</option>
			<option value='.info'>.info</option>
			<option value='.us'>.us</option>
			</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
	</left>
	<%
	'初始化数据
	dim reg
	set reg = new reg_domain
	'reg.clID="118156"
	'reg.pwd="yangyang66"
	reg.domain=request("domain_head")&request("domain_tail")
	'判断域名的类型domaintype
	dim temp
	temp = request("domain_tail")
	if not request("domain_tail")="" and not request("domain_head")="" then
		reg.domaintype=prt_domaintype(temp)
		'初始化数据库连接
		call reg.initdb()
		'初始化SOCKET连接
		call reg.initsocket()
		if not reg.err_code=0 then
			response.write "操作失败，错误代码:"&reg.err_code&"<br>"
			response.write "<br>错误信息："&err_msg(reg.err_code)
		else
			call reg.domaincheck()
			if not reg.err_code=0 then
				response.write "操作失败，错误代码："&reg.err_code&"<br>"
				response.write "<br>错误信息："&err_msg(reg.err_code)
			else
				call prt_redirect(request("domain_head"),temp)
			end if
		end if
	end if
	%>
	</td>
	</tr>
</table>

<%
Call PrintPageBottom
%>