网络编程
位置:首页>> 网络编程>> Asp编程>> asp实现*号隐藏IP地址

asp实现*号隐藏IP地址

 来源:asp之家 发布时间:2008-08-10 18:51:00 

标签:ip,地址,隐藏,asp

我们经常见到很多网站留言系统的显示访客的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.*



0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com