📄 hostcheck.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"
if SafeRequest("IP")="" or SafeRequest("port")="" then
response.write "错误:IP及端口都不能为空"
else
conn.execute ("insert into hostcheck (ip,port) values ('"&SafeRequest("ip")&"','"&SafeRequest("port")&"')")
response.write "操作成功"
end if
call List()
case "edit"
if SafeRequest("ip")="" or SafeRequest("port")="" then
response.write "错误:IP及端口均不能为空"
else
sql = "update hostcheck set port='"&SafeRequest("port")&"' where IP='"&SafeRequest("IP")&"' "
'response.write sql
conn.execute (sql)
response.write "操作成功"
end if
call List()
case "del"
conn.execute (" delete from hostcheck where IP='"&SafeRequest("IP")&"' ")
response.write "操作成功"
call List()
case else
call List
end select
sub List()
sql = "select * from [hostcheck] order by ip "
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 >IP地址</td>
<td >检测端口</td>
<td >修改</td>
<td >删除</td>
</tr>
<%
i=1
do while not rs.eof %>
<form method="POST" action="hostcheck.asp">
<input type="hidden" name="act" value="edit">
<input type="hidden" name="IP" value="<%=rs("IP")%>">
<tr>
<td><%=i%></td>
<td><%=rs("IP")%></td>
<td>
<input type="Text" name="port" value="<%=rs("port")%>" size="10" maxlength="125">
</td>
<td><input type="Submit" value="修改"></td>
<td><a href="hostcheck.asp?act=del&IP=<%=rs("IP")%>" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该网络组吗?')">删除</a></td>
</tr>
</form>
<% i=i+1
rs.movenext
loop
%>
<form method="POST" action="hostcheck.asp">
<input type="hidden" name="act" value="add">
<tr><td> </td>
<td>
<input type="Text" name="IP" size="10" maxlength="20">
</td>
<td><input type="Text" name="port" value="80" size="10" maxlength="10"></td>
<td><input type="Submit" value="添加"></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 + -