ASP常用函数：CLngIP()
2018-09-06 10:58
阅读：456
作用:把IP地址转为长整型
<%
FunctionCLngIP(ByValasNewIP)
DimlnResults
DimlnIndex
DimlnIpAry
lnIpAry=Split(asNewIP,.,4)
ForlnIndex=0To3
IfNotlnIndex=3Then
lnIpAry(lnIndex)=lnIpAry(lnIndex)*(256^(3-lnIndex))
EndIf
lnResults=lnResults+lnIpAry(lnIndex)
Next
CLngIP=lnResults
EndFunction
%>
评论
亲，登录后才可以留言！