求助IP显示问题

ayfy 发布于 2008-04-16 14:06， 427 次点击

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

3 回复

frankqnj2008-04-16 15:32

不知道别人什么办法.
我是这样写的.
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>"

frankqnj2008-04-16 15:37

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

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

frankqnj2008-04-16 16:00

第二种方法简单些
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啦