Функция: преобразовать длинные целочисленные числа в IP -адреса
<%
FunctionCstrip (byvalannewip)
Dimlsresults
Dimlntemp
Dimlnindex
Forlnindex = 3to0step-1
lntemp = int (annewip/(256^lnindex)))
lsresults = lsresults & lntemp & "."
annewip = annewip- (lntemp*(256^lnindex))
Следующий
LSResults = слева (LSResults, Len (LSResults) -1)
Cstrip = lsresults
Конечная функция
%>