dns.asp

DNS服务,有web管理功能

URL = "DNS.asp?sdomain="&sdomain&"&PageSize="&PageSize
call PrintPage(pagecount, rs, URL) 
rs.close                                                                                                
set rs=nothing                                                                                                
end sub


sub PrintPage(pagecount, rs, URL) 
if rs.pagecount > 0 then
%>
<form method="post" action="<%=URL%>">
<%=pagecount%>/<%=rs.pagecount%>&nbsp;
<%if cint(pagecount) > 1 then%>
	<A HREF=<%=URL%>&page=<%=(cint(pagecount)-1)%>>〖上一页〗</a> 
<%else%>
	〖上一页〗
<%end if%>

<%if cint(pagecount) < rs.pagecount then%>
	<A HREF=<%=URL%>&page=<%=(cint(pagecount)+1)%>>〖下一页〗</a> 
<%else%>
	〖下一页〗
<%end if%>


转到第

<select name="page">
<% 
i=1
do while i<rs.pagecount+1 %> 
<%if i<> pagecount then%>
<option value="<%=i%>"><%=i%></option>
<%else%>
<option selected value="<%=i%>"><%=i%></option>
<%end if%>
<%i=i+1%>
<%loop%>
</select>页
<input type="Submit" value="确定">
</form>
<%
end if
end sub



'查询A记录
Function Query_R()
%>
<table width="98%"  border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td    bgcolor="#AAE3FF" colspan="10">DNS解析-[<a href="DNS.asp?act=query_R&ID=<%=ID%>"><%=origin%></a>]-[<a href="DNS.asp">域名列表</a>]</td></tr>
<tr><td>序号</td>
<td>主机名</td>

<td>类型</td>
<td>参数值</td>
<td>优先级</td>
<td>TTL</td>
<td>解析组</td>
<td>编辑</td>
<td>删除</td></tr>
<%
i = 0
set rs=conn.execute("select a.*,b.netname from rr a left join net b on a.netid=b.id where zone="&ID&" order by type,name,netname " )
	do while not rs.eof 
%>
<form name="Web" action="DNS.asp">
<input name="act" type="Hidden" value="edit_R">
<input name="ID" type="Hidden" value="<%=ID%>">
<input name="rrID" type="Hidden" value="<%=rs("ID")%>">
<input name="rrname" type="Hidden" value="<%=rs("name")%>">
<input name="rrtype" type="Hidden" value="<%=rs("type")%>">
		<tr>
		<td><%=i+1%></td>
		<td>&nbsp;<%=rs("name")%></td>
		
		<td><%=rs("type")%></td>
		
		<td><input name="rrdata" type="Text" maxlength="60" size="10"  value="<%=rs("data")%>"></td>
		<td><input name="rraux" type="Text" maxlength="80" size="4"  value="<%=rs("aux")%>"></td>
		<td><input name="rrttl" type="Text" maxlength="80" size="4"  value="<%=rs("ttl")%>"></td>
		
		
		<td>
		<select name="netid">
<option value="0">默认解析</option>
<%
set rsn=conn.execute("select * from [net] order by netname")
do while not rsn.eof 
	if rsn("ID")= rs("netid") then
		response.write "<option value='"&rsn("ID")&"' selected>"&rsn("netname")&"</option>"
	else
		response.write "<option value='"&rsn("ID")&"'>"&rsn("netname")&"</option>"
	end if
	rsn.movenext
loop
rsn.close
%>
</select>
</td>
		
		<td><input type="Submit" value="修改"></td>
		<td><a href="DNS.asp?act=del_R&ID=<%=ID%>&rrID=<%=rs("ID")%>"  onclick="return window.confirm('该操作结果不可恢复,你确实要删除该解析记录吗?')">删除</a></td>
		</tr>
		</form>
<%
	i = i + 1
	rs.movenext
	loop
	
%>

<form name="Web" action="DNS.asp">
<input name="act" type="Hidden" value="add_R">
<input name="ID" type="Hidden" value="<%=ID%>">
		<tr>
		<td>&nbsp;</td>
		<td><input name="rrname" type="Text" maxlength="60" size="5" ></td>
		
		<td><select name="rrtype">
<option value="A">A</option>
<option value="MX">MX</option>
<option value="CNAME">CNAME</option>
<option value="NS">NS</option>
</select></td>
		
		<td><input name="rrdata" type="Text" maxlength="60" size="10"  ></td>
		<td><input name="rraux" type="Text" maxlength="80" size="4" value="10"></td>
		<td><input name="rrttl" type="Text" maxlength="80" size="4"  value="3600"></td>
		<td>
		<select name="netid">
<option value="0">默认解析</option>
<%
set rsn=conn.execute("select * from [net] order by netname")
do while not rsn.eof 
		response.write "<option value='"&rsn("ID")&"' >"&rsn("netname")&"</option>"
	rsn.movenext
