ASP常用函数:CStrIP()
更新时间：2007年02月07日 00:00:00 作者：
作用:把长整型数字转为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
%>
相关文章
解决rs.absolutepage=-1的问题...2006-10-10
打包上传asp网站...2006-06-06
ASP编程入门进阶（四）：内置对象Request...2007-01-01
完美解决ASP 不能更新。数据库或对象为只读。...2006-12-12
这篇文章主要介绍了ASP的Error对象，需要的朋友可以参考下2015-09-09
'rs.open语句详细说明 'rs.Open [第一个参数], [第二个参数], [第三个参数], [第四个参数], (第五个参数) 'rs.Open [数据表名或SQL指令], [指定当前的连接], [指示CursorType], [指示LockType], (adCmdTable/adCmdText)2008-03-03
asp实现无限级分类的方法js版...2006-06-06
通过数组给您的文件排序...2006-06-06
ASP常用函数:IIF()...2007-02-02
用adodb.recordset实现数据库的插入方法2008-04-04
最新评论