📄 fireadmin.asp

📁 通过使用Office的Access数据库与之关联
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True

Dim FireConn '此处声明变量不能少

Sub redOpenData(Num)
    Rem =========access数据库配置信息 开始 修改以下=========ACCESS
		
    Dim redDbPath,redConnStr
		
    If Num = 0 Then
	    redDbPath = "/Fire/songs.mdb"
    Else
	    redDbPath = "/Fire/songs.mdb"
    End If
		
	Rem =========access数据库配置信息 结束 修改以上数据=================ACCESS
		
	redConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(redDbPath)
	
	On Error Resume Next
	
	Set FireConn = Server.CreateObject("ADODB.Connection")
	FireConn.open redConnStr
	
	If Err Then
		Err.Clear
		Set FireConn = Nothing
		Response.Write "Fire DataBase Eoor Here " '数据库连接出错提示
		Response.End
	End If
End Sub
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>防火墙管理后台</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #FF0000;
}
.Font_14 {
	font-size: 14px;
}
.Font_9pt_888888 {
	font-size: 9pt;
	color: #888888;
}
.Fonr_Red_14 {
	font-size: 14px;
	color: #FF0000;
}
-->
</style>
<script language="javascript">
<!--
function CheckBoxChecked(theform,cBox) {
    var boxF = eval("document.all." + theform.name + "['" + cBox + "']") ;
	var tmpNum = 0 ;
	
	if (!boxF) {
	    return false ;
	}
	
	var boxL = boxF.length ;
	var i = 0 ;
	
	if (boxL) {
		if (boxL > 1) {
		    var tmpObjs = boxF ;
			var tmpObj = null ;
			
			for (i = 0 ; i < boxL ; i ++) {
			    tmpObj = tmpObjs[i] ;
				if (tmpObj.checked) {
				    return true ;
				}
			}
			return false ;
		}else{
		    return false ;
		}
	}else{
	    var stmpObj = eval("document." + theform.name + "['" + cBox + "']") ;
		if (stmpObj) {
			if (stmpObj.checked) {
			    return true ;
			}else{
			    return false ;
			}
		}else{
		    return false ;
		}
	}
}
//-->
</script>
</head>

<body>
<%
Dim FireType,Globalfile,GlobalPassWord
FireType = Request.QueryString("type")
Globalfile = Request.ServerVariables("SCRIPT_NAME")
GlobalPassWord = "admin" '密码修改

Select Case FireType
    Case "Login"
	    Call CheckAdminLogin()
	Case "Logout"
	    Call AdminLogout()
	Case "Admin"
	    Call HaveLogin()
	    
		Call AdminManage()
	Case Else
	    Call Admin_Default()
End Select

Sub AdminManage()
    Dim subAction
	subAction = Request.QueryString("action")
	Call AdminDh()
	
	Select Case subAction
	    Case "Log"
		    Call ShowLog()
		Case "SubmitMore"
		    Call LogSubmitMore()
		Case "ShowLogMore"
		    Call ShowLogMoreInfo()
		Case "DelLog"
		    Call DelLogInfo()
		Case "LockTheIp"
		    Call LockCurrentIp()
		Case "IpLock"
		    Call ShowIpLock()
		Case "LockTheIp2"
		    Call LockCurrentIp2()
		Case "DelLockInfo"
		    Call DelLockInfo()
		Case "SaveConfig"
		    Call SaveConfigData()
		Case Else
		    Call AdminDefault()
	End Select
End Sub

Sub DelLockInfo()
    Dim sCheckBox,sArr,i
	sCheckBox = Trim(Request.Form("LockId"))
	sArr = Split(sCheckBox,",")
	
	For i = 0 To Ubound(sArr)
	    sArr(i) = Trim(sArr(i))
		Call DelCurrentLockInfo(sArr(i))
	Next
	
	Dim sTemp
	If Request.ServerVariables("HTTP_REFERER") <> "" Then
	    sTemp = Request.ServerVariables("HTTP_REFERER")
	Else
	    sTemp = Globalfile & "?type=Admin&action=IpLock"
	End If
	
	Response.Redirect(sTemp)
End Sub

Sub DelCurrentLockInfo(delId)
    If IsNumeric(delId) Then
	    Call redOpenData(0)
		
		FireConn.Execute("Delete From [Tb_KillIp] Where Kill_Id = " & Cint(delId))
	End If
End Sub

Sub LockCurrentIp2()
    Dim sCheckBox,sArr,i
	sCheckBox = Trim(Request.Form("LockId"))
	sArr = Split(sCheckBox,",")
	
	For i = 0 To Ubound(sArr)
	    sArr(i) = Trim(sArr(i))
		Call subLockCurrentIp2(sArr(i))
	Next
	
	Dim sTemp
	If Request.ServerVariables("HTTP_REFERER") <> "" Then
	    sTemp = Request.ServerVariables("HTTP_REFERER")
	Else
	    sTemp = Globalfile & "?type=Admin&action=IpLock"
	End If
	
	Response.Redirect(sTemp)
