📄 admin_syssafe.asp

📁 后台管理系统
💻 ASP
字号:
<!--#include file="Inc/Inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Admin_Css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call ClsAdmin.CheckManager(0,5)
ClsPub.Chk_Post()
ClsPub.SysConfig()
Action=ClsPub.SafeRequest(3,"Action",1,0,0)
Select Case Action
	Case "Save"
		Call Save()
	Case "ManageIp"
		Call ManageIp()
	Case "SaveAll"
		Call SaveAll()
	Case Else
		Call AddIp()
End Select
Sub AddIp
	Dim LockIp
	LockIP=Cstr(ClsPub.SafeRequest(3,"LockIp",1,0,0))
%>
 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
        <tr> 
      <td height="22" class="title">添加屏蔽IP</td>	 
    </tr>
    <tr> 
      <td width="972"class="td" align="center">
	  说明</B>：您可以添加多个限制IP，每个IP用|号分隔，限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问，如202.152.12.*就限制了以202.152.12开头的IP访问，同理*.*.*.*则限制了所有IP的访问。在添加多个IP的时候，请注意最后一个IP的后面不要加|这个符号</td>
    </tr>
    <tr> <form action="Admin_SysSafe.asp?Action=Save" method="post">
      <td width="972"class="td" align="center">
	  <input type="text" name="LockIp" size="30" value="<%=LockIp%>"> &nbsp;如202.152.12.*<input type="submit" name="Submit" value="添 加"> </form></tr>
  </table>
<%
End Sub
Sub Save()
	Dim Ip
	Ip=Cstr(ClsPub.SafeRequest(1,"LockIp",1,"",0))
	If Ip="" Then
		SysMsg="IP为空，无法添加！"
		Call ClsPub.ShowMsg("Back",3)
	End If
	Ip=Ip&"|"
	ClsPub.DB_Execute("Update TW_Config Set LockIps=LockIps&'"&ip&"'")
	ClsPub.DelCahe("SysConfig")
	SysMsg="屏蔽IP成功！"
	Call ClsPub.ShowMsg("Back",3)
End Sub
Sub SaveAll()
	Dim Ips,TempValue,i,Temp
	Ips=Cstr(ClsPub.SafeRequest(2,"Ips",1,"",0))
	TempValue=Split(Ips,vbCrLf)
	For i = 0 To Ubound(TempValue)
		if not (TempValue(i)="" or TempValue(i)=" ") then
			If i=0 Then
				Temp = TempValue(i)
			Else
				Temp = Temp & "|" & TempValue(i)
			End If
		End If
	Next
	ClsPub.DB_Execute("Update TW_Config Set LockIps='"&Temp&"'")
	ClsPub.DelCahe("SysConfig")
	SysMsg="屏蔽IP保存成功"
	Call ClsPub.ShowMsg("Back",3)
End Sub
Sub ManageIp()
	Dim TempValue,i,TempArr
	TempValue=ClsPub.DB_Query("Select LockIps From TW_Config")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
        <tr> 
      <td height="22" class="title">屏蔽IP管理</td>	 
    </tr>
    <tr> 
      <td width="972"class="td" align="center">
	  您可以添加多个限制IP，每个IP用回车分隔，限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问，如202.152.12.*就限制了以202.152.12开头的IP访问，同理*.*.*.*则限制了所有IP的访问。在添加多个IP的时候，请注意最后一个IP的后面不要加回车</td>
    </tr>
    <tr></td><form action="Admin_SysSafe.asp?Action=SaveAll" method="post">
      <td width="972"class="td" align="center">
	  <textarea name="Ips" cols="35" rows="20" id="Ips"><%
			TempArr=Split(TempValue(0,0),"|")
			For i=0 To UBound(TempArr)
				Response.Write TempArr(i)
				If i<Ubound(TempArr) Then Response.Write CHR(10)
			Next
		%></textarea>
 <br>
<input name="SaveIp" type="submit" id="SaveIp" value=" 保存所有屏蔽IP" >
</form></td></tr>
  </table>
<%
End Sub
Sub ShowNav()
%>
 <%End Sub%>
<%CloseAll%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -