IP转换
关键词: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
%>