resdn.asp

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

<% ModuleCode="M0913" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../include/GetSysParam.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form9.DomainName, "域名"))		return false;
	if (!CheckEmpty(form9.UYear, "年限"))			return false;
	if (!CheckInteger(form9.UYear, "年限"))			return false; 
	if (!CheckEmpty(form9.pwd1, "密码"))			return false; 
	if (!CheckEmpty(form9.pwd2, "确认密码"))		return false; 
	if (!CheckEmpty(form9.dns1, "域名DNS1"))		return false; 
	if (!CheckEmpty(form9.dns2, "域名DNS2"))		return false; 
	//全部通过
	submitonce(form9);
	return true;
}
-->
</script>

<%
'strMoney="100"
strMoney=Sys_Opt_ResDNMoney

if len(request("sub"))>0 then
	strSQL="SP_ResDN '1','',"& session("UserID") & "," & request("UYear") & "," & request("Money") & ",'" & request("DomainName") & "','" & request("pwd1") & "','" & request("pwd2") & "','" & request("dns1") & "','','" & request("dns2") & "','','" & Request.ServerVariables("REMOTE_ADDR") & "'"
	set Rs1=Cn.Execute(strSQL)
	if rs1("result")="0" then
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>" & rs1("msg") &"</font>"
	else
		if (lcase(request("dns1"))=lcase(Sys_Opt_DNS1_Name) and lcase(request("dns2"))=lcase(Sys_Opt_DNS2_Name)) or (lcase(request("dns1"))=lcase(Sys_Opt_DNS2_Name) and lcase(request("dns2"))=lcase(Sys_Opt_DNS1_Name)) then
			ServerIP=Sys_Opt_DNS1_IP
			Zone=request("DomainName")
			if AddPrimaryZone(ServerIP,Zone, Sys_Opt_DNS1_Name, Sys_Opt_DNS2_Name,RetStr)=0 then
				strSQL="SP_ResDN '2','',"& session("UserID") & "," & request("UYear") & "," & request("Money") & ",'" & request("DomainName") & "','" & request("pwd1") & "','" & request("pwd2") & "','" & request("dns1") & "','','" & request("dns2") & "','','" & Request.ServerVariables("REMOTE_ADDR") & "'"
				set Rs=Cn.Execute(strSQL)
				response.write "&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>" & rs("msg") &"</font>"
			else
				response.write "<br><br><b><p align='center' class='titletext'><font color=red>&nbsp;&nbsp;&nbsp;&nbsp;操作失败，错误代码 :B001</font></p>"
			end if
		else
			strSQL="SP_ResDN '2','',"& session("UserID") & "," & request("UYear") & "," & request("Money") & ",'" & request("DomainName") & "','" & request("pwd1") & "','" & request("pwd2") & "','" & request("dns1") & "','','" & request("dns2") & "','','" & Request.ServerVariables("REMOTE_ADDR") & "'"
			set Rs=Cn.Execute(strSQL)
			response.write "&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>不是本地DNS，" & rs("msg") &"</font>"
		end if
	end if
	rs1.close
	set rs1=nothing
else  
%>

	<form name="form9" method="post" action="" onSubmit="return(CheckAll());">
	<center>
	<table class="uss" align=center  width="80%" >
		<tr height="22" >
		<td colspan=2 class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>
		购买域名解析服务</strong></font>
		</td>
		</tr>
		<tr>
			<td nowrap bgcolor="<%=Opt_TD_BGColor2%>">域&nbsp;&nbsp;名</td>
			<td  bgcolor="<%=Opt_TD_BGColor1%>">www.<input type="text" class="input"  maxlength="30" size="20" name="DomainName" value=""></td>
		</tr>
		<tr>
			<td nowrap bgcolor="<%=Opt_TD_BGColor2%>">价格/年</td>
	        <td  bgcolor="<%=Opt_TD_BGColor1%>"><input type="text" class="input"  maxlength="3" size="4" name="UYear" value=""> × <font color=red><%=strMoney%></font>&nbsp;元</td>
		</tr>
		<tr>
			<td nowrap bgcolor="<%=Opt_TD_BGColor2%>">输入密码</td>
			<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="password"  class="input" maxlength="20" size="20" name="pwd1"></td>
		</tr>
		<tr>
			<td nowrap bgcolor="<%=Opt_TD_BGColor2%>">确认密码</td>
			<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="password"   class="input" maxlength="20" size="20" name="pwd2"></td>
		</tr>
		<tr>
			<td nowrap bgcolor="<%=Opt_TD_BGColor2%>">域名DNS1</td>
			<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="hidden"  name="dns1" value="<%=Sys_Opt_DNS1_Name%>"><%=Sys_Opt_DNS1_Name%></td>
		</tr>
		<tr>
			<td nowrap bgcolor="<%=Opt_TD_BGColor2%>">域名DNS2</td>
			<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="hidden"  name="dns2" value="<%=Sys_Opt_DNS2_Name%>"><%=Sys_Opt_DNS2_Name%></td>
		</tr>
	</table><br>
	<input type="hidden"  name="Money" value="<%=strMoney%>">
	<input type="hidden"  name="sub" value="100">
	<input type="submit"  class="button" value="确定购买">
	</center>
	</form>

<%
end if

Call PrintPageBottom
%>