/*
豆腐制作 都是精品
www.asp888.net 豆腐技术站
如果转载 请添加这个 版权信息
*/
1@ Page Language="VB"
1<script language="VB" runat="server">
2Const COOKIE_NAME As String = "豆腐站点"
3Const COOKIE_VALUE As String = "http://www.asp888.net"
4' 声明 Cookie 对象
5Dim objCookieObject As HttpCookie
6Sub btnSetCookie_OnClick(Sender As Object, E As EventArgs)
7' Create a cookie object - I'm passing name and value,
8' but you can also pass in a name and set the value later.
9
10objCookieObject = New HttpCookie(COOKIE_NAME, COOKIE_VALUE)
11
12' 另外的一种操作Cookie 的 方法
13'objCookieObject = New HttpCookie(COOKIE_NAME)
14'objCookieObject.Name = COOKIE_NAME
15'objCookieObject.Value = "sdsd"
16
17' 设置Cookie 的 过期时间 2001/12/31 23:59:59
18objCookieObject.Expires = New DateTime(2001, 12, 11, 23, 59, 59)
19
20' 下面的这些可以不使用
21objCookieObject.Domain = "www.asp888.net"
22objCookieObject.Path = "/path/"
23objCookieObject.Secure = True
24
25Response.AppendCookie(objCookieObject)
26End Sub
27
28Sub btnRemoveCookie_OnClick(Sender As Object, E As EventArgs)
29objCookieObject = New HttpCookie(COOKIE_NAME)
30' 删除Cookie
31objCookieObject.Expires = New DateTime(1974, 11, 12)
32Response.AppendCookie(objCookieObject)
33End Sub
34
35Sub btnGetCookie_OnClick(Sender As Object, E As EventArgs)
36objCookieObject = Request.Cookies(COOKIE_NAME)
37If Not(objCookieObject = null) Then
38lblCookieDetails.Text = objCookieObject.Name
39lblCookieDetailsName.Text = objCookieObject.Name
40lblCookieDetailsValue.Text = objCookieObject.Value
41lblCookieDetailsExpires.Text = objCookieObject.Expires.ToString
42lblCookieDetailsDomain.Text = objCookieObject.Domain
43lblCookieDetailsPath.Text = objCookieObject.Path
44lblCookieDetailsSecure.Text = objCookieObject.Secure.ToString
45lblCookieDetailsHasKeys.Text = objCookieObject.HasKeys.ToString
46Else
47lblCookieDetails.Text = "Cookie Not Set!"
48lblCookieDetailsName.Text = ""
49lblCookieDetailsValue.Text = ""
50lblCookieDetailsExpires.Text = ""
51lblCookieDetailsDomain.Text = ""
52lblCookieDetailsPath.Text = ""
53lblCookieDetailsSecure.Text = ""
54lblCookieDetailsHasKeys.Text = ""
55End If
56End Sub
57</script>
1<html>
2<head>
3<title> asp+ 操作Cookie 方法大全 </title>
4</head>
5<body>
6<h4>我们设置的Cookie 的名称是: <em>```
7= COOKIE_NAME
8```</em></h4>
9<form method="post" runat="server">
10<asp:button id="btnSetCookie" onclick="btnSetCookie_OnClick" runat="server" text="Set Cookie" type="submit"></asp:button>
11<asp:button id="btnRemoveCookie" onclick="btnRemoveCookie_OnClick" runat="server" text="Remove Cookie" type="submit"></asp:button>
12<p>
13想要看看 Cookie 的当前的各个属性，请点击下面的按钮
14</p>
15<asp:button id="btnGetCookie" onclick="btnGetCookie_OnClick" runat="server" text="Get Cookie Details" type="submit"></asp:button>
16</form>
17<p>
18<strong>Details of:</strong> <asp:label id="lblCookieDetails" runat="server"></asp:label>
19</p>
20<table border="1">
21<thead>
22<tr>
23<th>Cookie属性</th>
24<th>Cookie 的属性Value</th>
25</tr>
26</thead>
27<tbody>
28<tr>
29<td>名称</td>
30<td><asp:label id="lblCookieDetailsName" runat="server"></asp:label></td>
31</tr>
32<tr>
33<td>Cookie的值</td>
34<td><asp:label id="lblCookieDetailsValue" runat="server"></asp:label></td>
35</tr>
36<tr>
37<td>过期时间</td>
38<td><asp:label id="lblCookieDetailsExpires" runat="server"></asp:label></td>
39</tr>
40<tr>
41<td>所在域</td>
42<td><asp:label id="lblCookieDetailsDomain" runat="server"></asp:label></td>
43</tr>
44<tr>
45<td>路径</td>
46<td><asp:label id="lblCookieDetailsPath" runat="server"></asp:label></td>
47</tr>
48<tr>
49<td>安全性</td>
50<td><asp:label id="lblCookieDetailsSecure" runat="server"></asp:label></td>
51</tr>
52<tr>
53<td>主键</td>
54<td><asp:label id="lblCookieDetailsHasKeys" runat="server"></asp:label></td>
55</tr>
56</tbody>
57</table>
58</body>
59</html>
作者:豆腐()