Instance ASP: Tampilan Instan dari Penampil Halaman Saat Ini

<!-#Sertakan file = dbconn.asp->

<%

onlinetimeout = 10 '' Tentukan interval waktu untuk aktivitas online

Function userip ()

GetClientiP = request.serverVariable (http_x_forwarded_for) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” yang ”yang” yang ”yang” yang ”yang” yang ”yang” yang ”yang” yang ”yang” yang ”yang” yang yang 'yang ”yang” yang ”yang” yang yang yang Dalam yang yang ”yang” ”yang yang” yang ”yang” yang ”yang” yang ”yang” yang ”yang” yang yang yang yang dalam yang yanglah yanglah yanglah yanglah ”yang” yang ”yanglah yanglah yanglah'lah tidak tidaklahlah tidak tidak” ””lah yang tidak” yang saat ”” ”” ”yang” yanglah yang saat ”lah yanglah ”” ”lah yang ”tidaklah Nlah N selama Cak

Jika getClientIP = atau isnull (getClientIP) atau isempty (getClientIP) maka

GetClientIp = request.serverVariable (remote_addr) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'If You Don't We Not Menggunakan Server Proxy, Anda Akan Mendapatkan Sumber IP Addres Address IP The Source IP Alamat IP IP IP The Source IP Address IP IP The Source IP ALAMAT IP IP THE SUMBER IP ALAMAT IP THE IP ALAMAT IP THE SUMBER IP ALAMAT II

Akhiri jika

Userip = getClientiP

Fungsi akhir

SQL = SELECT O_ID DARI C_ONLINE WHERE O_IP = '' & USERIP () & '' Temukan ID dari alamat IP yang diperoleh dalam database

Set RS = Conn.Execute (SQL)

Jika rs.eof dan rs.bof maka

sql = masukkan ke dalam nilai c_online (o_ip) ('' & userip () & '') Jika tidak ada dalam database, itu berarti itu adalah IP baru, lalu operasi insert

Conn.execute (SQL)

Kalau tidak

sql = perbarui c_online set o_ltime = sekarang () di mana o_ip = '' & userip () & '' waktu saat ini dari database

Conn.execute (SQL)

Akhiri jika

sql = hapus dari c_online di mana dateadd ('' s '', & onlinetimeout*60 &, o_ltime) <now () tentukan sepuluh menit untuk menyegarkan

Conn.execute (SQL)

rs.close

Setel RS = tidak ada

Function allonline ()

tmprs = conn.execute (pilih count (o_id) dari c_online)

allonline = tmprs (0)

atur tmprs = tidak ada

fungsi akhir

%>

<%Response.write document.write (online & allonline () & people)%>