编程思想:
本实例使用Cookie变量来提取上次访问时间。
Cookie是一种发送到客户浏览器的文本串句柄并保存在客户机硬盘上,可以用来在某个WEB站点会话之间持久地保持数据当访问本网页时,首先看客户端是否存在本网页的Cookie数据,如果不存在说明是第一次访问本网页,如果存在刚取出Cookie并显示出来,然后再将当前服务器的系统时间写到浏览器端的Cookie中。
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'Cookies通过HTTP Headers来从服务器端返回到浏览器上.
'在发送Cookies之前,不能向浏览器端发送任何数据.
Response.Expires = 0
'从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>