ผมต้องการเก็บ Session user login ลงใน database sql โดยต้องการเก็บว่าใครเข้ามาในระบบบ้าง และเข้ามาตอนไหน ระบบที่ใช้เป็นการใช้แบบ user online ช่วยหน่อยนะครับ ตอนนี้ทำไม่ได้จริงๆ ขอบคุณล่วงหน้าครับ
Code (VB.NET)
<%@ Application Language="VB" %>
<script runat="server">
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application startup
Application("conn") = "Provider=SQLNCLI;SERVER=10.84.57.109;UID=sa;PWD=abc123;APP=IIS6;WSID=pasapdbcluster;DATABASE=PASAP_Inventory;Description=WH Data Database;"
Application("sConnStr") = "Data Source=10.84.57.109;Initial Catalog=PASAP_Inventory;" & _
"User ID=sa;Password=abc123;Network Library=DBMSSOCN;pooling='true';Max Pool Size=1000000"
Application("OnlineUser") = 0
End Sub
Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application shutdown
Application.Lock()
Application("OnlineUser") = Convert.ToInt16(Application("OnlineUser")) - 1
Application.UnLock()
End Sub
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when an unhandled error occurs
End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a new session is started
Application.Lock()
Application("OnlineUser") = Convert.ToInt16(Application("OnlineUser")) + 1
Application.UnLock()
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a session ends.
' Note: The Session_End event is raised only when the sessionstate mode
' is set to InProc in the Web.config file. If session mode is set to StateServer
' or SQLServer, the event is not raised.
Application.Lock()
Application("OnlineUser") = Convert.ToInt16(Application("OnlineUser")) - 1
Application.UnLock()
End Sub
</script>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'ScriptManager1.SetFocus(txt_emp.ClientID)
Online = Application(("OnlineUser"))
lbl_active.Text = " Active users: " & Online.ToString()
Session.Item("oldpass") = txt_Pass.Text
End Sub
Protected Sub img_bnt_enter_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
If txt_emp.Text <> "" And txt_Pass.Text <> "" Then
qryExp()
qryuser()
Else
'Label4.Text = "Please enter User ID and Password"
End If
End Sub
พี่ mr.win ครับ
ผมอยากให้พอใส่ user & password กดปุ่ม enter (img_bnt_enter) แล้วข้อมูล ID , name , time insert ลงไปใน table T201001
พี่พอจะบอกแนวทางให้ผมได้ไหมครับ
Date :
2011-01-11 14:59:41
By :
uyadekkon
No. 4
Guest
ก็ไป Insert ข้อมูลหลังจาก ตรวจสอบ ID และรหัส ผ่าน สิครับ
Code
Protected Sub img_bnt_enter_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
If txt_emp.Text <> "" And txt_Pass.Text <> "" Then
qryExp()
qryuser() if (ID และ รหัสผ่านถูกต้อง)
{
Insert Log
Do Something.
}
Else
'Label4.Text = "Please enter User ID and Password"
End If
Load balance : Server 02
