asp实现*号隐藏IP地址

我们经常见到很多网站留言系统的显示访客的IP地址都是隐藏了一部分，以达到隐蔽访客真实地理位置的功能。如：111.222.333.*，当然在系统后台管理员看到的是完整的IP记录，只是前台显示时隐藏掉了一部分。

那么我们用asp改这么实现这个功能呢?

方法一：使用split函数

其实很简单，我们知道IP地址是以三个.分割的字符串，我们只要提取前两个. 左右的数字就可以了：

<％ 
        ip=rs("ip")'这里读取完整的IP地址
        ip=split(ip,".")
        for j=0 to 1
        response.Write ip(j)&"."
        next
        response.Write("*.*")        
％>

方法二：自定义函数

Function ReplaceIP(ip)
        Dim l
        l=InstrRev(ip,".")+1
        ReplaceIP=mid(IP,1,l-1)&"*"
End Function
IP="203.132.61.56" '这里读取IP地址
Response.write ReplaceIP(ip)
'屏幕将显示：203.132.61.*