📄 admin_iplock.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="3"%>

<html>
<head>
<title>网站访问限制管理</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="10">

<!--#include file="Include/Session.asp"-->

<%
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim IP_ID,IP_A,IP_B,IP_C,IP_D,IP_Same,IP_Note,IP_Type,IP_Username,IP_IP,IP_DateTime
dim isIPLockModify

if Trim(Request.Form("GuComm"))="AdSa" or Trim(Request.Form("GuComm"))="MoSa" then

	if Trim(Request.Form("IP_Type"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有选择类型[限制前台]访问或[允许后台]访问"
		call GuMessage()
	else
		if Trim(Request.Form("IP_A"))="" then
			IP_A="0"
		else
			IP_A=Trim(Request.Form("IP_A"))
		end if

		if Trim(Request.Form("IP_B"))="" then
			IP_B="0"
		else
			IP_B=Trim(Request.Form("IP_B"))
		end if

		if Trim(Request.Form("IP_C"))="" then
			IP_C="0"
		else
			IP_C=Trim(Request.Form("IP_C"))
		end if

		if Trim(Request.Form("IP_D"))="" then
			IP_D="0"
		else
			IP_D=Trim(Request.Form("IP_D"))
		end if

		IP_Same=Trim(Request.Form("IP_Same"))
		IP_Note=Trim(Request.Form("IP_Note"))
		IP_Type=Trim(Request.Form("IP_Type"))
		IP_Username=GuAdminUsername
		IP_IP=GuUserIP

		if Request.Form("GuComm")="AdSa" then
			Call IPLockAddSave()
		else
			Call IPLockModifySave()
		end if
	end if

elseif Trim(Request.Form("GuComm"))="De" then

	Call IPLockDelete()

elseif Trim(Request.QueryString("GuComm"))="Mo" then

	isIPLockModify=True
	Call Admin_IPLock(isIPLockModify)

else
	isIPLockModify=False
	Call Admin_IPLock(isIPLockModify)
	
end if


Sub IPLockAddSave()

	dim rsIP1
	set rsIP1=Server.CreateObject("Adodb.RecordSet")
	rsIP1.open "select * from "&GuTablePrefix&"_IPLock where IP_A="&IP_A&" and IP_B="&IP_B&" and IP_C="&IP_C&" and IP_D="&IP_D&" and IP_Type='"&IP_Type&"'",GuConn,1,1
	if not(rsIP1.bof and rsIP1.eof) then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="同一类型下已有相同的IP地址存在"
	else
		dim rsIPA
		set rsIPA=Server.CreateObject("Adodb.RecordSet")
		rsIPA.open "select * from "&GuTablePrefix&"_IPLock",GuConn,1,3
		GuSQL="select * from "&GuTablePrefix&"_IPLock where (IP_ID is null)"
		rsIPA.addnew
		rsIPA("IP_A")=IP_A
		rsIPA("IP_B")=IP_B
		rsIPA("IP_C")=IP_C
		rsIPA("IP_D")=IP_D
		rsIPA("IP_Same")=IP_Same
		rsIPA("IP_Type")=IP_Type
		rsIPA("IP_Note")=IP_Note
		rsIPA("IP_Username")=IP_Username
		rsIPA("IP_IP")=IP_IP
		rsIPA("IP_DateTime")=date()
		rsIPA.update
		rsIPA.close
		set rsIPA=Nothing
		GuSystemCode=00
		GuSystemMessage="新的IP地址已添加完成"
		GuSystemURL="<a href=""Admin_IPLock.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if
	rsIP1.close
	set rsIP1=Nothing

	call GuMessage()

end sub


Sub IPLockModifySave()

	dim rsIP3
	set rsIP3=Server.CreateObject("Adodb.RecordSet")
	rsIP3.open "select * from "&GuTablePrefix&"_IPLock where IP_A="&IP_A&" and IP_B="&IP_B&" and IP_C="&IP_C&" and IP_D="&IP_D&" and IP_Same="&IP_Same&" and IP_Type='"&IP_Type&"' and IP_Note='"&IP_Note&"'",GuConn,1,1
	if not(rsIP3.bof and rsIP3.eof) then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="同一类型下已有相同的IP地址存在"
	else
		dim rsIPM
		set rsIPM=Server.CreateObject("Adodb.RecordSet")
		GuSQL="select * from "&GuTablePrefix&"_IPLock where IP_ID="&Trim(Request.Form("IP_ID"))
		rsIPM.open GuSQL,GuConn,1,3
		rsIPM("IP_A")=IP_A
		rsIPM("IP_B")=IP_B
		rsIPM("IP_C")=IP_C
		rsIPM("IP_D")=IP_D
		rsIPM("IP_Same")=IP_Same
		rsIPM("IP_Type")=IP_Type
		rsIPM("IP_Note")=IP_Note
		rsIPM("IP_DateTime")=date()
		rsIPM.update
		rsIPM.close
		set rsIPM=Nothing
		GuSystemCode=00
		GuSystemMessage="IP地址已修改完成"
12 下一页
⌨️ 快捷键说明

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