繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP常用函数:CStrIP()
- ASP
- VPN技术详解(下）
- 微软Page Counter 组件参考(一)
- 微软Page Counter 组件参考(二)
- @ 指令参考之一 - @CODEPAGE
- @ 指令参考之二 - @ENABLESESSIONSTATE
- @ 指令参考之三 - @LANGUAGE
- @ 指令参考之四 - @LCID
- @ 指令参考之五 - @TRANSACTION
- SQL数据操作基础(初级) 1
- SQL数据操作基础(初级) 2
- SQL数据操作基础(初级) 3
- Response对象1
- Response对象2
- Response对象3
- Response对象4
- Response对象5
- WSH简介
- WSH实用讲座：第一讲 获取机器的网络属性配置
- WSH实用讲座---第二讲 创建用户、目录和站点
- WSH实用讲座---第三讲 创建邮箱
ASP常用函数:CStrIP()
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 129 ::
收藏到网摘: n/a
作用:把长整型数字转为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
%>
评论 (0) All
