ASP常用函数:CStrIP()

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

　　%>