kode program
fungsi enaddr(sip)'pengkodean IP
esip=cstr(sip)
str1=Kiri(sip,CInt(InStr(sip,".")-1))
sip=Pertengahan(menyesap,cint(instr(menyesap,"."))+1)
str2=Kiri(sip,cint(instr(sip,"."))-1)
menyesap=pertengahan(menyesap,cint(instr(menyesap,"."))+1)
str3=kiri(menyesap,cint(instr(menyesap,"."))-1)
str4=tengah(menyesap,cint(instr(menyesap,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
fungsi akhir
kode program
fungsi deaddr(sip) 'dekode IP
menyesap=menyesap+1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
fungsi akhir
20090522 memperbarui dua fungsi:
Fungsi: Mengubah bilangan bulat panjang menjadi alamat IP
kode program
<%
Fungsi CStrIP(ByVal anNewIP)
Redupkan Hasil
Redupkan Suhu
Redupkan Indeks
Untuk lnIndex = 3 Sampai 0 Langkah -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsHasil = lsHasil & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
Berikutnya
lsHasil = Kiri(lsHasil, Len(lsHasil) - 1)
CStrIP = lsHasil
Fungsi Akhir
%>
Fungsi: Mengubah alamat IP menjadi bilangan bulat panjang
kode program
<%
Fungsi CLngIP(ByVal asNewIP)
Redupkan Hasil
Redupkan Indeks
Redupkan lnIpAry
lnIpAry = Pisahkan(asNewIP, ".", 4)
Untuk lnIndeks = 0 Sampai 3
Jika Tidak lnIndex = 3 Maka
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
Akhiri Jika
lnHasil = lnHasil + lnIpAry(lnIndeks)
Berikutnya
CLngIP = lnHasil
Fungsi Akhir
%>