📄 iptable.asp
字号:
<!--#include file="conn.asp"-->
<%
if session ("WinMyDNSUserName")="" then
response.redirect "index.asp"
response.end
end if
if session("WinMyDNSIsAdmin")<>"Y" 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")
select case act
case "add_pre"
call Add_Pre()
case "edit_pre"
call Edit_Pre()
case "add"
if SafeRequest("ip")="" then
response.write "错误:IP不能为空"
else
conn.execute ("insert into iptable (ip,mask,netid,remark) values ('"&SafeRequest("ip")&"',"&SafeRequest("mask")&","&SafeRequest("netid")&",'"&SafeRequest("remark")&"')")
response.write "操作成功"
end if
call List()
case "addm"
ipm = SafeRequest("ipm")
sql = ""
for each str in split(ipm,vbcrlf)
if str<>"" then
strA = split(str," ")
sql = " delete from iptable where ip='"&strA(0)&"' "
conn.execute(sql)
sql = " insert into iptable (ip,mask,netid) values ('"&strA(0)&"',"&strA(1)&","&SafeRequest("netid")&") "
conn.execute(sql)
end if
next
'if sql<>"" then conn.execute(sql)
call List()
case "edit"
if SafeRequest("ip")="" then
response.write "错误:IP不能为空"
else
sql = "update iptable set ip='"&SafeRequest("ip")&"',mask="&SafeRequest("mask")&",netid="&SafeRequest("netid")&",remark='"&SafeRequest("remark")&"' where ID="&ID
'response.write sql
conn.execute (sql)
response.write "操作成功"
end if
call List()
case "del"
conn.execute (" delete from iptable where id="&SafeRequest("ID"))
response.write "操作成功"
call List()
case "delm"
conn.execute (" delete from iptable where netid="&SafeRequest("netid"))
response.write "操作成功"
call List()
case else
call List
end select
sub List()
if SafeRequest("netid")="" then
sql = "select a.*,b.netname from [iptable] a left join net b on a.netid=b.id order by netname,ip "
else
sql = "select a.*,b.netname from [iptable] a left join net b on a.netid=b.id where a.netid="&SafeRequest("netid")&" order by netname,ip "
end if
set rs = conn.execute(sql)
%>
<table width="98%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10">IP分配表
-[<a href='iptable.asp'><font color='#ff0000'>全部</font></a>]-
<%
set rsn=conn.execute("select * from [net] order by netname")
do while not rsn.eof
response.write "-[<a href='iptable.asp?netid="&rsn("ID")&"'><font color='#ff0000'>"&rsn("netname")&"</font></a>]-"
rsn.movenext
loop
%>
[<a href="iptable.asp?act=add_pre"><font color="#ff0000">添加IP分配记录</font></a>]
</td></tr>
<tr><td >网络</td><td >IP</td>
<td >子网掩码</td>
<td >备注</td>
<td >删除</td>
<td >修改</td>
</tr>
<form method="POST" action="iptable.asp">
<input type="Hidden" name="act" value="del">
<%
i=1
do while not rs.eof %>
<tr><td><%=rs("netname")%></td>
<td><a href="iptable.asp?act=edit_pre&ID=<%=rs("ID")%>"><%=rs("ip")%></a> </a></td>
<td><%=rs("mask")%> </td>
<td><%=rs("remark")%> </td>
<td><a href="iptable.asp?act=del&ID=<%=rs("ID")%>" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该IP分配记录吗?')">删除</a></td>
<td><a href="iptable.asp?act=edit_pre&ID=<%=rs("ID")%>">修改</a></td>
</tr>
<% i=i+1
rs.movenext
loop
%>
</form>
<form action="iptable.asp">
<input type="Hidden" name="act" value="delm">
<tr><td colspan="6">批量删除记录,请选择网络组
<select name="netid">
<%
set rs=conn.execute("select * from [net] order by netname")
do while not rs.eof
response.write "<option value='"&rs("ID")&"'>"&rs("netname")&"</option>"
rs.movenext
loop
%>
</select>
<input type="Submit" value="确定删除所选择网络组的所有IP分配表" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该网络组的所有IP分配记录吗?')">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
sub Add_Pre()
%>
<form method="POST" action="iptable.asp">
<input type="hidden" name="act" value="add">
<table width="60%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10">逐条添加IP分配表-[<a href="iptable.asp">IP分配表</a>]
</td></tr>
<tr><td width="20%">网络组</td>
<td>
<select name="netid">
<%
set rs=conn.execute("select * from [net] order by netname")
do while not rs.eof
response.write "<option value='"&rs("ID")&"'>"&rs("netname")&"</option>"
rs.movenext
loop
%>
</select>
</td>
</tr>
<tr><td width="20%">IP地址</td>
<td><input type="Text" name="ip" value="" maxlength="60" size="20" maxlength="125"></td>
</tr>
<tr><td width="20%">子网掩码</td>
<td><select name="mask">
<%
for i=0 to 32
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>位</td>
</tr>
<tr><td width="20%">备注</td>
<td><input type="Text" name="remark" maxlength="50" size="20" maxlength="125"></td>
</tr>
<tr><td colspan="2" align="center"><input type="Submit" value="添加IP分配表"></td></tr>
</table>
</form>
<br><br><br>
<form method="POST" action="iptable.asp">
<input type="hidden" name="act" value="addm">
<table width="60%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10">批量添加IP分配表-[<a href="iptable.asp">IP分配表</a>]
</td></tr>
<tr><td width="20%">网络组</td>
<td>
<select name="netid">
<%
set rs=conn.execute("select * from [net] order by netname")
do while not rs.eof
response.write "<option value='"&rs("ID")&"'>"&rs("netname")&"</option>"
rs.movenext
loop
%>
</select>
</td>
</tr>
<tr><td width="20%">文本记录</td>
<td>
每行一条记录,记录格式为:ip+空格+子网掩码
<textarea name="ipm" cols="30" rows="10"></textarea></td>
</tr>
<tr><td colspan="2" align="center"><input type="Submit" value="添加IP分配表"></td></tr>
</table>
</form>
<%
end sub
sub Edit_Pre()
ID=SafeRequest("ID")
set rs =conn.execute("select * from iptable where ID="&ID)
if rs.eof then
response.write "IP分配表["&ID&"]不存在"
response.end
end if
%>
<form method="POST" action="iptable.asp">
<input type="hidden" name="act" value="edit">
<input type="hidden" name="ID" value="<%=ID%>">
<table width="60%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10">编辑IP分配表-[<%=ID%>]-[<a href="iptable.asp">IP表分配表</a>]
</td></tr>
<tr><td width="20%">网络组</td>
<td><select name="netid">
<%
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
%>
</select></td>
</tr>
<tr><td width="20%">IP地址</td>
<td><input type="Text" name="ip" value="<%=rs("ip")%>" maxlength="50" size="20" maxlength="125"></td>
</tr>
<tr><td width="20%">子网掩码</td>
<td><select name="mask">
<%
for i=0 to 32
if i=rs("mask") then
response.write "<option value='"&i&"' selected>"&i&"</option>"
else
response.write "<option value='"&i&"'>"&i&"</option>"
end if
next
%>
</select>位</td>
</tr>
<tr><td width="20%">备注</td>
<td><input type="Text" name="remark" value="<%=rs("remark")%>" maxlength="50" size="20" maxlength="125"></td>
</tr>
<tr><td colspan="2" align="center"><input type="Submit" value="修改网络组"></td></tr>
</table>
<%
end sub
%>
<!--中间部分结束-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"> </td>
</tr>
</table></td>
<td width="32" background="images/iis_06.gif"> </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"> </td>
<td width="30"><img src="images/iis_54.gif" width="21" height="15" alt=""></td>
</tr>
</table>
<br><br><br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -