ASP常用函数:CStrIP()

2018-09-06 11:46

阅读:428

  作用:把长整型数字转为IP地址

<%
FunctionCStrIP(ByValanNewIP)
DimlsResults
DimlnTemp
DimlnIndex
ForlnIndex=3To0Step-1
lnTemp=Int(anNewIP/(256^lnIndex))
lsResults=lsResults&lnTemp&.
anNewIP=anNewIP-(lnTemp*(256^lnIndex))
Next
lsResults=Left(lsResults,Len(lsResults)-1)
CStrIP=lsResults
EndFunction
%>


评论


亲,登录后才可以留言!