?? ex38vb.aspx
字號:
<%@ language="VB"%>
<%@ import namespace="System" %>
<%@ import namespace="System.Web" %>
<%@ import namespace="System.Web.HttpCookie" %>
<HTML>
<title>Cookies的寫入和讀取</title>
<script language="VB" runat="server">
Sub btn1(sender as object,e as eventargs)
'判斷是否瀏覽者選取了允許保存Cookies的選項和輸入的賬號和密碼是否為空
if Checkbox1.checked and Not(name.text ="") and Not(ps.text ="") then
'向Cookies中寫入瀏覽者輸入的賬號和密碼
dim cookie as HttpCookie
cookie=new HttpCookie("mychoices")
cookie.Values.Add("name",name.text)
cookie.Values.Add("ps",ps.text)
Dim dt As DateTime = DateTime.Now
'加入當前時間
cookie.Values.Add("time",dt.tostring)
Dim ds As timespan
ds = new timespan(0,0,10,2)
'保存入Cookies
cookie.Expires=dt.add(ds)
response.appendcookie(cookie)
label1.text="<font color=red size=5>成功向Cookies寫入</font>"
Else
label1.text="<font color=red size=5>沒有存入任何內容到Cookies中</font>"
End If
'為了保證安全性，清空用戶的輸入
name.text=""
ps.text=""
End Sub
Sub btn2(sender as object,e as eventargs)
'判斷是否存在該Cookies
If request.cookies("mychoices") Is Nothing then
label1.text="<font color=red size=5>沒有這個Cookies</font>"
Else
dim cookie as HttpCookie
cookie=new HttpCookie("mychoices")
'如果以前保存的用戶名和賬號不為空則讀出賬號和密碼
If Not(request.cookies("mychoices").values("name") ="") And Not(request.cookies("mychoices").values("ps") = "")
label3.text ="保存在cookies中的用戶名：" & "<font color=red size=5>" & request.cookies("mychoices").values("name") & "</font>"
label4.text ="保存在cookies中的密 碼 ：" & "<font color=red size=5>" & request.cookies("mychoices").values("ps") & "</font>"
label1.text="<font color=red size=5>成功讀出Cookies中內容</font>"
Else
'否則顯示錯誤信息
label1.text="<font color=red size=5>Cookies中沒有任何內容</font>"
End If
End If
End Sub
Sub btn3(sender as object,e as eventargs)
'判斷是否存在該Cookies
If request.cookies("mychoices") Is Nothing then
label1.text="<font color=red size=5>沒有這個Cookies</font>"
Else
'如果以前保存的用戶名和賬號不為空，則清除賬號和密碼
If Not(request.cookies("mychoices").values("name") ="") And Not(request.cookies("mychoices").values("ps") = "")
dim cookie as HttpCookie
cookie=new HttpCookie("mychoices")
cookie.Values.Add("name","")
cookie.Values.Add("ps","")
label3.text =""
label4.text =""
Dim dt As DateTime = DateTime.Now
'加入當前時間
cookie.Values.Add("time",dt.tostring)
Dim ds As timespan
ds = new timespan(0,0,10,2)
'保存入Cookies
cookie.Expires=dt.add(ds)
response.appendcookie(cookie)
label1.text="<font color=red size=5>成功清除Cookies中內容</font>"
Else
'否則顯示錯誤信息
label1.text="<font color=red size=5>Cookies中沒有任何內容可供清除</font>"
End If
End If
End Sub
</script>
<body>
<h3><font face="Verdana">Cookies的寫入和讀取</font></h3><br><Br>
<Form runat="server">
<P>
輸入您的用戶名：<asp:TextBox id="name" Columns="25" MaxLength="30" runat="server" />
<br>
輸入您的密 碼 ：<asp:TextBox id="ps" Columns="25" MaxLength="30" runat="server" TextMode="Password" />
<asp:button id="button1" OnClick="btn1" text=" 登錄" runat="server" />
</P>
<P>
<asp:CheckBox id="CheckBox1" runat="server" Checked="True"></asp:CheckBox>
<asp:Label id="Label2" runat="server">保存賬號密碼到Cookies</asp:Label>
</P>
<P>
<FONT face="宋體"> </FONT>
<asp:label id="label3" text="" runat="server" />
<BR>
<FONT face="宋體"> </FONT>
<asp:label id="label4" text="" runat="server" />
</P>
<p>
<asp:button id="button2" OnClick="btn2" text="讀出cookies" runat="server" />
<asp:button id="button3" OnClick="btn3" text="清除cookies" runat="server" />
<BR>
<p>
<asp:label id="label1" text="" runat="server" />
</Form>
</P>
</body>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -