เวบ/อินเตอร์เน็ตเทคโนโลยี ระบบปฏฺบัติการและซอฟท์แวร์ ซอร์สโค๊ด/โอเพนซอร์ส เทคโนโลยีฐานข้อมูล ระบบเครือข่ายและความมั่นคง เอ็มไอเอส/อีบิสสิเนส อื่น ๆ เกี่ยวกับไอ.ที. อื่น ๆ ไม่เกี่ยวกับไอ.ที.

ซอร์สโค๊ด/โอเพนซอร์ส

แสดงผลจำนวนผู้ใช้งานที่กำลังเข้าเวบของ เราในขณะนั้น ๆ (ASP.net Active User)

แสดงผลจำนวนผู้ใช้งานที่กำลังเข้าเวบของ เราในขณะนั้น ๆ
อัปเดท ( 6 มีนาคม 2546 ) , แสดง (33,557) , ความคิดเห็น (2) , พิมพ์  
 
ซอร์สโค๊ด/โอเพนซอร์ส
โปรแกรมเครื่องคิดเลข-CASIO 3800 Simulate (Turbo C 2.0) โปรแกรมจำลอง การทำงานเครื่องคิดเลข CASIO 3800 มีชุดคำสั่ง แบบ 3800 เกือบทั้งหมด Function ทาง คณิตศาสตร์ ทั้งหมด
โปรแกรมเครื่องคิดเลข-CASIO 5500 Simulate (Turbo C 2.0) โปรแกรมจำลอง การทำงานเครื่องคิดเลข CASIO 5500 มีชุดคำสั่ง แบบ 5500 เกือบทั้งหมด Function ทาง คณิตศาสตร์ ทั้งหมด
โปรแกรม Text Editor (Turbo C 2.0) สามารถ New ,Edit ,Save As และอื่น ๆ คล้าย กับ Editor บน Dos
Infix To PostFix (Turbo C 2.0) โปรแกรมโครงสร้างข้อมูลทำงานโดยแปลง Infix to Posfix
Snake Game (Turbo C 2.0) โปรแกรม เกม งู คล้ายของ Nokia พัฒนาด้วย ด้วย Turbo C 2.0 ทั้งหมด
BKK Bus 2003 BKK Bus 2003 ใช้ในการค้นหาสายรถ เส้นทางรถใน กรุงเทพฯ
ตรวจสอบพี้นที่ใช้งานของโฮสติ้ง (Hosting space check) Code ง่าย ๆ มีไว้เพื่อ ตรวจสอบพี้นที่ใช้งานของ Host
Database Admin (แก้ไข Database ผ่านเวบ) เพิ่ม,แก้ไข,ลบ, เปลี่ยนแปลง ทุกอย่างใน ฐานข้อมูล (asp + ms access)
เวบบอร์ด (asp+ms access) webboard ใส่รูปได้, ตรวจสอบคำหยาบได้ ,Login ได้และอื่นๆ
แสดงผลจำนวนผู้ใช้งานที่กำลังเข้าเวบของ เราในขณะนั้น ๆ (ASP.net Active User) แสดงผลจำนวนผู้ใช้งานที่กำลังเข้าเวบของ เราในขณะนั้น ๆ
Active User เป็นการแสดงผลจำนวนผู้ใช้งานที่กำลังเข้าเวบของ เราในขณะนั้น ๆ สำหรับ code อันนี้จะเขียนด้วย ASP.net ซึ่ง โค๊ดโปรแกรมก็มีนิดเดียว โดยจะใช้ไฟล์ หลักอยู่ 2 ไฟล์ คือ Gobal.asax และ activeU.aspx โดยที่ไฟล์ Gobal.asax จะทำหน้าที่เก็บค่าของตัวแปรที่ใช้ ส่วนไฟล์ activeU.aspx ก็จะทำหน้าที่ในการดึงค่าในตัวแปรมาเพื่อแสดงผล สำหรับโค๊ดโปรแกรม ก็ตามด้านล่างเลยครับ
คัดลอกโค๊ดด้านล่างไว้ในไฟล์ Gobal.asax โดยที่ไฟล์ Gobal.asax จะอยู่ที่ Directory นอกสุดเท่านั้น
Gobal.asax
<script language="VB" runat="Server">

Sub Application_OnStart(Sender as Object, E AS EventArgs)
   application("user_sessions") = 0
End Sub
 

Sub Session_OnStart(Sender as Object, E AS EventArgs)
   application.lock()
   application("user_sessions") = application("user_sessions") + 1
   application.unlock()

End Sub

Sub Session_OnEnd(Sender as Object, E AS EventArgs)
    application.lock()
    application("user_sessions") = application("user_sessions") - 1
   application.unlock()

End Sub

</script>


ขั้นตอนต่อไปก็สร้างไฟล์ aspx (สมมุติชื่อ activeU.aspx) ขึ้นมาแล้ว
คัดลอกโค๊ดด้านล่างนำไปวาง

activeU.aspx

<%@ Control Language="VB" %>
<script runat="server">
   Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      visitors.text = (Application("user_sessions").ToString())
   End Sub
</script>

<Html><Body>
Active User [<asp:label id="visitors" runat="server" />]
</Body></Html>

แค่นี้ก็เรียบร้อยแล้วครับ ตอนจะเรียกใช้งานก็เรียกตามปรกติ เช่น http://localhost/Mysite/activeU.aspx เป็นต้น หรือจะนำ Code ไปแทรกที่ web page หน้าอื่นๆก็ได้นะครับสำหรับ Active User หลักๆ ก็คงมีแค่นี้ล่ะครับ



เขียนโดย : จักรกฤษณ์ แร่ทอง

หนู
08 ก.พ. 2549 , 09:41 PM
ต้องการ desing lan โดยใช้ Repeater,Bridge,Router ทำไงคะ

อาภัสรา กิรัมย์
19 ส.ค. 2551 , 12:29 PM
ก็ดีนะ
1

ความคิดเห็น/แนะนำ/ติชม/อื่นๆ เกี่ยวกับบทความนี้
ชื่อของคุณ  : *     อีเมล : *    
ความคิดเห็น : *    
      อีเมลล์จะไม่ถูกเปิดเผย (นโยบายข้อมูลส่วนบุคคล)

Copyright © 2002 - 2017 by www.NEXTPROJECT.net All rights reserved. Policy