发信人: lonelyboy.cc(风在发端的少年)
整理人: wuga(2002-12-19 12:15:15), 站内信件
|
'(c) www.lonelygirl.cc 2001/08/08
ip_ori="61.202.1.1"
if ip_ori<>"" then
for i=1 to len(ip_ori)
tmp_str=mid(ip_ori,i,1)
if tmp_str="." then j=j+1
if j>1 then
if tmp_str="." then
Response.Write(".")
else
Response.Write("*")
end if
else
Response.Write(tmp_str)
end if
next
else
Response.Write("xxx.xxx.xxx.xxx")
end if
----
http://www.lonelygirl.cc
个人独力编写的超级社区 |
|