检查来访IP是否合法的实际应用 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 检查来访IP是否合法的实际应用

检查来访IP是否合法的实际应用 时间：2004/11/7 4:10:00来源：本站整理作者：蓝点我要评论(0): sub chkIP(boardid)

      dim rsIP

      dim ipArr

      dim ignored

      dim i

      dim ip

      dim sql

      ip=Request.ServerVariables("REMOTE_ADDR")

      ignored=false

      if not isempty(boardid) then

         sql="select ignoreip from board where boardid="&cstr(boardid)

         set rsIP=conn.execute(sql)

         if not (rsIP.eof and rsIP.bof) then

            if instr(cstr(rsIP("ignoreip")&""),chr(13)&chr(10)) then

               iparr=split(rsIP("ignoreip"),chr(13)&chr(10))

               for i=0 to ubound(iparr)

                   if trim(iparr(i))<>"" and left(ip,len(trim(iparr(i))))=trim(iparr(i))  then

                      ignored=true

                      exit for

                   end if

               next

            else

               iparr=rsIP("ignoreip")

               if ip=trim(iparr) then

                  ignored=true

               end if

            end if

         end if

         rsIP.close

      end if

      if ignored then

         response.write ""

      end if

  end sub

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。