|
 |
| |
ผมทำตัว useronline ขึ้นมา จะทำยังให้มัน update ข้อมูลเมื่อเวลาปิดเพจ และไม่ได้ logout |
| |
 |
|
|
 |
 |
|
ถ้าไม่รบกวนผมก็อยากได้อยู่พอดี จะได้เอามาพัฒนาต่อครับ
|
 |
 |
 |
 |
| Date :
2012-08-23 22:14:50 |
By :
arta |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ไม่ยากครับ คือจะต้องสร้าง Table มาเพื่อเก็บ User ครับ โดยแทรกตอนคำสั่ง
Code (ASP)
Sub Session_OnStart
Application.Lock
Application("OnlineNow") = Application("OnlineNow")+1
Application.UnLock
End Sub
และลบออกจาก Table ตอน
Code (ASP)
Sub Session_OnEnd
Application.Lock
Application("OnlineNow") = Application("OnlineNow")-1
Application.UnLock
End Sub
Session_OnStart // ตอนที่ User เข้ามาครั้งแรก
Session_OnEnd // ตอนที่ User ออกจากระบบ หรือหายไปจากเว็บ
Go to : ASP Session_OnStart() - Session Object
|
| |
|
|
| |
| Date :
2012-08-24 06:16:11 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พี่ครับพอจะโค้ดตัวอย่างให้ดูได้ไหมครับ
ผมเข้าไปอ่านแล้วงง ลองเอาโค้ดไปใช้ก็ไม่ขึ้นอ่ะครับ
พอจะทำโค้ดให้เป็นแนวทางได้ไหมครับ
|
| |
|
|
| |
| Date :
2012-08-24 11:22:10 |
By :
Clamore |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คุณก็แทรก update ตอน Session_OnEnd() น่ะครับ
Code (ASP)
Sub Session_OnEnd
Application.Lock
Application("OnlineNow") = Application("OnlineNow")-1
Application.UnLock
End Sub
|
| |
|
|
| |
| Date :
2012-08-24 11:41:53 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พี่ครับไว้อย่างงี้รึเปล่าครับ
Logout(ASP)
<!--#include file="connect.asp"-->
<%
Dim sqlon3,recon3,a1,d1
d1=Date()
Application("OnlineNow") = 0
Application.Lock
Application("OnlineNow") = Application("OnlineNow")-1
sqlon3="update useronline set onoff=onoff" & Application("OnlineNow") & " where useronline='" & Session("user") & "' and date='" & d1 & "' "
'response.write(sqlon)
Set recon3=con.execute(sqlon3)
Application.UnLock
Session.Abandon()
Response.Redirect("../index.asp")
%>
ถ้าใช่มันก็ไม่ติดอ่ะครับ มันยังขึ้น 1 อยู่เลยอ่ะ
|
| |
|
|
| |
| Date :
2012-08-27 13:11:09 |
By :
Clamore |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 04
|
