ASP隐藏IP地址函数

<% 
'IP隐藏，0不隐藏，1隐藏最后一部分，2隐藏最后两部分，3隐藏最后三部分，其他数字则全部隐藏  
Function Hide_IP(IP,num)   
If Instr(IP,":")>0 Then IP="127.0.0.1"   
Dim IPnew  
IPnew=split(IP,".")  
  
Select Case num   
Case 0 Hide_IP = IP   
Case 1 Hide_IP = IPnew(0)&"."&IPnew(1)&"."&IPnew(2)&".*"   
Case 2 Hide_IP = IPnew(0)&"."&IPnew(1)&".*.*"  
Case 3 Hide_IP = IPnew(0)&".*.*.*"  
Case Else Hide_IP = "*.*.*.*"  
End Select   
End Function
%>

<% 
'IP隐藏，0不隐藏，1隐藏最后一部分，2隐藏最后两部分，3隐藏最后三部分，其他数字则全部隐藏  
Function Hide_IP(IP,num)   
If Instr(IP,":")>0 Then IP="127.0.0.1"   
IP=split(IP,".")  
  
Select Case num   
Case 0 Hide_IP = IP(0)&"."&IP(1)&"."&IP(2)&IP(3)  
Case 1 Hide_IP = IP(0)&"."&IP(1)&"."&IP(2)&".*"   
Case 2 Hide_IP = IP(0)&"."&IP(1)&".*.*"  
Case 3 Hide_IP = IP(0)&".*.*.*"  
Case Else Hide_IP = "*.*.*.*"  
End Select   
End Function 
%>

<% 
'IP地址隐藏最后部分
Function Hide_IP(IP)   
If Instr(IP,":")>0 Then IP="127.0.0.1"   
IP=split(IP,".")  
Hide_IP = IP(0)&"."&IP(1)&"."&IP(2)&".*"   
End Function
%>