cookies读写删

最新推荐文章于 2005-07-05 11:20:00 发布

xuandhu

最新推荐文章于 2005-07-05 11:20:00 发布

阅读量1.2k

点赞数

分类专栏：其它文章标签： cookies server asp button textbox import

本文链接：https://blog.csdn.net/xuandhu/article/details/106521

版权

其它专栏收录该内容

39 篇文章 0 订阅

订阅专栏

<%@ 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="成功向Cookies写入"

Else
 label1.text="没有存入任何内容到Cookies中"
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="没有这个Cookies"
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中的用户名：" & "" & request.cookies("mychoices").values("name") & ""
 label4.text ="保存在cookies中的密码：" & "" & request.cookies("mychoices").values("ps") & ""
 label1.text="成功读出Cookies中内容"

Else
'否则显示错误信息
 label1.text="Cookies中没有任何内容"
 End If
End If

End Sub

Sub btn3(sender as object,e as eventargs)
'判断是否存在该Cookies
If request.cookies("mychoices") Is Nothing then
 label1.text="没有这个Cookies"
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="成功清除Cookies中内容"
 Else
'否则显示错误信息
 label1.text="Cookies中没有任何内容可供清除"
 End If
End If

End Sub

</script>
<body>
 <h3>Cookies的写入和读取</h3> 
 <Form runat="server">
 
 输入您的用户名：<asp:TextBox id="name" Columns="25" MaxLength="30" runat="server" />
 
 输入您的密码：<asp:TextBox id="ps" Columns="25" MaxLength="30" runat="server" TextMode="Password" />
 <asp:button id="button1" OnClick="btn1" text=" 登录" runat="server" />
 
 
  
 <asp:CheckBox id="CheckBox1" runat="server" Checked="True"></asp:CheckBox>
 <asp:Label id="Label2" runat="server">保存账号密码到Cookies</asp:Label>
 
 
  
 <asp:label id="label3" text="" runat="server" />
 
  
 <asp:label id="label4" text="" runat="server" />
 
 
 <asp:button id="button2" OnClick="btn2" text="读出cookies" runat="server" />
 <asp:button id="button3" OnClick="btn3" text="清除cookies" runat="server" />
 
 
 <asp:label id="label1" text="" runat="server" />
 </Form>
 
</body>
</HTML>