📄 dns.asp
字号:
<!--#include file="conn.asp"-->
<%
if session ("WinMyDNSUserName")="" then
response.redirect "index.asp"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WinMyDNS管理</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.table1 {
border-bottom-width: 1px;
border-bottom-style: dashed;
border-bottom-color: #666666;
}
-->
</style>
</head>
<body>
<table width="630" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/iis_02.gif" width="630" height="137" alt=""></td>
</tr>
</table>
<table width="630" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="21" height="512" valign="bottom" background="images/iis_04.gif"><p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</td>
<td valign="top" bgcolor="#FFFFFF">
<!--#include file="menu.asp"-->
<!--中间部分开始-->
<br><br>
<%
act=SafeRequest("act")
ID= SafeRequest("ID")
if ID<>"" then
set rsd = conn.execute("select * from soa where ID="&ID)
origin=rsd("origin")
username=rsd("username")
if session("WinMyDNSUserName")<>username and session("WinMyDNSIsAdmin")<>"Y" then
PopMsg "对不起，您没有管理该域名的权限"
end if
rsd.close
end if
select case act
case "add_pre"
call Add_Pre()
case "edit_pre"
call Edit_Pre()
case "add"
if session("WinMyDNSIsAdmin")<>"Y" then
set rsn = conn.execute("select count(*) from soa where username='"&session("WinMyDNSUserName")&"' ")
soanum=rsn(0)
if soanum>=session("WinMyDNSsoanum") then PopMsg "对不起，最多只能添加["&session("WinMyDNSsoanum")&"]个域名"
rsn.close
end if
if SafeRequest("origin")="" then
Mesg = "错误:域名不能为空"
else
origin=SafeRequest("origin")&"."
origin=replace(origin,"..",".")
topdate=SafeRequest("topdate")
enddate=SafeRequest("enddate")
if topdate="" then topdate = date()
if enddate="" then enddate = dateadd("yyyy",50,date())
set rss=conn.execute("select * from soa where origin='"&origin&"' ")
if not rss.eof then
Mesg = "错误:域名["&origin&"]已存在"
else
conn.execute ("insert into soa (origin,ns,mbox,Serial,refresh,retry,expire,minimum,ttl,username,yn,topdate,enddate) values ('"&origin&"','"&origin&"','"&origin&"',1,900,600,86400,3600,3600,'"&SafeRequest("username")&"','"&SafeRequest("yn")&"','"&topdate&"','"&enddate&"')")
Mesg = "操作成功"
end if
rss.close
end if
call List()
case "edit"
origin=SafeRequest("origin")&"."
origin=replace(origin,"..",".")
topdate=SafeRequest("topdate")
enddate=SafeRequest("enddate")
if topdate="" then topdate = date()
if enddate="" then enddate = dateadd("yyyy",50,date())
conn.execute ("update soa set origin='"&origin&"', serial=(serial+1),username='"&SafeRequest("username")&"',yn='"&SafeRequest("yn")&"',topdate='"&topdate&"',enddate='"&enddate&"' where ID="&ID)
Mesg = "操作成功"
call List()
case "del"
conn.execute (" delete from rr where zone="&SafeRequest("ID"))
conn.execute (" delete from soa where id="&SafeRequest("ID"))
Mesg = "操作成功"
call List()
case "add_R"
if session("WinMyDNSIsAdmin")<>"Y" then
set rsn = conn.execute("select count(*) from rr where zone="&ID&" ")
'response.write "select count(*) from rr where zone=(select zone from rr where ID="&ID&") "
'response.end
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 ("&SafeRequest("ID")&",'"&SafeRequest("rrname")&"','"&SafeRequest("rrtype")&"','"&SafeRequest("rrdata")&"','"&SafeRequest("rraux")&"',"&SafeRequest("rrttl")&","&SafeRequest("netid")&") ")
conn.execute ("update soa set serial=(serial+1) where ID="&ID)
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")&" ")
conn.execute ("update soa set serial=(serial+1) where ID="&ID)
Mesg = "操作成功"
Query_R
case "del_R"
conn.execute("delete from rr where ID="&SafeRequest("rrID")&" ")
conn.execute ("update soa set serial=(serial+1) where ID="&ID)
Mesg = "操作成功"
Query_R
case "add_pre_R"
Add_Pre_R
'response.end
case "edit_pre_R"
Edit_Pre_R
'response.end
case "query"
Query
'response.end
case "query_R"
Query_R
'response.end
case "add_URL"
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))
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")&" ")
Mesg = "操作成功"
Query_R
case "del_URL"
conn.execute("delete from url where ID="&SafeRequest("rrID")&" ")
Mesg = "操作成功"
Query_R
case else
call List
end select
sub List()
sdomain=SafeRequest("sdomain")
sql = "select * from soa where origin like'%"&sdomain&"%' "
'不是管理员，只能管理自已的域名
if session("WinMyDNSIsAdmin")<>"Y" then
sql = sql & " and username='"&session("WinMyDNSUserName")&"' "
end if
sql = sql& " order by origin "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
if not isempty(SafeRequest("page")) then
if IsNumeric(SafeRequest("page")) = True then
pagecount=cint(SafeRequest("page"))
else
pagecount=1
end if
else
pagecount=1
end if
PageSize = SafeRequest("PageSize")
if PageSize="" or not IsNumeric(PageSize) then
PageSize = "100"
end if
rs.pagesize=PageSize
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
if not rs.eof then rs.AbsolutePage=pagecount
end if
%>
<font color="#ff0000"><%=Mesg%></font><br>
<img src='images/dotdb.gif' width='10' height='10'>
共计 <%=rs.recordcount%> 条记录<br><br>
<script type="text/javascript" language="javascript" src="images/calendar.js"></script>
<table width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10"><span class="style1">DNS区域管理</span></td></tr>
<tr>
<td >
<form method="POST" action="DNS.asp">
域名:<input type="Text" size="10" name="sdomain" value="<%=sdomain%>">
每页<input type="text" name="PageSize" size="3" value="<%=PageSize%>" >条记录 <input type='submit' value='搜索符合条件的记录' name='B1'></b></td></form> </tr>
</table>
<table width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td>序号</td><td>域名</td>
<td>状态</td>
<td>开始时间</td>
<td>到期时间</td>
<td>会员名</td>
<td>修改</td>
<td>删除</td>
<td>解析</td></tr>
<%
i=1
do while not rs.eof
yn = rs("yn")
if isnull(yn) then yn="1"
%>
<form method="POST" action="DNS.asp">
<input type="hidden" name="act" value="edit">
<input type="hidden" name="ID" value="<%=rs("ID")%>">
<tr><td><%=i+(pagecount-1)*PageSize%></td>
<td><input type="Text" name="origin" value="<%=rs("origin")%>" maxlength="50" size="13"></td>
<td><select name="yn">
<option value="1">正常</option>
<option value="0" <%if yn="0" then response.write "selected" %>>暂停</option>
</select></td>
<td><input type="Text" name="topdate" value="<%=rs("topdate")%>" maxlength="50" size="9" readonly="true" onfocus="setday(this)"></td>
<td><input type="Text" name="enddate" value="<%=rs("enddate")%>" maxlength="50" size="9" readonly="true" onfocus="setday(this)"></td>
<td><input type="Text" name="username" value="<%=rs("username")%>" maxlength="50" size="6"></td>
<td><input type="Submit" value="修改"></td>
<td><a href="DNS.asp?act=del&ID=<%=rs("ID")%>" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该域名及其所有解析吗?')">删除</a></td>
<td><a href="DNS.asp?act=query_R&ID=<%=rs("ID")%>">解析</a></td>
</tr>
</form>
<% i=i+1
rs.movenext
if i>rs.PageSize then exit do
loop
%>
<form method="POST" action="DNS.asp">
<input type="hidden" name="act" value="add">
<tr><td> </td>
<td><input type="Text" name="origin" maxlength="50" size="13"></td>
<td><select name="yn">
<option value="1">正常</option>
<option value="0">暂停</option>
</select></td>
<td><input type="Text" name="topdate" value="<%=date()%>" maxlength="50" size="9" readonly="true" onfocus="setday(this)"></td>
<td><input type="Text" name="enddate" value="<%=dateadd("yyyy",50,date())%>" maxlength="50" size="9" readonly="true" onfocus="setday(this)"></td>
<td><input type="Text" name="username" value="<%=session("WinMyDNSUserName")%>" maxlength="8" size="6"></td>
<td><input type="Submit" value="添加"></td>
<td> </td>
<td> </td>
</tr>
</form>
</table>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -