aa_limit.asp

强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。 开通会员注册和产品

 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************


PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
dim Web_LimitIp
Select case Action
case "IP"
Call Page_AdminFlag(17)
Page_BootmName="IP地址限制"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Web_LimitIp=Replace(Web_Const(54),",",CHR(10))
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_Limit.asp?Action=SaveIp>"&_
         "<TR>"&_
         "<TD HEIGHT=420 WIDTH=20% CLASS=Table8>IP地址：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=LimitIp cols=74 rows=22 id=LimitIp>" & Web_LimitIp & "</TEXTAREA><br>禁止这些IP地址访问本站<br><FONT COLOR=ff0000>请注意不要添加自己所在的IP</FONT>，否则会造成您无法访问<br>您现在的IP是：<FONT COLOR=ff0000><B>" & VisitorsIp & "</B></FONT><br>每个IP地址之间请换行</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reSet CLASS=submit_all id=cl VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
case "S"
Call Page_AdminFlag(18)
dim Sip,Tp_IP
Sip=Request.querystring("Sip")
Page_BootmName="IP地址查询"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_Limit.asp?Action=S&Sip=X>"
IF Sip="X" THEN
Tp_Ip=split(request.form("IP"),".")
IF ubound(Tp_Ip)<>3 THEN
Errorst="错误的IP！"
founderr=true
Else
For i=0 To ubound(Tp_Ip)
IF Len(Tp_Ip(i))>3 THEN
Errorst="错误的IP！"
founderr=true
Else
IF int(Tp_Ip(i))>255 THEN
Errorst="错误的IP！"
founderr=true
End IF
End IF
Next
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
        Tp_Ip=request.form("IP")
        Tp_IP=LastAIp(Tp_Ip)
			Set Rs_c=Server.CreateObject("ADODB.RecordSet")
			Sql="select country,city from ip_H where ip1<=" & Tp_IP & " and ip2>=" & Tp_IP
			Rs_c.Open sql,Cip,1,1
			IF Rs_c.RecordCount<>0 THEN
				IpRess=Rs_c("country") & Rs_c("city")
			Else
				IpRess="未知"
			End IF
			Rs_c.Close
			Set Rs_c=Nothing
			Cip.Close
			Set Cip=Nothing
strIfa = strIfa & "<TR><TD HEIGHT=40 CLASS=Table8>IP地址：" & request.form("IP") & "<br>所属地区：" & IpRess & "</TD></TR>"
            END IF
END IF
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=40 CLASS=Table8>请输入要查询的IP：<INPUT NAME='IP' TYPE='text' id='IP' size='20'> <INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交查询></TD>"&_
                  "</TR>"&_
                  "</form>"&_
                  "</TABLE>"
Call Page_aTable(0,0)
case "SaveIp"
	Web_LimitIp=Replace(request.form("LimitIp"),CHR(10),",")
    Set Rs=server.Createobject("Adodb.RecordSet")
        Sql="Select Web_Limit From Tx_Const"
        Rs.open Sql,Conn,1,3
		Rs("Web_Limit")=Web_LimitIp & "||" & Web_Const(55)
		Rs.update
	Rs.close
	Set Rs=nothing
	ToHistory=VisitorsForm
    saveok="修改成功！"
    Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_EndBody()
%>