先前实训做了一个留言版,才发现自己存在很多问题。由于是自学,所以将一些在学习的过程中遇到的问题列下,希望对你有帮助。
这次是Cookie的使用:Cookie,有时也用其复数形式Cookies,指某些网站为了辨别用户身份而储存在用户本地终端上的数据(通常经过加密)。Cookies最典型的应用是判定注册用户是否已经登录网站,用户可能会得到提示,是否在下一次进入此网站时保留用户信息以便简化登录手续,这些都是Cookies的功用。另一个重要应用场合是“购物车”之类处理。用户可能会在一段时间内在同一家网站的不同页面中选择不同的商品,这些信息都会写入Cookies,以便在最后付款时提取信息。
下面通过一个简单实例来讲解:
<%@ LANGUAGE = VBScript %>
<% Option Explicit '说通俗点,就是为了避免混乱,使用 Option Explicit 之后,必须对变量进行声明才可以使用!
%>
<%
'Cookies通过HTTP Headers来从服务器端返回到浏览器上.
'在发送Cookies之前,不能向浏览器端发送任何数据.
Response.Expires = 0 'Expires只写。指定cookie的过期日期。为了在会话结束后将cookie存储在客户端磁盘上,必须设置该日期。若此项属性的设置未超过当前日期,则在任务结束后cookie将到期。
'从Cookie中取出上一次访问的日期和时间
Dim LastVisit
LastVisit = Request.Cookies("LastVisitCookie")
Response.Cookies("LastVisitCookie") = FormatDateTime(NOW)
%>
<HTML>
<HEAD>
<TITLE>上次访问时间</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>使用Cookies</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<%
If (LastVisit = "") Then
'如果Cookie从未被写过,则用户是第一次访问本页
Response.Write("欢迎光临本页")
Else
'显示上一次访问日期及时间
Response.Write("你上一次访问本页在" + LastVisit)
End If
%>
<P><A HREF="LastVisit.asp">重新访问本页</A>
</BODY>
</HTML>
一天一则