📄 lastvisit.asp

📁 集合了学习asp的100个实例

💻 ASP

字号:

<%@ 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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -