<%
'***********************************
'Fungsi: userip ()
'Parameter: tidak ada
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Dapatkan alamat IP klien
'Contoh: <%= userip ()%>
'***********************************
FunctionUserip ()
DimGetClientiP
'Jika klien menggunakan server proxy, itu harus menggunakan metode serverVariable ("http_x_forwarded_for")
GetClientiP = request.serverVariable ("http_x_forwarded_for")
IfgetClientIP = "" orisnull (getClientIP) orisempty (getClientIP) lalu
'Jika klien tidak menggunakan proxy, metode request.servarible ("remote_addr") harus digunakan
GetClientiP = request.serverVariable ("remote_addr")
endif
Userip = getClientiP
Fungsi endfungsi
%>
Konversi fungsi alamat IP
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: CIP (SIP)
'Parameter: SIP, alamat IP
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Konversi fungsi alamat IP
'Contoh: <%= cip ("219.16.73.120")%>
'***********************************
functioncip (SIP)
Tip = CSTR (SIP)
sip1 = kiri (tip, cint (instr (tip, ".")-1))
Tip = Mid (Tip, Cint (Instr (Tip, ".")+1))
sip2 = kiri (tip, cint (instr (tip, ".")-1))
Tip = Mid (Tip, Cint (Instr (Tip, ".")+1))
sip3 = kiri (tip, cint (instr (tip, ".")-1))
sip4 = mid (tip, cint (instr (tip, ".")+1))
cip = cint (sip1)*256*256*256+cint (sip2)*256*256+cint (sip3)*256+cint (sip4)
fungsi endfungsi
%>