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”按钮设置Cookie。

现在，您的系统有了一个名为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>

注：这里，UBound是Array类的方法，它返回数组的长度。我们将在另一章中讨论数组。在此之前，请尝试将其消化。

它将产生以下结果。现在，按“获取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