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

　　推荐阅读

　　ASP常用函数:IIF()

用法: IIF(条件表达式,为真时返回值,为假时返回值) <% Function IIf(bExp1, sVal1, sVal2) If (bExp1) Then IIf = sVal1 Else IIf = sVal2 End If End Function %> >>>详细阅读

本文标题：ASP常用函数:CStrIP()

地址：http://www.17bianji.com/kaifa2/ASP/32753.html

 1/2    1