código de programa
función enaddr(sip)'codificación IP
esip=cstr(sorbo)
str1=Izquierda(sorbo,CInt(InStr(sorbo,".")-1))
sorbo=Medio(sorbo,cint(instr(sorbo,"."))+1)
str2=Izquierda(sip,cint(instr(sip,"."))-1)
sorbo=medio(sorbo,cint(instr(sorbo,"."))+1)
str3=izquierda(sorbo,cint(instr(sorbo,"."))-1)
str4=mid(sorbo,cint(instr(sorbo,"."))+1)
enaddr=cint(cadena1)*256*256*256+cint(cadena2)*256*256+cint(cadena3)*256+cint(cadena4)-1
función final
código de programa
función deaddr(sip) 'decodificación de IP
sorbo=sorbo+1
s1=int(sorbo/256/256/256)
s21=s1*256*256*256
s2=int((sorbo-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sorbo-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
función final
20090522 actualiza dos funciones:
Función: Convertir un número entero largo en una dirección IP
código de programa
<%
Función CStrIP(ByVal anNewIP)
Dim lsResultados
Temperatura inten. tenue
Índice de entrada tenue
Para lnIndex = 3 a 0 Paso -1
lnTemp = Int(unaNuevaIP / (256 ^ lnIndex))
lsResultados = lsResultados & lnTemp & "."
unaNuevaIP = unaNuevaIP - (lnTemp * (256 ^ lnIndex))
Próximo
lsResultados = Izquierda(lsResultados, Len(lsResultados) - 1)
CStrIP = lsResultados
Función final
%>
Función: convertir la dirección IP a un número entero largo
código de programa
<%
Función CLngIP(ByVal asNewIP)
Resultados tenues
Índice de entrada tenue
tenue lnipario
lnIpAry = Dividir(comoNuevaIP, ".", 4)
Para lnIndex = 0 a 3
Si no es lnIndex = 3 entonces
lnIpAry(lnÍndice) = lnIpAry(lnÍndice) * (256 ^ (3 - lnÍndice))
Terminar si
lnResultados = lnResultados + lnIpAry(lnIndex)
Próximo
CLngIP = lnResultados
Función final
%>