ASP常用函数:CStrIP()
2007-02-07 00:00
393 查看
作用:把长整型数字转为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
%>
<%
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常用函数:CStrIP()
- ASP常用函数:ReplaceHTML
- ASP常用函数:CLngIP()
- Asp.Net常用函数
- Asp.net(C#)常用函数表
- ASP.NET中常用到的27个函数集
- asp 需要掌握的常用函数
- ASP常用函数表
- asp常用函数
- asp.net常用函数
- 我写ASP时常用到的一些函数(2)
- ASP.NET网络编程中常用到的27个函数集
- Asp.NET常用函数
- [导入]ASP常用函数:WriteLn() PrintLn()
- 我常用的一些ASP自定义函数
- 13-asp.net(c#)常用函数表
- Asp.net(C#)常用函数表
- Asp.NET常用函数 (VB.net)
- ASP.NET常用函数(推荐)
- ASP常用的函数和说明