彩色来表示不同的IP地址.

'突然想用彩色来表示不同的IP地址.
'Web的安全色有216色,'
'以00，33，66，99，CC，FF 这六个数, 组成RGB. 共有6X6X6=216种方式.
'#33 = 51
'红色最大数, 用 i 除以36 取整, 再乘以基数#33
'( i / 36) * 51
'绿色中数, 用 i 除以6 取整, 再除以6的余数, 乘以基数#33
'(( i / 6) mod 6 ) * 51
'蓝色最小数, 变化最多. 用 i 除以6的余数, 再乘以基数#33
'pBlue=( i mod 6 ) * 51
'突然想用彩色来表示不同的IP地址. 'Web的安全色有216色,' '以00，33，66，99，CC，FF 这六个数, 组成RGB. 共有6X6X6=216种方式. '#33 = 51 '红色最大数, 用 i 除以36 取整, 再乘以基数#33 '( i / 36) * 51 '绿色中数, 用 i 除以6 取整, 再除以6的余数, 乘以基数#33 '(( i / 6) mod 6 ) * 51 '蓝色最小数, 变化最多. 用 i 除以6的余数, 再乘以基数#33 'pBlue=( i mod 6 ) * 51 Function ToColorIP(str) Dim strContent, IP, i If IsNull(str) Then str = "172.16.1.216" ' If IsNull(str) Then str = "0.0.0.0" IP=Split(str,".") if NumContent>216 then NumContent=216 strContent="" For i=0 to 3 if IP(i)>216 then strContent=strContent&"<Font style="background-color:rgb(255,255,255);" mce_style="background-color:#ffffff;">"&IP(i) else strContent=strContent&"<Font style="background-color:rgb(" & ( IP(i) / 36) * 51 &"," & (( IP(i) / 6) mod 6 ) * 51 &"," & ( IP(i) mod 6 ) * 51 &");" mce_style="background-color:rgb(" & ( IP(i) / 36) * 51 &"," & (( IP(i) / 6) mod 6 ) * 51 &"," & ( IP(i) mod 6 ) * 51 &");">"&IP(i) end if if i<3 then strContent=strContent& "." strContent=strContent& "</Font>" Next ToColorIP = strContent End Function