managedns.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"-->
<%
	if Rs("DNS1Name")=Sys_Opt_DNS1_Name and Rs("DNS2Name")=Sys_Opt_DNS2_Name then
		DomainName=Rs("DomainName")
%>
<table cellpadding="3" cellspacing="0" width="95%" align="center">
  <tr>
    <td height="30">
      当前域名状态： 
      <%
      if Rs("DNSStat")="1" then
           %>
           正常解析&nbsp;
           &lt;-- <a href="ManageDNSDo.asp?OP=pause&ID=<%=DNID%>" class="a2">暂停解析</a>
           <%
      else
           %>
           暂停解析&nbsp;
           &lt;-- <a href="ManageDNSDo.asp?OP=resume&ID=<%=DNID%>" class="a2">恢复解析</a>
           <%
      end if
      %>
    </td>
    <td align="right">
       <a href="DNSHelp.asp" class="a2">使用帮助</a>
    </td>
  </tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=Opt_TR_BGColor%>" width="95%" align="center">
  <tr>
    <td height="24" bgcolor="<%=Opt_TR_BGColor%>"><b>解析记录列表</b></td>
  </tr>
  <tr>
    <td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="100%" bgcolor="<%=Opt_Table_BGColor%>">
  <tr height="24">
    <td>主机名</td>
    <td>TTL</td>
    <td>IN</td>
    <td>类型</td>
    <td>顺序</td>
    <td>指向</td>
    <td></td>
  </tr>
<%
	line=0
	strSQL="Select * from T_DNS_DNSResolve where DNID='" & DNID & "'"
	Set Rs1= Server.CreateObject("ADODB.Recordset")
	Rs1.open strSQL,Cn
	While not Rs1.Eof
%>
<FORM method="POST" action="ManageDNSDo.asp">
<input type="hidden" name="OP" value="del">
<input type="hidden" name="ID" value="<%=DNID%>">
<input type="hidden" name="DRID" value="<%=Rs1("DRID")%>">
<input type="hidden" name="HostName" value="<%=Rs1("HostName")%>">
<input type="hidden" name="TTL" value="<%=Rs1("TTL")%>">
<input type="hidden" name="RRType" value="<%=Rs1("RRType")%>">
<input type="hidden" name="Reference" value="<%=Rs1("Reference")%>">
<input type="hidden" name="RRData" value="<%=Rs1("RRData")%>">
    <% if line mod 2 =0 Then %>
    <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
    <% else %>
    <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
    <% end if %>
    <td>
    <% if Trim(Rs1("HostName"))="" then %>
        <%=DomainName%>
    <% else %>
        <%=Rs1("HostName")%>.<%=DomainName%>
    <% end if %>
    </td>
    <td><%=Rs1("TTL")%></td>
    <td>IN</td>
    <td><%=Rs1("RRType")%></td>
    <td><%=Rs1("Reference")%></td>
    <td><%=Rs1("RRData")%></td>
    <td><INPUT type="submit" name="rraction" value="删除记录" class="button"></td>
  </tr>
</FORM>
<%
		Rs1.Movenext
		line=line+1
	WEnd
	Rs1.Close
%>
<FORM method="POST" action="ManageDNSDo.asp">
<input type="hidden" name="OP" value="add">
<input type="hidden" name="ID" value="<%=DNID%>">
    <% if line mod 2 =0 Then %>
    <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
    <% else %>
    <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
    <% end if %>
    <td>
      <input type="text" name="HostName" size="6" class="input">.<%=DomainName%>
    </td>
    <td>3600</td>
    <td>IN</td>
    <td>
       <select size="1" name="RRType" class="input">
       <option selected value="A">A</option>
       <option value="MX">MX</option>
       <option value="CNAME">CNAME</option>
       <option value="NS">NS</option>
       <option value="TXT">TXT</option>
       </select>
    </td>
    <td><input type="text" name="Reference" size="2" value="10" class="input"></td>
    <td><input type="text" name="RRData" size="20" class="input"></td>
    <td colspan="2">
    <input type="submit" value="增加记录" name="B1" class="button"> 
    </td>
  </tr>
</form>
</table>
        </td>
  </tr>
</table>


<br>

<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=Opt_TR_BGColor%>" width="95%" align="center">
  <tr>
    <td height="24" bgcolor="<%=Opt_TR_BGColor%>"><b>网站转发功能</b></td>
  </tr>
  <tr>
    <td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="100%" bgcolor="<%=Opt_Table_BGColor%>">
  <tr height="24">
    <td>主机名</td>
    <td>指向</td>
    <td>隐藏</td>
    <td></td>
  </tr>
<%
	line=0
	strSQL="Select * from T_DNS_URLRedirect where DNID='" & DNID & "'"
	Set Rs1= Server.CreateObject("ADODB.Recordset")
	Rs1.open strSQL,Cn
	While not Rs1.Eof
%>
<FORM method="POST" action="ManageDNSURLDo.asp">
<input type="hidden" name="OP" value="del">
<input type="hidden" name="ID" value="<%=DNID%>">
<input type="hidden" name="URID" value="<%=Rs1("URID")%>">
<input type="hidden" name="URL" value="<%=Rs1("URL")%>">
<input type="hidden" name="Redirect" value="<%=Rs1("Redirect")%>">
<input type="hidden" name="URType" value="<%=Rs1("URType")%>">

    <% if line mod 2 =0 Then %>
    <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
    <% else %>
    <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
    <% end if %>
            <td> <a href="http://<%=Rs1("URL")%>.<%=DomainName%>" target="_blank"><%=Rs1("URL")%>.<%=DomainName%></a> 
            </td>
    <td>Http:// <%=Rs1("Redirect")%></td>
    <td>
    <%
    if Rs1("URType")="1" then
    	Response.Write "是"
    else
    	Response.Write "否"
    end if
    %>
    </td>
    <td><INPUT type="submit" name="rraction" value="删除记录" class="button"></td>
  </tr>
</FORM>
<%
		Rs1.Movenext
		line=line+1
	WEnd
	Rs1.Close
%>
<FORM method="POST" action="ManageDNSURLDo.asp">
<input type="hidden" name="OP" value="add">
<input type="hidden" name="ID" value="<%=DNID%>">
    <% if line mod 2 =0 Then %>
    <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
    <% else %>
    <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
    <% end if %>
    <td>
      <input type="text" name="URL" size="6" class="input">.<%=DomainName%>
    </td>
    <td>Http:// <input type="text" name="Redirect" size="30" class="input"></td>
    <td>
       <select size="1" name="URType" class="input">
       <option selected value="1">是</option>
       <option value="2">否</option>
       </select>
    </td>
    <td colspan="2">
    <input type="submit" value="增加记录" name="B1" class="button"> 
    </td>
  </tr>
</form>
</table>
        </td>
  </tr>
</table>






<%
	else
		%>
		<br><Br><br><p align="center" class="titletext">您的域名的DNS服务器不在我司，请自行解决完成域名解析。
		<br>如要将域名的DNS服务器转移至我司, 请点击<a href="ModiDNSServer.asp?ID=<%=DNID%>" class="a2">这里</a></p>
		<%
	end if

end if

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