Function getIpvalue(clientIP)’得到客户端的IP转换成长整型，返回值getIpvalue On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split(clientIP,”.”) If UBound(array_Ip)3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strIp+(CInt(array_Ip(i))*(256^(3
