domainbindings.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_VHostList Where VHID='" & VHID & "'"
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="VHostMenu.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<!------------------------------------------------------------------------------------->
<script language="javascript">
<!--
	function shopcheck()
	{
		if (document.form1.NewBinding.value=="")
		{
			alert ("域名不能为空！");
			document.form1.NewBinding.focus();
			return false;
		}
		ii=0;
     bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-.";
	 while (ii<document.form1.NewBinding.value.length)
	 {
		if (bString.indexOf(document.form1.NewBinding.value.substring(ii,ii+1))==-1)
		{
			alert("域名必须是 a-z A-Z 0-9 之间的字母和数字组合。");
			document.form1.NewBinding.focus();
			return false;
		}
		ii=ii+1;
	}
		if ( document.form1.NewBinding.value.length < 6)
		{
			alert("输入域名少于6位");
			document.form1.NewBinding.focus();
			return false;
		}
		return true;
	}
-->
</script>
<script language="JavaScript">
<!--
function checkall()
{
    for (var i = 0; i < document.domainInfo.elements.length; i++)
              {
                      var e = document.domainInfo.elements[i];
                      if (e.name == 'BindID')
                      {
                              e.checked = domainInfo.allbox.checked;
                      }
	      }	
}

//-->
</script>

虚拟主机<font color=red><%=Rs("VHName")%></font>，系统给定域名 : <a href=http://<%=Rs("ThiDN")%> target="_blank" class="a2"><%=Rs("ThiDN")%></a>
<p>
如果您要绑定域名的 DNS 服务器在我司，请在您绑定域名后到-->[管理中心->域名管理->域 名 列 表->域名管理->DNS解析管理]完成您域名的解析。<br><br>
如果 DNS 服务器不在我司，请自行解决完成域名解析。或将您的 DNS 转为我司的 DNS (<%=Sys_Opt_DNS1_Name%>)后再进行[域名的DNS解析管理]！<br><br>
解析时请将域名解析到本服务器的IP地址[<%=Rs("ServerPubIP")%>]<p>

注意 : 您的虚拟主机最多绑定 <%=Rs("MaxSecDN")%> 个域名<p>
<FORM action="DomainBindingsDo.asp" method="post" name="domainInfo">
<input type="hidden" name="ID" value="<%=VHID%>">
<input type="hidden" name="OP" value="del">
<TABLE bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=2 cellSpacing=1 width="95%">
   <tr bgcolor="<%=Opt_TR_BGColor%>">
      <td>选择</td>
      <td>绑定域名</td>
      <td>绑定时间</td>
   </tr>
<%
I=1
strSQL="Select * from T_DNS_AllBDN Where VHID='" & VHID & "'"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn,1,1
while not Rs1.Eof
     if I mod 2 =0 Then %>
     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
     <% else %>
     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
     <% end if %>
      <TD width="10%">
         <INPUT name="BindID" type="checkbox" value="<%=Rs1("BDNID")%>">
      </TD>
      <TD width="50%">
         <a href="http://<%=Rs1("BDN")%>" target=_blank class="a2"><%=Rs1("BDN")%></a>
      </TD>
       <TD width="40%"><%=Rs1("APDNTime")%>
      </TD>
   </TR>
<%
	I=I+1
	Rs1.Movenext
wend
Rs1.Close
%>
<tr>
  <td colspan="3">
    <INPUT name="allbox" onclick="checkall()" type="checkbox" value=on> 选中所有 
    &nbsp;
    <INPUT name="btn1" type="submit" value="删除绑定域名" class="button">
  </td>
</tr>
</table>
</FORM>
<%
if I<=Cint(Rs("MaxSecDN")) then 
%>
<FORM action="DomainBindingsDo.asp" method="post" name="form1" onSubmit="return shopcheck()">
<input type="hidden" name="ID" value="<%=VHID%>">
<input type="hidden" name="OP" value="add">
<TABLE bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=2 cellSpacing=1 width="95%">
   <tr>
      <td bgcolor="<%=Opt_TR_BGColor%>" width="20%" align="center">绑定新域名</td>
      <td bgcolor="<%=Opt_TD_BGColor2%>">
      &nbsp;&nbsp;
        http://<INPUT type="text" name="NewBinding" size="32" class="input">
        <INPUT name="btn2" type="submit" value="添加新的域名" class="button">
      </td>
   </tr>
</table>
</form>
<%
end if

end if

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