Función: Convierta los números de enteros largos en direcciones 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 = izquierda (lSresults, len (lsresults) -1)
Cstrip = lSresults
Función final
%>