VBScript:Cookies

什么是Cookies?

Web浏览器和服务器使用HTTP协议进行通信,而HTTP是无状态协议。但是对于商业网站,需要在不同页面之间维护会话信息。例如,一个用户注册在完成许多页面后结束。但是如何在所有网页上维护用户的会话信息。在许多情况下,使用Cookie是记住和跟踪偏好,购买,佣金和其他信息(以获得更好的访问者体验或站点统计信息)所需的最有效方法。

这个怎么运作?

您的服务器以cookie的形式向访问者的浏览器发送一些数据。浏览器可以接受cookie。如果是这样,它将以纯文本记录的形式存储在访问者的硬盘上。现在,当访问者到达您网站上的另一个页面时,浏览器会将相同的cookie发送到服务器以进行检索。一旦检索到,您的服务器就会知道/记住以前存储的内容。Cookies是5个可变长度字段的纯文本数据记录-

  • Expires – Cookie过期的日期。如果为空,则cookie将在访问者退出浏览器时过期。
  • Domain – 您站点的域名。
  • Path – 设置cookie的目录或网页的路径。如果要从任何目录或页面检索cookie,则该字段可以为空白。
  • Secure – 如果此字段包含“安全”一词,则只能使用安全服务器检索cookie。如果该字段为空白,则不存在此类限制。
  • Name=Value – Cookies以键和值对的形式设置和检索。

Cookies最初是为CGI编程而设计的,并且cookie的数据会在Web浏览器和Web服务器之间自动传输,因此服务器上的CGI脚本可以读取和写入存储在客户端上的cookie值。

VBScript也可以使用Document对象的cookie属性来操作cookie 。VBScript可以读取,创建,修改和删除适用于当前网页的cookie。

创建Cookies

创建cookie的最简单方法是为document.cookie对象分配一个字符串值,如下所示:

语法

document.cookie = "key1 = value1;key2 = value2;expires = date"

这里expires属性是可选的。如果您为该属性提供有效的日期或时间,则cookie将在给定的日期或时间到期,并且之后将无法访问cookie的值。

以下是在输入Cookie中设置客户名称的示例。

<html>
   <head>
      <script type = "text/vbscript">
         Function WriteCookie
            If document.myform.customer.value = "" Then
               msgbox "Enter some value!"
            Else
               cookievalue = (document.myform.customer.value)
               document.cookie = "name = " + cookievalue
               msgbox "Setting Cookies : " & "name = " & cookievalue
            End If
         End Function
      </script>
   </head>
   
   <body>
      <form name = "myform" action = "">
         Enter name: <input type = "text" name = "customer"/>
         <input type = "button" value = "Set Cookie" onclick = "WriteCookie()"/>
      </form>
   </body>
</html>

它将产生以下结果。现在,在文本框中输入内容,然后按“设置Cookie”按钮设置C​​ookie。

Enter name:

现在,您的系统有了一个名为name的cookie 。您可以使用多个用逗号分隔的键=值对来设置多个Cookie 。您将在下一部分中学习如何读取此cookie。

读取Cookies

读取cookie就像编写cookie一样简单,因为document.cookie对象的值就是cookie。因此,只要您想访问cookie,就可以使用此字符串。该document.cookie中的字符串将保持列表名称=值用分号分隔对,其中名称名字一个cookie的和值是它的字符串值。您可以使用字符串的split()函数将字符串分成键和值,如下所示:

以下是获取上一节中设置的cookie的示例:

<html>
   <head>
      <script type = "text/vbscript">
         Function ReadCookie
            allcookies = document.cookie
            msgbox "All Cookies : " + allcookies
            cookiearray = split(allcookies,";")
            
            For i = 0 to ubound(cookiearray)
               Name  = Split(cookiearray(i),"=")
               Msgbox "Key is : " + Name(0) + " and Value is : " + Name(1)
            Next
         End Function
      </script>
   </head>
   
   <body>
      <form name = "myform" action = "">
         <input type = "button" value = "Get Cookie" onclick = "ReadCookie()"/>
      </form>
   </body>
</html>

:这里,UBoundArray类的方法,它返回数组的长度。我们将在另一章中讨论数组。在此之前,请尝试将其消化。

它将产生以下结果。现在,按“获取Cookie”按钮以查看您在上一节中设置的Cookie。

注意:您的机器上可能已经设置了其他cookie。因此,以上代码将向您显示在计算机上设置的所有cookie。

设置Cookie的到期日期

您可以通过设置过期日期并将过期日期保存在cookie中,从而将cookie的寿命延长到当前浏览器会话之外。这可以通过将expires属性设置为日期和时间来完成。

以下示例说明了如何设置1个月后的Cookie失效日期:

<html>
   <head>
      <script type = "text/vbscript">
         Function WriteCookie()
            x = now()
            y = dateadd("m",1,now())  ' Making it to expire next 
            cookievalue = document.myform.customer.value
            document.cookie = "name = "  & cookievalue
            document.cookie = "expires = " & y
            msgbox("Setting Cookies : " & "name=" & cookievalue )
         End Function
      </script>
   </head>
   <body>
      <form name = "myform" action = "">
         Enter name: <input type = "text" name = "customer"/>
         <input type = "button" value = "Set Cookie" onclick = "WriteCookie()"/>
      </form>
   </body>
</html>

删除Cookie

有时,您将要删除一个cookie,以便后续尝试读取该cookie不会返回任何内容。为此,您只需要将到期日期设置为过去的某个时间。

以下示例说明了如何通过将Cookie的过期日期设置为过去1个月来删除Cookie。

<html>
   <head>
      <script type = "text/vbscript">
         Function WriteCookie()
            x = now()
            x = now()
            a = Month(x)-1
            b = day(x)
            c = year(x)
            d = DateSerial(c,a,b)
            e = hour(x) 
            
            msgbox e
            f = minute(x)
            
            msgbox f
            d = cdate(d & " " & e & ":" & f)
            
            msgbox d
            cookievalue = document.myform.customer.value
            document.cookie = "name = "  & cookievalue
            document.cookie = "expires = " & d
            msgbox("Setting Cookies : " & "name=" & cookievalue )
         End Function
      </script>
   </head>
   <body>
      <form name = "myform" action = "">
         Enter name: <input type = "text" name = "customer"/>
         <input type = "button" value = "Set Cookie" onclick = "WriteCookie()"/>
      </form>
   </body>
</html>

作者:terry,如若转载,请注明出处:https://www.web176.com/vbscript/1247.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2020年12月9日 下午5:10
下一篇 2020年12月9日 下午5:20

相关推荐

发表评论

您的电子邮箱地址不会被公开。