Så att mina användare får en viss anonymitet när de syns i vem som surfar på sidan just nu. Vet inte riktigt hur man gör när ip adresserna har olika med antal siffror i sig...
Vill alltså att den 4:e delen av ip adressen ersätts med "x".
ipAddr = "192.168.200.100"
strIpAddr = left(ipAddr,len(ipAddr)-instrRev(ipAddr,".")-1)
for i = 1 to instrRev(ipAddr,".")-1
strIpAddr = strIpAddr & "X"
next
response.write strIpAddr
<%
Function ReplaceLastSection(ByVal sStr, ByVal sSeperator, ByVal sReplaceCharacter)
Dim vStr, i
vStr = Split(sStr, sSeperator)
sStr = ""
For i = 0 To UBound(vStr)
If i <> 0 Then sStr = sStr & sSeperator
If i = UBound(vStr) Then
sStr = sStr & String(Len(vStr(i)), sReplaceCharacter)
Else
sStr = sStr & vStr(i)
End If
Next 'i
ReplaceLastSection = sStr
End Function
Response.Write ReplaceLastSection("192.168.200.100", ".", "X")
%>
eller min funktion, som använder reguljära uttryck
Function HideIP(userIP)
Set objRegExp = New RegExp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\d{1,3}$"
strReplace = "***"
HideIP = objRegExp.Replace(userIP, strReplace)
End Function
