正则表达式检查来访IP是否合法的实际应用

答案：正则表达式检查来访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=>end if 
end sub 

  

上一个：正则表达式详述 四
下一个：javascript用正则表达式把1234567890替换为abcdefghij