<%
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
%>
<%
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
%>
<%
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
%>