ASP的自定义实用函数表1.docx

response.write"

history.go（-1）>返回"

endif

%>

--------------------------------------------

ip限制函数

'******************************

'FunctionCheckIp（cInput_Ip,cBound_Ip）

'Createdbyqqdao,qqdao@2001/11/28

'说明：

首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内

'参数：

cInput_Ip,代检查的ip

'cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位

'                每个范围后添加":

ALLOW"表示允许登陆，添加":

REFUSE"表示拒绝登陆。

多个范围用”;“隔开

'                例如192.168.1*.*:

ALLOW;192.168.1.1:

ALLOW;192.168.1.1-10:

REFUSE"

'返回值:

true/false

'更新：

2001/12/05  支持ALLOW,REFUSE支持’*‘,不想对？

支持，因为和*差不多

'******************************

functionCheckIp（cInput_Ip,cBound_Ip）

dimcSingle_Ip,cTemp_IP,cStart_IP,cEnd_Ip

CheckIp=false

cSingle_Ip=split（cBound_Ip,";"）

        fori=0toubound（cSingle_Ip）

            ifInstr（cSingle_Ip（i）,"REFUSE"）<>0then    '就是拒绝了

                cTemp_IP=left（cSingle_Ip（i）,instr（cSingle_Ip（i）,":

"）-1）

      ifInstr（cTemp_IP,"*"）<>0then  '是宽范围

          cStart_IP=left（cTemp_IP,instr（cTemp_IP,"*"）-1）

          ifleft（cInput_Ip,len（cStart_IP））=cStart_IPthen

          CheckIp=false

          exitfunction

          endif

            endif

      ifInstr（cTemp_IP,"-"）=0then

  cStart_IP=cTemp_IP

  cEnd_Ip  =cTemp_IP

      else

  cStart_IP=left（cTemp_IP,instr（cTemp_IP,"-"）-1）

  cEnd_Ip  =left（cStart_IP,InStrRev（cStart_IP,"."）-1）+"."+mid（cTemp_IP,instr（cTemp_IP,"-"）+1）

      endif

      if  Ip2Str（cInput_Ip）>=Ip2Str（cStart_IP）andIp2Str（cInput_Ip）<=Ip2Str（cEnd_Ip）then

          CheckIp=false

          exitfunction

      endif

    elseifInstr（cSingle_Ip（i）,"ALLOW"）<>0then    '允