loop
rsn.close
%>
</select>
</td>
		<td><input type="Submit" value="增加"></td>
		<td>&nbsp;</td>
		</tr>
		</form>
</table>
<br><br><br>
<table width="98%"  border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td    bgcolor="#AAE3FF" colspan="10">URL转发管理-[<a href="DNS.asp?act=query_R&ID=<%=ID%>"><%=origin%></a>]-[<a href="DNS.asp">域名列表</a>]</td></tr>
<tr><td>序号</td>
<td>主机名</td>

<td>转发类型</td>
<td>转发地址</td>
<td>解析组</td>
<td>编辑</td>
<td>删除</td></tr>
<%
set rsu=conn.execute("select origin from soa where ID="&ID)
domain=rsu("origin")
if mid(domain,len(domain)-1,1) ="."  then domain=mid(domain,0,len(domain-1))
rsu.close
i = 0
set rs=conn.execute("select * from url where domain ='"&domain&"' or domain like '%."&domain&"' order by domain " )
	do while not rs.eof 
%>
<form name="Web" action="DNS.asp">
<input name="act" type="Hidden" value="edit_URL">
<input name="ID" type="Hidden" value="<%=ID%>">
<input name="rrID" type="Hidden" value="<%=rs("ID")%>">
<input name="rrname" type="Hidden" value="<%=rs("domain")%>">
		<tr>
		<td><%=i+1%></td>
		<td>&nbsp;<%
		domaint = rs("domain")
		if domaint = domain then
			response.write "&nbsp;&"
		else
			response.write replace(domaint,"."&domain,"")
		end if
		%></td>
		
		<td>
		<select name="urltype">
<option value="0" <%if rs("urltype")="0" then response.write "selected"%>>显性转发</option>
<option value="1"  <%if rs("urltype")="1" then response.write "selected"%>>隐性转发</option>
</option>
</select>
</td>
		
		<td><input name="rrdata" type="Text" maxlength="60" size="20"  value="<%=rs("url")%>"></td>
		
		<td>
		<select name="netid">
<option value="0">默认解析</option>
<%
set rsn=conn.execute("select * from [net] order by netname")
do while not rsn.eof 
	if rsn("ID")= rs("netid") then
		response.write "<option value='"&rsn("ID")&"' selected>"&rsn("netname")&"</option>"
	else
		response.write "<option value='"&rsn("ID")&"'>"&rsn("netname")&"</option>"
	end if
	rsn.movenext
loop
rsn.close
%>
</select>

</td>
		
		
		
		<td><input type="Submit" value="修改"></td>
		<td><a href="DNS.asp?act=del_URL&ID=<%=ID%>&rrID=<%=rs("ID")%>"  onclick="return window.confirm('该操作结果不可恢复,你确实要删除该解析记录吗?')">删除</a></td>
		</tr>
		</form>
<%
	i = i + 1
	rs.movenext
	loop
	
%>

<form name="Web" action="DNS.asp">
<input name="act" type="Hidden" value="add_URL">
<input name="ID" type="Hidden" value="<%=ID%>">
		<tr>
		<td>&nbsp;</td>
		<td><input name="rrname" type="Text" maxlength="60" size="5" ></td>
		
		<td><select name="urltype">
<option value="0">显性转发</option>
<option value="1">隐性转发</option>
</select></td>
		
		<td><input name="rrdata" type="Text" maxlength="60" size="20"  ></td>
		<td>
		<select name="netid">
<option value="0">默认解析</option>
<%
set rsn=conn.execute("select * from [net] order by netname")
do while not rsn.eof 
		response.write "<option value='"&rsn("ID")&"' >"&rsn("netname")&"</option>"
	rsn.movenext
loop
rsn.close
%>
</select>
</td>
		<td><input type="Submit" value="增加"></td>
		<td>&nbsp;</td>
		</tr>
		</form>

</table>
<br><br><br>
<table width="98%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td class="td20">说明：<BR>1、做URL解析的主机,必须同时做一个CNAME解析,指向到URL服务器的地址:<font color="#ff0000"><%=WinMyDNSURL%></font>。 </td>
                </tr>
              </table>
<% ENd FUnction%>


	
	<!--中间部分结束-->
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="30">&nbsp;</td>
        </tr>
      </table></td>
    <td width="32" background="images/iis_06.gif">&nbsp;</td>
  </tr>
</table>
<table width="630" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="21"><img src="images/iis_51.gif" width="21" height="15" alt=""></td>
    <td background="images/iis_52.gif">&nbsp;</td>
    <td width="30"><img src="images/iis_54.gif" width="21" height="15" alt=""></td>
  </tr>
</table>
<br><br><br>
</body>
</html>