prague12

Cookie的使用方法
參考: http://msdn.microsoft.com/zh-tw/library/ms178194.aspx


Public Sub cookie_set(ByVal name As String, ByVal olddata As String)
'http://msdn.microsoft.com/zh-tw/library/ms178194.aspx
'寫法1
' Response.Cookies("userInfo")("userName") = "patrick"
' Response.Cookies("userInfo")("lastVisit") = DateTime.Now.ToString()
' Response.Cookies("userInfo").Expires = DateTime.Now.AddDays(1)

'寫法2
Dim aCookie As New HttpCookie("orderJK") '主索引鍵 "orderJK"
aCookie.Values("userName") = name
aCookie.Values("data") = olddata
aCookie.Expires = DateTime.Now.AddMinutes(1) '保存期限 再1分鐘後cookie失效

Response.Cookies.Add(aCookie)
'----------------------
TextBox_cookie.Text = "此次訂購成功" + vbNewLine + "~~~請稍待~~勿連續下單~~ " + vbNewLine + olddata
TextBox_cookie.BackColor = Drawing.Color.Green
End Sub







Public Function cookie_get(ByRef name As String, ByRef olddata As String) As Boolean


If Not Request.Cookies("orderJK") Is Nothing Then

name = Request.Cookies("orderJK")("userName")
olddata = Request.Cookies("orderJK")("data")

' Dim cc = Request.Cookies("orderJK")("data") '
Return True '表示之前的cookie 還存在有效 也就是剛剛1分鐘內才下過訂單
Else
Return False
End If



End Function