作用:把IP地址转为长整型<%Function CLngIP(ByVal asNewIP)    Dim lnResults    Dim lnIndex    Dim lnIpAry    lnIpAry = Split(asNewIP, ".", 4)    For lnIndex&nbs...