如何验证IP地址？_编程10000问_

NEWSZW_HZH_BEGIN-->

  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

NEWSZW_HZH_END-->

查看更多关于如何验证IP地址？_编程10000问_的详细内容...