lastvisit.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 32 行

ASP
32 行
字号 
<%@ 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>

lastvisit.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 lastvisit.asp 源码文件，采用 ASP 编程语言编写，共 32 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?