Função: converter números inteiros longos em endereços IP
<%
FunctionCstrip (byvalanNewip)
DIMLSRESULTS
DIMLNTEMP
DIMLNIndex
Forlnindex = 3to0Step-1
lntemp = int (Annewip/(256^lnindex))
LSRESULTS = LSRESULTS & LNTEMP & "".
ANNEWIP = ANNEWIP- (LNTEMP*(256^lnindex))
Próximo
lsResults = esquerda (lsResults, len (lsresults) -1)
CStrip = lsResults
Função final
%>