网站制作学习网ASP→正文:IP转换
字体:

IP转换

ASP 2008/8/13 22:21:34  点击:不统计

关键词:ip算法,ip转换,ip转换算法,ip从12位到10位,为什么ip库是10位的?,ip从12位转换为10位,

<%



IPP="202.152.181.198"

response.write ipp&"<br>"

'response.write ipp&"<br>"

'strip=split(ipp,".")

'Theipp=cint(strIP(0))*256*256*256+cint(strIP(1))*256*256+cint(strIP(2))*256+cint(strIP(3))-1

theipp=clngip(ipp)

response.write theipp

response.write "<br>"



response.Write cstrip(theipp)

'========================================================

'将IP地址转换为长整型

Function CLngIP(ByVal asNewIP)

Dim lnResults

Dim lnIndex

Dim lnIpAry

lnIpAry = Split(asNewIP, ".", 4)'//限定数组为4个元素

For lnIndex = 0 To 3

If Not lnIndex = 3 Then

lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))



End If

lnResults = lnResults + lnIpAry(lnIndex)



Next

CLngIP = lnResults

End Function

'=============================================================

'将长整型转换为IP地址

Function CStrIP(ByVal anNewIP)

Dim lsResults

Dim lnTemp

Dim lnIndex



For lnIndex = 3 To 0 Step -1



lnTemp = Int(anNewIP / (256 ^ lnIndex))



lsResults = lsResults & lnTemp & "."



anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))



Next



lsResults = Left(lsResults, Len(lsResults) - 1)



CStrIP = lsResults



End Function



%>

·上一篇:sub和function区别 >>    ·下一篇:过滤html >>
推荐文章
最新文章