<%
'*********************************************************************************
'Dapatkan alamat IP
'*********************************************************************************
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 alamat IP
'*********************************************************************************
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
'*********************************************************************************
'Kotak dialog muncul
'*********************************************************************************
Subalert (pesan)
pesan = ganti (pesan, "'", "/'")
Response.write ("<script> alert ('" & message & "') </cript>")
Endsub
'*********************************************************************************
'Kembali ke halaman sebelumnya, biasanya digunakan setelah menilai apakah informasi tersebut diserahkan sepenuhnya
'*********************************************************************************
Subgoback ()
Response.write ("<script> history.go (-1) </cript>")
Endsub
'*********************************************************************************
'Mengalihkan koneksi lain
'*********************************************************************************
Subgo (URL)