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

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 检查来访IP是否合法的实际应用

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 152 ::

收藏到网摘: n/a

简单的检查输入email是否合法程序如何使用asp创建dsn

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

简单的检查输入email是否合法程序如何使用asp创建dsn

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

评论 (0) All

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