手机
当前位置:查字典教程网 >编程开发 >编程10000问 >如何验证IP地址?
如何验证IP地址?
摘要:subchkIP(boardid)dimrsIPdimipArrdimignoreddimidimipdimsqlip=Request.Se...

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

【如何验证IP地址?】相关文章:

如何实现强制登录?

如何制作关联的下拉菜单?

如何侦测HTTP表头信息?

如何用表单在线建立目录?

如何准确地获得一个整数?

如何实时获知多少人在线?

如何做一个文本书写器?

如何做一个密码“生成器”?

如何对用户进行授权?

如何限制上传文件的大小?

精品推荐
分类导航