Fonction: Convertir les numéros entiers longs en adresses IP
<%
Functioncstrip (byvalannewip)
Tabac
Dimlante
Dimlnindex
ForlNindex = 3to0Step-1
lntemp = int (annewip / (256 ^ lnindex)))
lsresults = lsresults & lntemp & "."
annewip = annewip- (lntemp * (256 ^ lnindex))
Suivant
lsResults = Left (lsresults, Len (lsresults) -1)
CSTrip = lsresults
Finition de fin
%>