如何验证IP地址?

来源:www.13sc.com | 游客上传 | 59 次浏览 | 0 条评论

搜索:  

如何验证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

标签:

最热-编程10000问

如何防止未经注册的用户绕过注册界面直接进入应用系统?

如何用数据库制作一个多用户版的计数器?

如何取回已忘记的密码?

如何编写一个加法器?

如何在ASP中恰当地运用Cookies?

如何获知并显示文件的大小?

在无组件的情况下,如何上传图片?

如何一行行地读取文件?

如何把Recordset转换成彩色的XML文件

如何修改被表单引用的ASP页面?

如何远程读取数据库页面?

如何显示最后十名来访者?

Copyright 2009-2013 13sc.com All Rights Reserved.