悠悠博客 提供视频转换器,3gp格式转换器免费下载

使用以下函数校验来源ip的合法性：

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