<% session("WinMyDNSrrnum") =20 '最多只能添加20条记录 if SafeRequest("act") = "login" then call login() end if if session ("domainname")="" then call login_pre() response.end end if %>

<% act=SafeRequest("act") select case act case "add_R" if session("WinMyDNSIsAdmin")<>"Y" then set rsn = conn.execute("select count(*) from rr where zone="&session("zoneid")&" ") rrnum=rsn(0) if rrnum>=session("WinMyDNSrrnum") then PopMsg "对不起，最多只能添加["&session("WinMyDNSrrnum")&"]条记录" rsn.close end if conn.execute("insert into rr (zone,name,type,data,aux,ttl,netid) values ("&session("zoneid")&",'"&SafeRequest("rrname")&"','"&SafeRequest("rrtype")&"','"&SafeRequest("rrdata")&"','"&SafeRequest("rraux")&"',"&SafeRequest("rrttl")&","&SafeRequest("netid")&") ") conn.execute ("update soa set serial=(serial+1) where ID="&session("zoneid")) Mesg = "操作成功" Query_R case "edit_R" conn.execute("update rr set data='"&SafeRequest("rrdata")&"',aux="&SafeRequest("rraux")&",ttl="&SafeRequest("rrttl")&",netid="&SafeRequest("netid")&" where ID="&SafeRequest("rrID")&" and zone="&session("zoneid")) conn.execute ("update soa set serial=(serial+1) where ID="&session("zoneid")) Mesg = "操作成功" Query_R case "del_R" conn.execute("delete from rr where ID="&SafeRequest("rrID")&" and zone="&session("zoneid")) conn.execute ("update soa set serial=(serial+1) where ID="&session("zoneid")) Mesg = "操作成功" Query_R case "add_pre_R" Add_Pre_R case "edit_pre_R" Edit_Pre_R case "query" Query case "query_R" Query_R case "add_URL" set rsu=conn.execute("select origin from soa where ID="&session("zoneid")) domain=rsu("origin") if mid(domain,len(domain)-1,1) ="." then domain=mid(domain,0,len(domain-1)) rrname=SafeRequest("rrname") if rrname<>"" then domain=rrname&"."&domain if session("WinMyDNSIsAdmin")<>"Y" then set rsn = conn.execute("select count(*) from URL where domain='"&domain&"' ") rrnum=rsn(0) if rrnum>=session("WinMyDNSrrnum") then PopMsg "对不起，最多只能添加["&session("WinMyDNSrrnum")&"]条记录" rsn.close end if conn.execute("insert into url (domain,[url],urltype,netid) values ('"&domain&"','"&SafeRequest("rrdata")&"','"&SafeRequest("urltype")&"',"&SafeRequest("netid")&") ") Query_R case "edit_URL" conn.execute("update url set url='"&SafeRequest("rrdata")&"',urltype="&SafeRequest("urltype")&",netid="&SafeRequest("netid")&" where ID="&SafeRequest("rrID")&" and (domain like '%."&domain&"' or domain='"&domain&"')") Mesg = "操作成功" Query_R case "del_URL" conn.execute("delete from url where ID="&SafeRequest("rrID")&" and (domain like '%."&domain&"' or domain='"&domain&"')") Mesg = "操作成功" Query_R case else call Query_R end select '查询A记录 Function Query_R() %> <% i = 0 set rs=conn.execute("select a.*,b.netname from rr a left join net b on a.netid=b.id where zone="&session("zoneid")&" order by type,name,netname " ) do while not rs.eof %> "> "> "> <% i = i + 1 rs.movenext loop %> DNS解析-[<%=session("domainname")%>] 序号 主机名 类型 参数值 优先级 TTL 解析组 编辑 删除 <%=i+1%>  <%=rs("name")%> <%=rs("type")%> "> "> "> 默认解析 <% set rsn=conn.execute("select * from [net] order by netname") do while not rsn.eof if rsn("ID")= rs("netid") then response.write ""&rsn("netname")&"" else response.write ""&rsn("netname")&"" end if rsn.movenext loop rsn.close %> " onclick="return window.confirm('该操作结果不可恢复,你确实要删除该解析记录吗?')">删除   A MX CNAME NS TXT 默认解析 <% set rsn=conn.execute("select * from [net] order by netname") do while not rsn.eof response.write ""&rsn("netname")&"" rsn.movenext loop rsn.close %>   <% set rsu=conn.execute("select origin from soa where ID="&session("zoneid")) 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 %> "> "> <% i = i + 1 rs.movenext loop %> URL转发管理-[<%=session("domainname")%>] 序号 主机名 转发类型 转发地址 解析组 编辑 删除 <%=i+1%>  <% domaint = rs("domain") if domaint = domain then response.write " &" else response.write replace(domaint,"."&domain,"") end if %> >显性转发 >隐性转发 "> 默认解析 <% set rsn=conn.execute("select * from [net] order by netname") do while not rsn.eof if rsn("ID")= rs("netid") then response.write ""&rsn("netname")&"" else response.write ""&rsn("netname")&"" end if rsn.movenext loop rsn.close %> " onclick="return window.confirm('该操作结果不可恢复,你确实要删除该解析记录吗?')">删除   显性转发 隐性转发 默认解析 <% set rsn=conn.execute("select * from [net] order by netname") do while not rsn.eof response.write ""&rsn("netname")&"" rsn.movenext loop rsn.close %>   说明： 1、做URL解析的主机,必须同时做一个CNAME解析,指向到URL服务器的地址:<%=WinMyDNSURL%>。 <% ENd FUnction%>

<%sub login_pre()%>

<%=SafeRequest("Msg")%> 域    名： 管理密码：

<%end sub sub login() domainname=SafeRequest("domainname") password=SafeRequest("password") if domainname ="" then response.redirect "domain.asp?msg=域名不能为空" if password ="" then response.redirect "domain.asp?msg=管理密码不能为空" password = md5(password) set rst = conn.execute("select * from soa where origin='"&domainname&"' or origin='"&domainname&".' ") if rst.eof then response.redirect "domain.asp?msg=域名不存在" password_db = rst("password") zoneid = rst("ID") rst.close if isnull(password_db) or password_db="" then response.redirect "domain.asp?msg=域名密码未设置,不能登录" if len(password_db)<>32 then password_db = md5(password_db) conn.execute("update soa set password='"&password_db&"' where origin='"&domainname&"' or origin='"&domainname&".' ") end if if password<>password_db then response.redirect "domain.asp?msg=管理密码不对" session("domainname")=domainname session("zoneid")=zoneid end sub %>