动网开发者网络--国内领先的网络开发者基地，为开发者和企业提供全面的网络信息服务和资源

		开发者网络动网主机支持论坛邮局帮助

当前位置：网络学院 → ASP技术 → 正则表达式 → 检查来访IP是否合法的实际应用

检查来访IP是否合法的实际应用

日期：2000年11月12日作者：人气： [大中小]

   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 "<script language=javascript>window.location.href='ignoreip.htm'</script>"
      end if
  end sub

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！

（出处：）

相关文章：

·SQL Server 2000 SP4发布

·Sql Server 2005最新CTP简介及截图

·判断一个access数据库中某个表是否存在的方法

·用Asp生成条形码

·数字小写到英文大写的转换

·在不支持FSO的服务器上使用XMLDOM创建HTML文件