modidnsserver.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_DomainList Where DNID='" & DNID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此域名或者您没有权限！</p>"
else
%>
<!--#include file="DomainMenu.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<script language="javascript">
<!--
	function shopcheck()
	{
		if (document.form9.dnsname1.value=="")
		{
			alert ("必须输入DNS服务器！");
			document.form9.dnsname1.focus();
			return false;
		}
		ii=0;
     bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789._";
	 while (ii<document.form9.dnsname1.value.length)
	 {
		if (bString.indexOf(document.form9.dnsname1.value.substring(ii,ii+1))==-1)
		{
			alert("DNS服务器必须是 a-z A-Z 0-9 之间的字母和数字组合。");
			document.form9.dnsname1.focus();
			return false;
		}
		ii=ii+1;
	}
		if ( document.form9.dnsname1.value.length < 6)
		{
			alert("输入DNS服务器少于6位");
			document.form9.dnsname1.focus();
			return false;
		}
		if (document.form9.dnsname2.value=="")
		{
			alert ("必须输入DNS服务器！");
			document.form9.dnsname2.focus();
			return false;
		}
		ii=0;
     bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789._";
	 while (ii<document.form9.dnsname2.value.length)
	 {
		if (bString.indexOf(document.form9.dnsname2.value.substring(ii,ii+1))==-1)
		{
			alert("DNS服务器必须是 a-z A-Z 0-9 之间的字母和数字组合。");
			document.form9.dnsname2.focus();
			return false;
		}
		ii=ii+1;
	}
		if ( document.form9.dnsname2.value.length < 6)
		{
			alert("输入DNS服务器少于6位");
			document.form9.dnsname2.focus();
			return false;
		}
		return true;
	}
-->
</script>
     <table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr valign="top" align="center"> 
          <td> 
            <form name="form9" action="ModiDNSServerDo.asp" method="post" onSubmit="return shopcheck()">
			<input type="hidden" name="ID" value="<%=DNID%>">
                <table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="<%=Opt_Table_BGColor%>">
                  <tr bgcolor="<%=Opt_TR_BGColor%>"> 
                      <td colspan="2" align="center">修改域名的DNS服务器: <%=Rs("DomainName")%></td>
                  </tr>
                  <tr bgcolor="<%=Opt_TD_BGColor2%>">
                    <td bgcolor="<%=Opt_TR_BGColor%>" align="center">主DNS</td>
                    <td>
                      <%=Rs("DNS1Name")%>-->改为
                      <input type="text" name="dnsname1" value="<%=Sys_Opt_DNS1_Name%>" class="input">
                    </td>
                  </tr>
                  <tr bgcolor="<%=Opt_TD_BGColor2%>">
                    <td bgcolor="<%=Opt_TR_BGColor%>" align="center">次DNS</td>
                    <td>
                      <%=Rs("DNS2Name")%>-->改为
                      <input type="text" name="dnsname2" value="<%=Sys_Opt_DNS2_Name%>" class="input">
                    </td>
                  </tr>
                </table>
                <p> 
                  <input type="submit" value=" 确 定 " name="Submit" class="button">
                  <input type="reset" value=" 重 置 " name="reset" class="button">
                </p>
            </form>
          </td>
        </tr>       
      </table>
      
      <table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr> 
          <td>
          <p><b><font color="red">注意:</b></font></p>
          <ul>
            <li>我司的DNS服务器为: <%=Sys_Opt_DNS1_Name%> 和 <%=Sys_Opt_DNS2_Name%>, 请谨慎修改</li>
            <li>如果原有的域名DNS在我司, 将此域名的DNS改为其他的服务器, 那么原有的域名DNS解析将全部删除, 并无法使用我司提供的<a href="ManageDNS.asp?ID=<%=DNID%>" class="a2">DNS解析管理</a>工具</li>
          </ul>
          </td>
        </tr>
      </table>
<%
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>