作用:把长整型数字转为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
- %>