Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > ASP > ASP Forum > ใคร? ทราบ code ที่แสดงจำนวนคนออนไลน์ไหมคะ!! มี code ที่แสดงจำนวนคนออนไลน์ในหน้าเวปไหมคะ อยากได้ค



 

ใคร? ทราบ code ที่แสดงจำนวนคนออนไลน์ไหมคะ!! มี code ที่แสดงจำนวนคนออนไลน์ในหน้าเวปไหมคะ อยากได้ค

 



Topic : 004703

Guest




มี code ที่แสดงจำนวนคนออนไลน์ในหน้าเวปไหมคะ อยากได้ค่ะ เห็นเขามีกัน

แบบที่ โชว์รูปคอมออนไลน์ นะคะ หรือ code ตัวไหนก็ได้ ที่ แสดงจำนวนคนออนไลน์หน้าเวป

ขอบคุณมากค่ะ


เด็กอ่อนหัดค่ะ


Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 9 ก.ค. 2548 14:08:45 By : jintana9 View : 3320 Reply : 3
 

 

No. 1

Guest


มีครับไปดูที่ เวปนี้ก็มีตัวอย่างนะครับหรือจะไปดูที่ www.aspthai.net ก็มีให้เอาไปใช้นะครับ
หรือว่าอยากเขียนเองก็ไปศึกษาเรื่อง appication กับ session ก็ได้แล้วอ่ะครับ


Date : 9 ก.ค. 2548 19:54:41 By : พามา
 


 

No. 2

Guest


เข้าไปแล้วไม่เห็นมีงง มากเลย ค่ะ บอกโคทเลยได้ไหมคะ ส่งทางเมล์ค่ะ [email protected]
ขอบคุณล่วงหน้าค่ะ
Date : 9 ก.ค. 2548 21:30:13 By : jintana9
 

 

No. 3

Guest


<%

Call LogActiveUser()
Call ActiveUserCleanup()

Response.Write " " & Application("ActiveUsers")&" user online "




Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate

strActiveUserList = Application("ActiveUserList")

If Instr(1, strActiveUserList, Session.SessionID) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.SessionID)
intUserEnd = Instr(intUserStart, strActiveUserList, "|")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now())
Application("ActiveUserList") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1
Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|"
Application.UnLock
End If
End Sub




Sub ActiveUserCleanup
Dim ix
Dim intUsers
Dim strActiveUserList
Dim aActiveUsers
Dim intActiveUserCleanupTime
Dim intActiveUserTimeout

intActiveUserCleanupTime = 1
intActiveUserTimeout = 10

If Application("ActiveUserList") = "" Then Exit Sub

If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then

Application.Lock
Application("ActiveUsersLastCleanup") = Now()
Application.Unlock

intUsers = 0 'สามารถกำหนดค่าเริ่มต้นได้โดยเปลี่ยนตัวเลขตรงนี้นะ
strActiveUserList = Application("ActiveUserList")
strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1)

aActiveUsers = Split(strActiveUserList, "|")

For ix = 0 To UBound(aActiveUsers)
If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then
aActiveUsers(ix) = "XXXX"
Else
intUsers = intUsers + 1
End If
Next

strActiveUserList = Join(aActiveUsers, "|") & "|"
strActiveUserList = Replace(strActiveUserList, "XXXX|", "")

Application.Lock
Application("ActiveUserList") = strActiveUserList
Application("ActiveUsers") = intUsers
Application.UnLock

End If

End Sub

'มาเยี่ยม www.smartproxp.com บ้างน่ะครับ
%>
Date : 12 ก.ค. 2548 00:16:43 By : วุธ
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ใคร? ทราบ code ที่แสดงจำนวนคนออนไลน์ไหมคะ!! มี code ที่แสดงจำนวนคนออนไลน์ในหน้าเวปไหมคะ อยากได้ค
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่