программный код
функция enaddr(sip)'IP-кодирование
esip=cstr(sip)
str1=Влево(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=Влево(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
конечная функция
программный код
функция Deaddr(sip) 'IP-декодирование
глоток = глоток +1
s1=int(sip/256/256/256)
с21=с1*256*256*256
s2=int((sip-s21)/256/256)
с31=с2*256*256+с21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
Deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
конечная функция
20090522 обновляет две функции:
Функция: преобразование длинного целого числа в IP-адрес.
программный код
<%
Функция CStrIP(ByVal anNewIP)
Дим lsРезультаты
Тусклая температура
Дим Индекс
Для lnIndex = от 3 до 0 Шаг -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256^lnIndex))
Следующий
lsResults = Left(lsResults, Len(lsResults) - 1)
CStrIP = lsResults
Конечная функция
%>
Функция: преобразовать IP-адрес в длинное целое число.
программный код
<%
Функция CLngIP (ByVal asNewIP)
Дим ИнРезультаты
Дим Индекс
тусклый лнипарный
lnIpAry = Split(asNewIP, ".", 4)
Для lnIndex = от 0 до 3
Если Не lnIndex = 3 Тогда
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
Конец, если
lnРезультаты = lnРезультаты + lnIpAry(lnIndex)
Следующий
CLngIP = lnРезультаты
Конечная функция
%>