End Sub

Sub subLockCurrentIp2(lockId)
    If IsNumeric(lockId) Then
	    Call redOpenData(0)
		
		Dim Rs_Sub
		Set Rs_Sub = FireConn.Execute("Select Kill_Check From [Tb_KillIp] Where Kill_Id = " & Cint(lockId))
		
		If Not Rs_Sub.Eof Then
		    Dim sTemp,sqlTemp
			sTemp = Trim(Rs_Sub("Kill_Check"))
			
			If Cint(sTemp) = 1 Then
			    sqlTemp = 0
			Else
			    sqlTemp = 1
			End If
			
			FireConn.Execute("Update [Tb_KillIp] Set Kill_Check = " & sqlTemp & " Where Kill_Id = " & Cint(lockId))
			
			Rs_Sub.CLose : Set Rs_Sub = Nothing
		End If
	End If
End Sub

Sub LockCurrentIp()
    Dim sCheckBox,sArr,i
	sCheckBox = Trim(Request.Form("Logid"))
	sArr = Split(sCheckBox,",")
	
	For i = 0 To Ubound(sArr)
	    sArr(i) = Trim(sArr(i))
		Call subLockCurrentIp(sArr(i))
	Next
	
	Response.Redirect(Globalfile & "?type=Admin&action=Log")
End Sub

Sub subLockCurrentIp(logId)
    If IsNumeric(logId) Then
	    Call redOpenData(0)
		
		Dim Rs_Temp
		Set Rs_Temp = FireConn.Execute("Select Fire_Ip From [Tb_FireLog] Where Fire_Id = " & Cint(logId))
		
		If Not Rs_Temp.Eof Then
		    Dim sTemp
			sTemp = Trim(Rs_Temp("Fire_Ip"))
			
			FireConn.Execute("Update [Tb_KillIp] Set Kill_Check = 1 Where Kill_IP = '" & sTemp & "'")
			
			Rs_Temp.Close : Set Rs_Temp = Nothing
		End If
	End If
End Sub

Sub DelLogInfo()
    Dim sCheckBox,sArr,i
	sCheckBox = Trim(Request.Form("Logid"))
	sArr = Split(sCheckBox,",")
	
	For i = 0 To Ubound(sArr)
	    sArr(i) = Trim(sArr(i))
		Call subDelLogInfo(sArr(i))
	Next
	
	Response.Redirect(Globalfile & "?type=Admin&action=Log")
End Sub

Sub subDelLogInfo(delId)
    If IsNumeric(delId) Then
	    Call redOpenData(0)
		FireConn.Execute("Delete From [Tb_FireLog] Where Fire_Id = " & Cint(delId))
	End If
End Sub

Sub LogSubmitMore()
    Dim sCheckBox,sArr,i
	sCheckBox = Trim(Request.Form("Logid"))
	sArr = Split(sCheckBox,",")
	
	sCheckBox = ""
	
	For i = 0 To Ubound(sArr)
	    If i = 0 Then
		    sCheckBox = Trim(sArr(i))
		Else
		    sCheckBox = sCheckBox & "," & Trim(sArr(i))
		End If
	Next
	
	Response.Redirect(Globalfile & "?type=Admin&action=ShowLogMore&id=" & sCheckBox)
End Sub

Function FomatSpecialString(strng)
	strng = LCase(strng)
	strng = Replace(strng,Chr(10)," ") 
	strng = Replace(strng,Chr(13)," ") 
	strng = Replace(strng,Chr(34),"&#34;") ' "
	strng = Replace(strng,Chr(39),"&#39;") ' '
	strng = Replace(strng,Chr(40),"&#40") ' (
	strng = Replace(strng,Chr(41),"&#41") ' )
	FomatSpecialString = strng
End Function

Sub SaveConfigData()
    Dim fArr,arrVal(6),i
	fArr = Array("KeyWords","LogIn","LockIp","AlertType","GoUrl","AlertData","LockIpData")
	
	For i = 0 To Ubound(fArr)
	    arrVal(i) = FomatSpecialString(Trim(Request.Form(fArr(i))))
	Next
	
	Call redOpenData(0)
	
	FireConn.Execute("Update [Tb_FireConfig] Set Conf_FireStr = '" & arrVal(0) & "',Conf_Log = " & Cint(arrVal(1)) & ",Conf_KillIp = " & Cint(arrVal(2)) & ",Conf_ErrorType = " & Cint(arrVal(3)) & ",Conf_ErrorUrl = '" & arrVal(4) & "',Conf_AlertInfo = '" & arrVal(5) & "',Conf_LockInfo = '" & arrVal(6) & "'")
	
	Response.Redirect(Globalfile & "?type=Admin")
End Sub

Sub HaveLogin()
    If StrComp(Session("PassWord"),GlobalPassWord) <> 0 Then
	    Response.Redirect(Globalfile)
	End If
