admin_lockip.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
	admintop()
	Dim admin_flag
	admin_flag=",6,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
		Select Case Request("action")
			Case "savelockip" : savelockip()
			Case Else
				lockip()
		End Select
        end     if

Sub	savelockip()
	Dim AcceptIP,Tempstr,i
	Tempstr = Trim(Request("AddAcceptIP"))
	If Tempstr<>"" Then
		Tempstr = Split(Tempstr,vbCrLf)
		For i = 0 To ubound(Tempstr)
			If Tempstr(i)<>"" and Tempstr(i)<>" " and Isnumeric(Replace(Replace(Tempstr(i),".",""),"*","")) and Instr(Tempstr(i),",")=0 Then
				If i=0 or AcceptIP="" Then
					AcceptIP = Tempstr(i)
				Else
					AcceptIP = AcceptIP & "|" & Tempstr(i)
				End If
			End If
		Next
	End If
	If Len(AcceptIP)>=25500 Then
		ErrMsg = "<li>閿佸畾IP鍒楄〃澶