<%Option Explicit%>
<!--#include file="conn.asp"-->
<%
DoWhat="IP查询"
Call HeadHtml()'网页头过程
If session("admin") Then
	Dim SerchIp
	SerchIp=request("ip")

	if request.querystring("action")="stopip" then	
	Dim NewIpDisable
		if DisableIp(SerchIp) then
			NewIpDisable=Replace(IpDisable,SerchIp & "|","")
			WhatErr="<LI>已解除对IP：" & SerchIp & "的限制；</LI>"
		else
			NewIpDisable=SerchIp & "|" & IpDisable
			WhatErr="<LI>已限制IP：" & SerchIp & "的访问；</LI>"
		end if
		Conn.Execute("update Config set IpDisable='" & NewIpDisable & "'")
		DoWhat="IP限制操作"
		Call FounderErr()'信息过程
	else
		Dim DoType
		if DisableIp(SerchIp) then DoType="<B>√</B>解除对该IP的限制" else DoType="<B>×</B>禁止该IP访问留言簿"
		response.write "<table width=780 height=100 border=1 cellspacing=2 cellpadding=5 align=center bordercolor=#FFFFFF><tr bordercolor=#FFFFFF><td align=center>"&_
		"<script language=javascript src=""http://my.hnjdzy.net/zhangjun/ipfound.asp?ip=" & SerchIp & """></script>"&_
		"<P><B>管理操作：</B><a href=?action=stopip&ip=" & SerchIp & ">" & DoType & "</a></tr></td></table>"
	end if
Else
	WhatErr="<LI>您不是管理员或还没有登陆，请先<a href=""admin.asp"">登陆！</a></LI>"
	Call FounderErr()'信息过程
End If
Set Rs=nothing
Conn.close
Set Conn=nothing
Call FootHtml()'网页尾过程
%>