Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Session("update") = Server.UrlEncode(System.DateTime.Now.ToString())
End If
End Sub
Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender '/// ถ้าเป็นการกดปุ่ม Refresh ที่ Browser ค่าใน ViewState("update") จะไม่ถูก Render ลงใน Client
'/// ทำให้ตอนที่ compare เวลาจะไม่ตรงกัน
ViewState("update") = Session("update")
End Sub
Protected Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click
If Session("update").ToString() = ViewState("update").ToString() Then
'/// เพิ่มข้อมูลลงใน Db
Session("update") = Server.UrlEncode(System.DateTime.Now.ToString())
End If