ASP中，想把IP的最后1段隐藏（用*替换），请高手帮忙下

不知道别人什么办法.
我是这样写的.
dim ip,num1,num2,num3,cip,cip2
ip=request.ServerVariables("REMOTE_ADDR")
num1=len(ip)
for i=0 to num1
cip=mid (ip,i,1)
cip2=cip2&cip
if cip="." then
num3=num3+1
end if
if num3=3 then
exit for
end if
next
response.Write cip2&"*<br>"

思路 就是  先用len() 得到 ip字符串 有多少字符.  然后用mid()函数 循环依次得到每个字符 .
用if判断 如果当前字符 为 "." 则 计数器+1 依次循环.当计数器等于3 时 说明我们已经得三个 "."了 退出循环

然后找到只要输出这部分再连接个 "*" 就成了

第二种方法 简单些
dim cip3,cip4
cip3=split(ip,".",-1,1)
for i=0 to 2
cip4=cip4&cip3(i)&"."
next
response.write cip4&"*<br>"
思路是 用split()函数 得到 ip字符串中 已 "."为分界的 子字符串数组.
我们知道 一定有4组, 所以只要前三组 并且 每组中间&"." 最后再& "*" 就OK啦

收到的鲜花

• 永夜的极光 于 2008-04-16 16:03 送鲜花  8朵   附言：好!!!