ASP常用函数:CStrIP()- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP常用函数:CStrIP()

技术文章搜索

关键字

ASP常用函数:CStrIP()

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 221 ::

收藏到网摘: n/a

On Error Resume Next 语句 ASP常用函数:CLngIP()

作用:把长整型数字转为IP地址
<%
Function CStrIP(ByVal anNewIP)
Dim lsResults
Dim lnTemp
Dim lnIndex
For lnIndex = 3 To 0 Step -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - 1)
CStrIP = lsResults
End Function
%>

On Error Resume Next 语句 ASP常用函数:CLngIP()

ASP常用函数:CStrIP()

评论 (0) All