当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ASP+中使用Cookie

ASP
ASP编程入门进阶（十二）：ASP技巧累加（一）
ASP编程入门进阶（十三）：Ad & Content Rotator
ASP编程入门进阶（十四）：Browser & Linking
ASP编程入门进阶（十五）：组件Counters
一些简单的ASP练习
ASP编程入门进阶（十六）：FSO组件之驱动器操作
ASP编程入门进阶（十七）：FSO组件之文件夹操作
ASP编程入门进阶（十八）：FSO组件之文件操作（上）
ASP编程入门进阶（十八）：FSO组件之文件操作（中）
ASP编程入门进阶（十八）：FSO组件之文件操作（下）
ASP编程入门进阶（十九）：ASP技巧累加（二）
ASP中有关双引号，单引号以及&号的解释
ASP编程入门进阶（二十）：ADO组件之显示数据记录
ASP编程入门进阶（二十）：ADO组件之插入数据记录
ASP编程入门进阶（二十）：ADO组件之分页程序
ASP编程入门进阶（二十）：ADO组件之修改数据记录
ASP编程入门进阶（二十）：ADO组件之删除数据记录
ASP初学者常犯的几个错误（ZT）
无组件上传图片之文件采用方案
ASP编程入门进阶（二十）：ADO组件之查询数据记录

No. « 47 48 49 50 »

技术文章搜索

关键字

在ASP+中使用Cookie

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 192 ::
收藏到网摘: n/a

  <%@ Page Language="VB" %>

<script language="VB" runat="server">
Const COOKIE_NAME  As String = "test-cookie-name"
Const COOKIE_VALUE As String = "test-cookie-value"

' Declare our cookie object
Dim objCookieObject As HttpCookie

Sub btnSetCookie_OnClick(Sender As Object, E As EventArgs)
' Create a cookie object - I'm passing name and value,
' but you can also pass in a name and set the value later.
' ie. objCookieObject = New HttpCookie(COOKIE_NAME)
objCookieObject = New HttpCookie(COOKIE_NAME, COOKIE_VALUE)

' We already set these above!
'objCookieObject.Name   = COOKIE_NAME
'objCookieObject.Value  = COOKIE_VALUE

' Additional cookie properties:
objCookieObject.Expires = New DateTime(2001, 12, 31, 23, 59, 59)

' Normally you can leave these alone.
' The defaults will work fine for most uses.
'objCookieObject.Domain  = "www.domain.com"
'objCookieObject.Path    = "/path/"
'objCookieObject.Secure  = True

    Response.AppendCookie(objCookieObject)
End Sub

Sub btnRemoveCookie_OnClick(Sender As Object, E As EventArgs)
objCookieObject = New HttpCookie(COOKIE_NAME)

' Expire it on the day I was born just so we're sure it's a date in the past.
objCookieObject.Expires = New DateTime(1974, 11, 12)

Response.AppendCookie(objCookieObject)
End Sub

Sub btnGetCookie_OnClick(Sender As Object, E As EventArgs)
objCookieObject = Request.Cookies(COOKIE_NAME)

If Not(objCookieObject = null) Then
lblCookieDetails.Text        = objCookieObject.Name

lblCookieDetailsName.Text    = objCookieObject.Name
lblCookieDetailsValue.Text   = objCookieObject.Value
lblCookieDetailsExpires.Text = objCookieObject.Expires.ToString
lblCookieDetailsDomain.Text  = objCookieObject.Domain
lblCookieDetailsPath.Text    = objCookieObject.Path
lblCookieDetailsSecure.Text  = objCookieObject.Secure.ToString
lblCookieDetailsHasKeys.Text = objCookieObject.HasKeys.ToString
Else
lblCookieDetails.Text        = "Cookie Not Set!"

lblCookieDetailsName.Text    = ""
lblCookieDetailsValue.Text   = ""
lblCookieDetailsExpires.Text = ""
lblCookieDetailsDomain.Text  = ""
lblCookieDetailsPath.Text    = ""
lblCookieDetailsSecure.Text  = ""
lblCookieDetailsHasKeys.Text = ""
End If

' I'm ignoring collections.  They're outside the realm of this basic sample.
' FYI: Additional properties related to cookie collections: Values, Item
End Sub
</script>

<html>
<body>

<h4>The cookie name we're using for this sample is: <em><%= COOKIE_NAME %></em></h4>

<form action="cookies.aspx" method="post" runat="server">
<asp:Button type="submit" id="btnSetCookie" text="Set Cookie" OnClick="btnSetCookie_OnClick"
runat="server" />
<asp:Button type="submit" id="btnRemoveCookie" text="Remove Cookie"
OnClick="btnRemoveCookie_OnClick" runat="