End Sub

Sub CheckAdminLogin()
    Dim subPass
	subPass = Trim(Request.Form("PassWord"))
	
	If StrComp(subPass,GlobalPassWord) = 0 Then
	    Session("PassWord") = subPass
		Response.Redirect(Globalfile & "?type=Admin")
	Else
		Response.Redirect(Globalfile)
	End If
End Sub

Sub AdminDh()
%>
<table width="100%" border="0" cellspacing="4" cellpadding="4">
  <tr>
    <td height="16" align="right" bgcolor="#F3F3F3"><a href="?type=Admin">系统设置</a> | <a href="?type=Admin&amp;action=Log">查看日志</a> | <a href="?type=Admin&amp;action=IpLock">IP锁定</a> | <a href="asplist.asp" target="_blank">Asp木马追捕工具</a> | <a href="?type=Logout">退出登陆</a></td>
  </tr>
</table>

<%
End Sub

Sub Checkbox(num1,num2)
    If Cint(num1) = Cint(num2) Then
	    Response.Write("checked=""checked""")
	End If
End Sub

Sub CheckSelect(num1,num2)
    If Cint(num1) = CInt(num2) Then
	    Response.Write("selected=""selected""")
	End If 
End Sub

Sub AdminDefault()
    Call redOpenData(0)
	
	Dim Rs_Info
	 
	Set Rs_Info = FireConn.Execute("Select * From [Tb_FireConfig]")
	
	If Not Rs_Info.Eof Then
%>
<script language="javascript">
<!--
function CheckConfig(theform) {
    var i = 0 ;
	
	if (theform["KeyWords"].value == "") {
	    alert('过滤关键词输入不能为空！') ;
		theform["KeyWords"].focus() ;
		return false ;
	}
	
	if (theform["GoUrl"].value == "") {
	    alert('跳转URL不能为空！') ;
		theform["GoUrl"].focus() ;
		return false ;
	}
	
	if (theform["AlertData"].value == "") {
	    alert('警告提示信息不能为空！') ;
		theform["AlertData"].focus() ;
		return false ;
	}
	
	if (theform["LockIpData"].value == "") {
	    alert('锁定IP提示信息不能为空！') ;
		theform["LockIpData"].focus() ;
		return false ;
	}
	
	return true ;
}
//-->
</script>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  
  <tr>
    <td height="107">
	<table width="778" border="0" align="center" cellpadding="4" cellspacing="1">
      <form id="ConfigForm" name="ConfigForm" method="post" action="?type=Admin&action=SaveConfig" onsubmit="return CheckConfig(this);">
	  <tr bgcolor="#F3F3F3">
        <td height="25" align="right" bgcolor="#F3F3F3" class="Font_14">过滤的关键词：</td>
        <td><input name="KeyWords" type="text" id="KeyWords" value="<%=Rs_Info("Conf_FireStr")%>" size="50" /> 
          <span class="Font_9pt_888888">[多个请用半角&quot;,&quot;隔开] </span></td>
      </tr>
      <tr bgcolor="#F3F3F3">
        <td height="25" align="right" bgcolor="#F3F3F3" class="Font_14">是否记录入侵日志：</td>
        <td><input name="LogIn" type="radio" value="1" <%Call Checkbox(Rs_Info("Conf_Log"),1)%> />
          是
            <input type="radio" name="LogIn" value="0" <%Call Checkbox(Rs_Info("Conf_Log"),0)%> />
            否</td>
      </tr>
      <tr bgcolor="#F3F3F3">
        <td height="25" align="right" bgcolor="#F3F3F3" class="Font_14">是否启动锁定IP：</td>
        <td><input name="LockIp" type="radio" value="1" <%Call Checkbox(Rs_Info("Conf_KillIp"),1)%> />
          是
            <input type="radio" name="LockIp" value="0" <%Call Checkbox(Rs_Info("Conf_KillIp"),0)%> />
            否</td>
      </tr>
      <tr bgcolor="#F3F3F3">
        <td height="25" align="right" bgcolor="#F3F3F3" class="Font_14">出错后的处理方式：</td>
        <td bgcolor="#F3F3F3"><select name="AlertType" id="AlertType">
          <option value="0">直接关闭页面</option>
          <option value="1" <%Call CheckSelect(Rs_Info("Conf_ErrorType"),1)%>>警告后关闭</option>
          <option value="2" <%Call CheckSelect(Rs_Info("Conf_ErrorType"),2)%>>跳转到指定页面</option>
          <option value="3" <%Call CheckSelect(Rs_Info("Conf_ErrorType"),3)%>>警告后跳转</option>
        </select>
        </td>
      </tr>
      <tr bgcolor="#F3F3F3">
        <td height="25" align="right" bgcolor="#F3F3F3" class="Font_14">出错后跳转URL：</td>
12 下一页
💿 文件大小 55 K
👤 上传用户 lujing200912345
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#Office #Access #数据库
⌨️ 快捷键说明

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