مثيل ASP: العرض الفوري لمشاهد الصفحة الحالي

<!-#تضمين ملف = dbconn.asp->

<٪

onlinetimeout = 10 '' حدد الفاصل الزمني للنشاط عبر الإنترنت

وظيفة userip ()

getClientip = request.servervariables (http_x_forwarded_for) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

إذا getClientip = أو isNull (getClientip) أو isEmpty (getClientip) ثم

getClientip = request.servervariables (remote_addr) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

إنهاء إذا

userip = getClientip

وظيفة نهاية

SQL = حدد O_ID من C_ONLINE حيث O_IP = '' & userip () و '' ابحث عن معرف عنوان IP الذي تم الحصول عليه في قاعدة البيانات

تعيين rs = conn.execute (SQL)

إذا كان rs.eof و rs.bof ثم

sql = insert في قيم c_online (o_ip) ('' & userip () و ') إذا لم يكن هناك في قاعدة البيانات ، فهذا يعني أنه IP جديد ، ثم عملية الإدراج

conn.execute (SQL)

آخر

SQL = UPDATE C_ONLINE SET O_LTITE = NOW () حيث O_IP = '' & userip () و '' الوقت الحالي لقاعدة البيانات

conn.execute (SQL)

إنهاء إذا

sql = delete من c_online حيث dateadd ('' s '' ، & onlinetimeout*60 & ، o_ltime) <الآن () حدد عشر دقائق للتحديث

conn.execute (SQL)

Rs.close

تعيين روبية = لا شيء

وظيفة allonline ()

TMPRS = conn.execute (حدد العدد (O_ID) من C_ONLINE)

allonline = tmprs (0)

تعيين TMPRS = لا شيء

وظيفة نهاية

٪>

<٪ response.write document.write (online & allonline () & people) ٪>