admin_lockip.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Badword") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
Header
dim userip,ips,GetIp1,GetIp2
if request("userip")<>"" then
userip=request("userip")
ips=Split(userIP,".")
If Ubound(ips)=3 Then GetIp1=ips(0)&"."&ips(1)&"."&ips(2)&".*"
end if
if request("action")="add" or request("userip")<>"" then
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" class="Border">
<tr> 
<td width="100%" colspan="2" align="center" class="title"><b>IP限制管理－－添加</b></td>
</tr>
<%
dim sip,str1,str2,str3,str4,num_1,num_2
if request.querystring("reaction")="save" then
	sip=cstr(request.form("ip1"))
	If sip<>"" Then
		If Trim(Cl.CacheData(9,0))<>"" Then
			sip=Trim(Cl.CacheData(9,0)) & "|" & Replace(sip,"|","")
		End If
	End If
	if sip<>"" then
		Cl.Execute("update Cl_Setup set LockIP='"&replace(sip,"'","''")&"'")
		Cl.Load_Setup()
	end if
%>
<tr>
<td width="100%" colspan=2 class=tdbg>添加成功！</td>
</tr>
<%
else
%>
<form action="admin_LockIP.asp?action=add&reaction=save" method="post">
<tr>
<td width="100%" class=tdbg colspan=2><B>说明</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>
<td width="20%" class=tdbg>限制I&nbsp;P</td>
<td width="80%" class=tdbg><input type="text" name="ip1" size="30" value="<%=GetIp1%>">&nbsp;如202.152.12.*</td>
</tr>
<tr>
<td width="20%" class=tdbg></td>
<td width="80%" class=tdbg>
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
<%
end if
elseif request("action")="delip" then
	userip=request("ips")
	'userip=split(userip,chr(10))
	userip=split(userip,vbCrLf)
	for i = 0 to ubound(userip)
		if not (userip(i)="" or userip(i)=" ") then
			If i=0 Then
				getip1 = userip(i)
			Else
				getip1 = getip1 & "|" & userip(i)
			End If
		End If
	next
	Cl.Execute("update Cl_Setup set LockIP='"&replace(getip1,"'","''")&"'")
	Cl.Load_Setup()
	Cl.SaveAdminLog
	response.write "更新限制IP成功！"
else
%>
<FORM METHOD=POST ACTION="?action=delip">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="Border">
<tr> 
<td width="100%" colspan="2" class="title" align="center"><b>IP限制管理－－管理</b></td>
</tr>
<tr>
<td width="100%" class=tdbg colspan=2>
<B>说明</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>
<td width="100%" class=tdbg colspan=2>
<textarea name="ips" cols="80" rows="18" ID="ips"><%
userip=split(Trim(Cl.Checkstr(Cl.CacheData(9,0))),"|")
For i = 0 To Ubound(Userip)
	Response.Write Userip(i)
	If i < Ubound(Userip) Then Response.Write Chr(10)
Next
%></textarea>
<br /><a href="javascript:admin_Size(-5,'ips')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'ips')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr>
<td width="20%" class=tdbg></td>
<td width="80%" class=tdbg>
<input type="submit" name="Submit" value="修 改">
</td>
</tr>
</FORM>
</table>
<%
end if
Footer
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>