📄 sitelockip.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="../inc/conn.asp"-->
<!--#include file="AdminChkPurview.asp"-->
<script language="JavaScript">
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
function checkIP(sIPAddress)
{
var sIPAddress=sIPAddress
var IPsplit;
var re=/^(\d{1,3}\.){3}\d{1,3}$/gi;
var chkflag=true;
if(sIPAddress.search(re)==-1){
chkflag=false;
}else{
IPsplit=sIPAddress.split("/");
IPsplit=IPsplit[0]+"."+IPsplit[1]
IPsplit=IPsplit.split(".");
for(i=0;i<8;i++){
if(IPsplit[i]>255){
chkflag=false;
break;
}
}
}
if(!chkflag)
return false;
return chkflag
}
function CheckAdd()
{
if (document.AddIP.ip1.value=="")
{
alert("起始IP不能为空！");
document.AddIP.ip1.focus();
return false;
}
if(!checkIP(document.AddIP.ip1.value))
{
alert("你输入的起始IP是一个非法的IP地址段！\nIP段为：:xxx.xxx.xxx.xxx（xxx为0-255)!");
document.AddIP.ip1.focus();
return false;
}
if (document.AddIP.ip2.value=="")
{
alert("结尾IP不能为空！");
document.AddIP.ip1.focus();
return false;
}
if(!checkIP(document.AddIP.ip2.value))
{
alert("你输入的结尾IP是一个非法的IP地址段！\nIP段为：:xxx.xxx.xxx.xxx（xxx为0-255)!");
document.AddIP.ip1.focus();
return false;
}
}
</script>
<%
dim rs, sql,i
dim Action,FoundErr,ErrMsg
Action=Trim(request("Action"))
%>
<html>
<head>
<title>IP来访限定管理页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../inc/Admin_Style.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center" class="title"><strong>IP来访限定管理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="SiteLockIP.asp?Action=Add">IP来访限定添加</a> | <a href="SiteLockIP.asp">IP来访限定管理</a>
</td>
</tr>
</table>
<%
dim userip,ips,GetIp1,GetIp2
if request("userip")<>"" then
userip=request("userip")
ips=Split(userIP,".")
GetIp1=ips(0)&"."&ips(1)&"."&ips(2)&".1"
GetIp2=ips(0)&"."&ips(1)&"."&ips(2)&".255"
else
userip=""
GetIp1=""
GetIp2=""
end if
if Action="Add" then
call Add()
elseif Action="SaveAdd" then
call SaveAdd()
elseif Action="Del" then
call DelIP()
else
call main()
end if
if FoundErr=True then
call WriteErrMsg()
end if
''call CloseConn() 'shiyu
sub main()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="border">
<FORM METHOD=POST ACTION="?action=Del" onSubmit="return confirm('确定要删除选中的IP范围吗？');">
<tr class="title" align="center">
<td height="22" align="center" colspan="4" class="title"><b>IP来访限制－－管理</b></td>
</tr>
<tr valign="top" class="tdbg" align="center">
<td><b>ID号</b></td>
<td><b>起始IP</b></td>
<td><b>结尾IP</b></td>
<td><b>操作</b></td>
</tr>
<%
dim currentpage,page_count,Pcount
dim totalrec,endpage
currentPage=request("page")
if currentpage="" then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
sql="select id,sip1,sip2 from LockIP order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr class="tdbg">
<td width="100%" colspan=4 align="center">还没有任何IP限制数据。</td>
</tr>
<%
else
while (not rs.eof) and (not page_count = 20)
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;">
<td width="15%" align="center" height="20" ><%=rs("id")%></td>
<td width="30%" align="center" ><%=rs("sip1")%></td>
<td width="30%" align="center" ><%=rs("sip2")%></td>
<td width="25%" align="center" ><input type=checkbox name="delid" value="<%=cstr(rs("ID"))%>" style="border: 0px;background-color: #eeeeee;"></td>
</tr>
<%
rs.movenext
wend
%>
<tr align="center" class="tdbg">
<td colspan=3 align=center>
</td>
<td align="left" >
<input type=submit name=submit value=" 删 除 " style="cursor: hand;background-color: #cccccc;">
<input type=checkbox value="on" name="chkall" onClick="CheckAll(this.form)" style="border: 0px;background-color: #eeeeee;">全选 </td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</FORM>
</table>
<%
end sub
sub Add()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="border">
<form action="SiteLockIP.asp?action=SaveAdd" method="post" name="AddIP" onSubmit="javascript:return CheckAdd();">
<tr class="title" align="center">
<td width="100%" colspan=2 height="22" class="title"><b>IP来访限制－－添加</b></td>
</tr>
<tr class="tdbg">
<td width="35%" align="center" >起始I P</td>
<td width="65%" >
<input type="text" name="ip1" size="30" value="<%=GetIp1%>">
如202.152.12.1</td>
</tr>
<tr class="tdbg">
<td width="35%" align="center" >结尾I P</td>
<td width="65%" >
<input type="text" name="ip2" size="30" value="<%=GetIp2%>">
如202.152.12.255</td>
</tr>
<tr align="center" class="tdbg">
<td colspan="2" >
<input type="submit" name="Submit" value=" 提 交 " style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
</form>
</table>
<%
end sub
sub SaveAdd()
dim sip,str1,str2,str3,str4,num_1,num_2
sip=cstr(request.form("ip1"))
'dot=instr(ip,".")-1
'response.write dot
str1=left(sip,cint(instr(sip,".")-1))
sip=mid(sip,cint(instr(sip,"."))+1)
str2=left(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
num_1=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
sip=cstr(request.form("ip2"))
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num_2=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
'response.write num_1 &","& num_2
'response.end
set rs = server.CreateObject ("adodb.recordset")
sql="select * from LockIP"
rs.open sql,conn,1,3
rs.addnew
rs("ip1")=num_1
rs("ip2")=num_2
rs("sip1")=request.form("ip1")
rs("sip2")=request.form("ip2")
rs.update
rs.close
set rs=nothing
%>
<table cellpadding="0" cellspacing="1" border="0" width="100%">
<tr>
<td height="22" align="center" class="title"> </td>
</tr>
<tr class="tdbg">
<td height="402" align="center">添加成功！</td>
</tr>
<tr class="tdbg">
<td width="254" align="right"> </td>
</tr>
</table>
<%
end sub
sub DelIP()
conn.execute("delete from lockip where id in ("&request.form("delid")&")")
call main()
end sub
%>
<!--#include file="AdminFooder.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -