📄 dnsmanage.asp
字号:
<%
if Session("UserName") = "" then
response.Redirect "login.asp"
end if
session("title")="砺青站点管理系统"
session("headline")="首页 -> DNS管理"
set lqsm_dns= server.CreateObject("lqsm.dns")
set lqsm_config= server.CreateObject("lqsm.config")
%>
<!--#include file="head.asp"-->
<br><br><br>
<%
on error resume next
DnsAction=""
Domain=""
OwnerName=""
ClassTYpe=""
Param1=""
Param2=""
DnsList=""
dim DnsArray
DnsAction=request("DnsAction")
Domain=request("Domain")
OwnerName=request("OwnerName")
page = request("page")
if page ="" or (not IsNumeric(page)) then
page = 1
end if
ret = lqsm_config.CfgGetConfig("PageSize",PageSize,ErrMsg)
if not IsNumeric(PageSize) then PageSize = 20
recb = (page-1) * cint(PageSize) +1
rece = recb + cint(PageSize) -1
'if OwnerName="" then OwnerName=Domain
ClassType=request("ClassType")
Param1=request("Param1")
Param2=request("Param2")
ErrMsg=""
if DnsAction="" then DnsAction="query"
select case DnsAction
case "add"
ret = lqsm_dns.DnsCreate(Domain,ErrMsg)
case "del"
ret = lqsm_dns.DnsDelete(Domain,ErrMsg)
case "add_R"
if OwnerName="" then
OwnerName = Domain
else
OwnerName = OwnerName&"."&Domain
end if
'response.write "domain=["&Domain&"],OwnerName=["&OwnerName&"],ClassType=["&ClassType&"],Param1ype=["&Param1e&"],Param2=["&Param2&"]"
ret = lqsm_dns.RCreate(Domain, OwnerName, ClassType, Param1, Param2, strErrMsg)
case "edit_R"
ret = lqsm_dns.REdit(Domain, OwnerName, ClassType, Param1, Param2, ErrMsg)
case "del_R"
ret = lqsm_dns.RDelete(Domain,OwnerName,ClassType,ErrMsg)
case "add_pre"
Add_Pre
response.end
case "add_pre_R"
Add_Pre_R
response.end
case "edit_pre_R"
ret = lqsm_dns.RDetail(Domain, OwnerName, ClassType, Param1, Param2, ErrMsg)
Edit_Pre_R
response.end
case "query"
ret = lqsm_dns.DnsZoneList(DnsList,ErrMsg)
Query
response.end
case "query_R"
ret = lqsm_dns.RList(Domain,ClassType,DnsList,ErrMsg)
Query_R
response.end
case else
ret = "-1"
ErrMsg = "非法操作"
end select
if ret = 0 then
Msg = "交易成功"
else
Msg = "交易失败:错误码=["&ret&"]; 描述=["&ErrMsg&"]"
end if
response.write "<table width='80%' align='center'><tr><td align='center'>"&Msg&Err.description&"</td></tr></table>"
response.end
'DNS列表
Function Query()
DnsArray = split(DnsList,",")
%>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td>
<td class='color01' bgcolor='#efefef'>域名</td>
<td class='color01' bgcolor='#efefef'>A记录</td>
<td class='color01' bgcolor='#efefef'>CName记录</td>
<td class='color01' bgcolor='#efefef'>MX记录</td>
<td class='color01' bgcolor='#efefef'>NS记录</td>
<td class='color01' bgcolor='#efefef'>删除</td></tr>
<%
i=1
for each DnsObj in DnsArray
if DnsObj <> "" then
if (i >= recb) and (i <= rece) then
%>
<tr>
<td> <%=i%></td>
<td> <%=DnsObj%></td>
<td> <a href="DnsManage.asp?DnsAction=query_R&Domain=<%=DnsObj%>&ClassType=A">A记录</A></td>
<td> <a href="DnsManage.asp?DnsAction=query_R&Domain=<%=DnsObj%>&ClassType=CNAME">CName记录</a></td>
<td> <a href="DnsManage.asp?DnsAction=query_R&Domain=<%=DnsObj%>&ClassType=MX">MX记录</a></td>
<td><a href="DnsManage.asp?DnsAction=query_R&Domain=<%=DnsObj%>&ClassType=NS">NS记录</a></td>
<td><a href="DnsManage.asp?DnsAction=del&Domain=<%=DnsObj%>">删除</a></td>
</tr>
<%
end if
i = i+ 1
end if
next
%>
<Tr><td colspan="13" align="center"><a href="DnsManage.asp?DnsAction=add_pre">增加DNS</a></td></TR>
</table>
<br><br>
<%
pageall = cint(i / PageSize)
if (pageall * PageSize) < i then
pageall = pageall + 1
end if
response.write page & "/" & pageall
do while ii<=pageall
if ii<> page then
response.write " <A HREF=dnsmanage.asp?page="&ii&">"&ii&"</A>"
else
response.write ii
end if
ii=ii+1
loop
ENd Function%>
<%
'查询A记录
Function Query_R()
DnsArray = split(DnsList,",")
%>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td>
<td class='color01' bgcolor='#efefef'>域名</td>
<td class='color01' bgcolor='#efefef'><%=PrintTitle(ClassType,1)%></td>
<%if ClassType <> "NS" then%>
<td class='color01' bgcolor='#efefef'><%=PrintTitle(ClassType,2)%></td>
<%end if%>
<%if ClassType="MX" then%>
<td class='color01' bgcolor='#efefef'><%=PrintTitle(ClassType,3)%></td>
<%end if%>
<%if ClassType <> "NS" then%>
<td class='color01' bgcolor='#efefef'>编辑</td>
<%end if%>
<td class='color01' bgcolor='#efefef'>删除</td></tr>
<%
i=1
for each DnsObj in DnsArray
if DnsObj <> "" then
OwnerName=DnsObj
ret = lqsm_dns.RDetail(Domain,OwnerName,ClassType,Param1,Param2,ErrMsg)
%>
<tr>
<td> <%=i%></td>
<td> <%=Domain%></td>
<td> <%=OwnerName%></a></td>
<%if ClassType <> "NS" then%>
<td> <%=Param1%></td>
<%end if%>
<%if ClassType="MX" then %>
<td> <%=Param2%></td>
<%end if%>
<%if ClassType <> "NS" then%>
<td><a href="DnsManage.asp?DnsAction=edit_pre_R&Domain=<%=Domain%>&OwnerName=<%=OwnerName%>&ClassType=<%=ClassType%>">编辑</a></td>
<%end if%>
<td><a href="DnsManage.asp?DnsAction=del_R&Domain=<%=Domain%>&OwnerName=<%=OwnerName%>&ClassType=<%=ClassType%>">删除</a></td>
</tr>
<%
i = i+ 1
end if
next
%>
<Tr><td colspan="13" align="center"><a href="DnsManage.asp?DnsAction=add_pre_R&Domain=<%=Domain%>&ClassType=<%=ClassType%>">增加<%=ClassType%>记录</a></td></TR>
</table>
<% ENd FUnction%>
<%
'增加DNS
Function Add_Pre()
%>
<form name="Web" action="DnsManage.asp" >
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=40% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入DNS名称</td></tr>
<input name="DnsAction" type="Hidden" value="add">
<tr><td>域 名</td></td><td><input name="Domain" class="form" type="Text" maxlength="100"></td></tr>
<tr><td align="center" colspan="2"><input type="Submit" value="添 加" style='text-align:center'> <input type='button' value='返 回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%ENd FUnction%>
<%
'增加记录
Function Add_Pre_R()
%>
<form name="Web" action="DnsManage.asp" >
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=40% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入<%=ClassType%>记录信息</td></tr>
<input name="DnsAction" type="Hidden" value="add_R">
<input name="ClassType" type="Hidden" value="<%=ClassType%>">
<input name="Domain" type="Hidden" value="<%=Domain%>">
<tr><td>域 名</td></td><td><%=Domain%></td></tr>
<%if ClassType <> "NS" then%>
<tr><td><%=PrintTitle(ClassType,1)%></td><td><input name="OwnerName" class="form" type="Text" maxlength="100" size="15">.<%=Domain%></td></tr>
<%end if%>
<tr><td><%=PrintTitle(ClassType,2)%></td><td><input name="Param1" class="form" type="Text" maxlength="100" size="30" value="<%=Param1%>"></td></tr>
<%if ClassType="MX" then %>
<tr><td><%=PrintTitle(ClassType,3)%></td><td><input name="Param2" class="form" type="Text" maxlength="100" size="30" value="<%=Param2%>"></td></tr>
<%End if%>
<tr><td align="center" colspan="2"><input type="Submit" value="添 加" style='text-align:center'> <input type='button' value='返 回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%End FUnction%>
<%Function Edit_Pre_R()%>
<form name="Web" action="DnsManage.asp">
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=40% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入<%=ClassTYpe%>记录信息</td></tr>
<input name="DnsAction" type="Hidden" value="edit_R">
<input name="Domain" type="Hidden" value="<%=Domain%>">
<input name="OwnerName" type="Hidden" value="<%=OwnerName%>">
<input name="ClassType" type="Hidden" value="<%=ClassType%>">
<tr><td>域名</td><td><%=Domain%></td></tr>
<tr><td><%=PrintTitle(ClassType,1)%></td><td><%=OwnerName%></td></tr>
<tr><td><%=PrintTitle(ClassType,2)%></td><td><input name="Param1" class="form" type="Text" maxlength="100" size="30" value="<%=Param1%>"></td></tr>
<%if ClassType="MX" then %>
<tr><td><%=PrintTitle(ClassType,3)%></td><td><input name="Param2" class="form" type="Text" maxlength="100" size="30" value="<%=Param2%>"></td></tr>
<%End if%>
<tr><td align="center" colspan="2"><input type="Submit" value="修 改" style='text-align:center'> <input type='button' value='返 回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%End FUnction%>
<%Function PrintTitle(ClassType,Slt)
select case ClassType
case "A"
if Slt=1 then PrintTitle="主机名"
if Slt=2 then PrintTitle="IP地址"
case "CNAME"
if Slt=1 then PrintTitle="别名"
if Slt=2 then PrintTitle="别名指向主机"
case "MX"
if Slt=1 then PrintTitle="主机名"
if Slt=2 then PrintTitle="MX记录域名"
if Slt=3 then PrintTitle="优先级"
case "NS"
if slt=1 then PrintTitle="DNS服务器"
if slt=2 then PrintTitle="DNS服务器"
end select
end Function
%>
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -