© 1999-2048 dssz.net 粤ICP备11031372号
[其它] asp 根据IP地址自动判断转向分站的代码
说明: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<weixin_38714162> 上传 | 大小:23kb