页面导航： 首页 → 网络编程 → ASP编程 → ASP基础 → 正文内容

发布：dxy 发布日期：2007-2-7 字体：[增加 减小] 类型：转载

作用:把长整型数字转为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
%>

文章评论

共有 位脚本之家网友发表了评论我来说两句