<%@language=vbscript codepage=936%>
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
dim dns
dns="../"
%>
<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<!--#Include file="fy_admin_check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_Style.Css" rel="stylesheet" type="text/css">
<script src="../common/Admin.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if fla26<>1 and Session("intUserLevel")<2 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>错误：操作权限出错，您没有权限操作些功能！</li>"
Call Admin_ShowErr(ErrMsg)
end if
Dim GetBack2
GetBack2="<a href='IpLock.Asp'><div align=center><b>返回锁定ＩＰ管理页面</b></div></a>"

Talesql="select boolbase from IpLockFlag"
Set Talers=server.createobject("adodb.recordset")
Talers.open Talesql,Conn,1,1
	if not(Talers.bof and Talers.eof) then
	Boolbase=split(talers("boolbase"),"|")
	End if
Talers.close
Set Talers=nothing
Sub Erasearraybase()
Erase boolbase
End Sub
%>
<table width="100%" border=0 align=center cellpadding=1 cellspacing=1 class="border">
<%
Call DoNoIpLock
Operate=Trim(Request("operate"))
If Operate="del" Then
	DelLock
ElseIf Operate="save" Then
	Call SaveLock
Else
	Call LockList
End if
Response.Write "</table>"

Sub Locklist
Set Talers=Conn.ExeCute("Select * from IpLock order by ipid desc")
If Not Talers.Eof Then
i=0
%>
<tr class="title">
<td align=center height="22"><b><font color='#ffffff'>ID</font></td>
<td align=center><b><font color='#ffffff'>被锁ＩＰ</font></td>
<td align=center><b><font color='#ffffff'>说明原因</font></td>
<td align=center><b><font color='#ffffff'>删除ＩＰ </font></td>
</tr>
<%
Do while Not Talers.eof
i=i+1
Dim WhyIpLock
WhyIpLock=split(TaleRS("iplock"),"|")
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td align=center><%=i%></td>
<td align=center><%=RealLock(Talers("ipsame"),Talers("ip1"),Talers("ip2"),Talers("ip3"),Talers("ip4"))%></td>
<td align=center><%=WhyIPLOck(1)%></td>
<td align=center><a href='IpLock.Asp?operate=del&ipid=<%=Talers("ipid")%>'>删除</a></td>
</tr>
<%
Talers.Movenext
Loop 
Else
Response.Write"<tr><td align=center height=40 colspan=10><font size=5 color=#Cc0000>目前没有ＩＰ封锁的记录</font></td></tr>"
End If
Talers.Close
Set Talers=Nothing
Call  LockAdd
End Sub

Sub LockAdd
%>
<tr class="title">
<td align=center height="22" colspan="4">添加新记录</td>
</tr>
<form method=post action='IpLock.Asp?operate=save'>
<tr class="tdbg">
<td align=right colspan=2>ＩＰ地址：</td>
<td Colspan=2>
<input name=ip1 style="width:50">&nbsp;.&nbsp;
<input name=ip2 style="width:50">&nbsp;.&nbsp;
<input name=ip3 style="width:50">&nbsp;.&nbsp;
<input name=ip4 style="width:50">
</td>
<tr class="tdbg">
<td align=right colspan=2>ＩＰ段数：</td>
<td Colspan=2>
<select name=ipsame>
<%
For i=1  to  4 
Response.write"<option value="&i&" "
If i=4 Then Response.write" Selected "
Response.write">前 "&i&" 段相同</option>"
Next
%>
</select>
</td>
</tr>
<tr class="tdbg">
<td align=right colspan=2>原因说明：</td>
<td Colspan=2>
<input name="reason" style="width:300">
</td>
</tr>
<tr class="tdbg">
<td Colspan=4 align=center><input type=submit value="对上面的ＩＰ地址封锁">&nbsp;<INPUT type=reset value=" 擦除重填 "></td>
</tr>
</form>

<%
End Sub
Sub SaveLock
DIm IPArr(3)
For i=0 to 3 
IPArr(i)=Trim(request.form("ip"&i+1&""))
If IpArr(i)="" Or IsNumeric(IpArr(i))=False Then 
	response.write ("<div align=center><BR><BR><font size=5 color=#Cc0000><b>错误提示：第"&i+1&"段必须数字</b></font></div>")
	response.write ("<BR><BR>"&GetBack2)
	Exit Sub
End If
Next
Conn.Execute("insert into IpLock (ip1,ip2,ip3,ip4,ipsame,iplock) values ("&Cint(IPArr(0))&","&Cint(IPArr(1))&","&Cint(IPArr(2))&","&Cint(IPArr(3))&","&Cint(Request.Form("ipsame"))&",'"&Now&"|"&Request.form("reason")&"')")
BoolBase(0)=1
Conn.ExeCute("Update IpLockFlag set Boolbase='"&Join(BoolBase,"|")&"'")
response.write ("<div align=center><BR><BR><font size=5 color=#Cc0000><b>操作提示：ＩＰ-"&RealLock(Cint(Request.Form("ipsame")),iparr(0),iparr(1),iparr(2),iparr(3))&" 已被锁定！</b></font></div>")
response.write ("<BR><BR>"&GetBack2)
End Sub

Function RealLock(IPsame,Ip1,ip2,ip3,ip4)
IF IPsame=1 Then
	RealLock="<font color='#cc0000'><b>"&IP1&".*.*.*</b></font>"
ElseIF IPsame=2 Then
	RealLock="<font color='#cc0000'><b>"&IP1&"."&IP2&".*.*</b></font>"
ElseIF IPsame=3 Then
	RealLock="<font color='#cc0000'><b>"&IP1&"."&IP2&"."&IP3&".*</b></font>"
ElseIF IPsame=4 Then
	RealLock="<font color='#cc0000'><b>"&IP1&"."&IP2&"."&IP3&"."&IP4&"</b></font>"
End IF
End Function

Sub DelLock
if  is_sqldata=0  then
	Conn.Execute("Delete * from IpLock where ipid="&Cint(Request("ipid"))&"")
else
Conn.Execute("Delete IpLock where ipid="&Cint(Request("ipid"))&"")
end if
	response.write ("<div align=center><BR><BR><font size=5 color=#Cc0000><b>操作提示：ＩＰ已被删除！</b></font></div>")
	response.write ("<BR><BR>"&GetBack2)	
End Sub

Sub DoNoIpLock()
Set Talers=Conn.Execute("select top 1 ipid from IpLock")
	If Talers.Eof Then
		BoolBase(0)=0
		Conn.ExeCute("Update IpLockFlag set Boolbase='"&Join(BoolBase,"|")&"'")
	End If
Talers.Close
Set Talers=Nothing
End Sub
%>
</table>
<%

%>