ASP常用函数:CLngIP()

　　作用:把IP地址转为长整型

　　<%

　　Function CLngIP(ByVal asNewIP)

　　Dim lnResults

　　Dim lnIndex

　　Dim lnIpAry

　　lnIpAry = Split(asNewIP, ".", 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

　　%>