📄 net.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("netname")="" then
response.write "错误:网组名称不能为空"
else
conn.execute ("insert into net (netname,remark) values ('"&SafeRequest("netname")&"','"&SafeRequest("remark")&"')")
response.write "操作成功"
end if
call List()
case "edit"
if SafeRequest("netname")="" then
response.write "错误:网组名称不能为空"
else
sql = "update net set netname='"&SafeRequest("netname")&"',remark='"&SafeRequest("remark")&"' where ID="&ID
'response.write sql
conn.execute (sql)
response.write "操作成功"
end if
call List()
case "del"
set rs = conn.execute("select id from rr where netid="&SafeRequest("ID"))
if not rs.eof then
response.write "不能删除该网络,因为RR表中有标识为该网络的记录"
response.end
end if
rs.close
set rs=conn.execute("select * from iptable where netid="&SafeRequest("ID"))
if not rs.eof then
response.write "不能删除该网络,因为IP分配表中有标识为该网络的记录,请先删除IP分配表的中的记录"
response.end
end if
rs.close
conn.execute (" delete from net where id="&SafeRequest("ID"))
response.write "操作成功"
call List()
case else
call List
end select
sub List()
sql = "select * from [net] order by id "
set rs = conn.execute(sql)
%>
<table width="98%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10">网络组管理</td></tr>
<tr><td >网络ID</td><td >名称</td>
<td >描述</td>
<td >修改</td>
<td >删除</td>
<td >IP分配表</td>
</tr>
<%
i=1
do while not rs.eof %>
<form method="POST" action="NET.asp">
<input type="hidden" name="act" value="edit">
<input type="hidden" name="ID" value="<%=rs("ID")%>">
<tr><td><%=rs("ID")%></td>
<td>
<input type="Text" name="netname" value="<%=rs("netname")%>" size="10" maxlength="125">
</td>
<td><input type="Text" name="remark" value="<%=rs("remark")%>" size="20" maxlength="125"></td>
<td><input type="Submit" value="修改"></td>
<td><a href="NET.asp?act=del&ID=<%=rs("ID")%>" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该网络组吗?')">删除</a></td>
<td><a href="iptable.asp?netid=<%=rs("ID")%>">IP分配表</a></td>
</tr>
</form>
<% i=i+1
rs.movenext
loop
%>
<form method="POST" action="NET.asp">
<input type="hidden" name="act" value="add">
<tr><td> </td>
<td>
<input type="Text" name="netname" size="10" maxlength="125">
</td>
<td><input type="Text" name="remark" size="20" maxlength="125"></td>
<td><input type="Submit" value="添加"></td>
<td> </td>
<td> </td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
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 + -