WEB开发网
开发学院WEB开发ASP 检查来访IP是否合法的实际应用 阅读

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

 2000-11-12 10:13:12 来源:WEB开发网   
核心提示:sub chkip(boardid)dim rsIPdim ipArrdim ignoreddim idim ipdim sqlip=Request.ServerVariables("REMOTE_ADDR")ignored=falseif not isempty(boardid) then sql
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

Tags:检查 来访 IP

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接