?? lastvisit.asp
字號:
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'Cookies通過HTTP Headers來從服務(wù)器端返回到瀏覽器上.
'在發(fā)送Cookies之前,不能向瀏覽器端發(fā)送任何數(shù)據(jù).
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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -