CSDN博客

img BCB

Web变量Cookie的使用

发表于2001/2/24 14:06:00  1020人阅读

                    Web变量Cookie的使用

                      [作者:扬州BCB]

    一、 Cookie概述:

    要求相关知识:网页服务器、ISAPI编程或JavaScrpt脚本。
    Cookie(意为小甜饼)就是在客户浏览网站时网页保存在客户机
内的一些变量,由于被起了这个词不达义的名字,使人觉得深不可
测,其实Cookie很简单,可称为 Web变量,就是一种保存客户变量
的机制, 下次再次访问网页时,网页中的程序就可再次访问到上次
所保存的这些变量,当然客户可以关闭浏览器Cookie这项功能,网
页中的程序就不能访问或保存这些变量,所以利用Cookie纯属雕虫
小技,没有它照样可以;但利用Cookie,网页设计就可将方便客户,
使客户上次输入的一些内容再次把它找出来,免于录入重复的内容;

   二、JavaScript脚本对Cookie变量的存取:
     JavaScript是运行在客户端的脚本程序,用它可将文本输入
框的内容以Cookie变量的形式保存下来,在客户端保存Cookie可稍
微减轻Web服务器的一点负担:

    1>读出Cookie:
    JavaScript中可通过document.cookie访问到所有Cookie:
       "变量1=值1;变量2=值2;变量3=值3;"
    需经过串分解就可得到每一个变量名及值;
    2>写Cookie:
        email="bush@usa.com";
        firstname="jorge";
        lastname="bush";
        expireDate="Thursday,01-Jan-2099 12:00:00 GMT";
        document.cookie="email="+email+";expires="+expireDate;
        document.cookie="firstname="+firstname+";expires="+expireDate;
        document.cookie="lastname="+lastname+";expires="+expireDate;
    下页一例,将网页的文本输入框域变量NAME自动保存下来:

<script language="JavaScript">
<!--
function getValue(s,n)      // 分解Cookie表达式s
{
   var pairs=s.split(";");  // 分解成串数组
   for (var i=0;i<pairs.length;i++)
       {
         var pairSplit=pairs[i].split("=");
         if (pairSplit[0]==n)       file://查找n
            return pairSplit[1];    file://取到n的值
       }
   return "";
}
function getName()   file://取Cookie中的姓名NAME
{
   var s=document.cookie;  //  取所保存的Cookie
   NAME0=getValue(s,"NAME");
   form1.NAME.value=NAME0;
}
function newCookie()  file://将Cookie中存姓名
{
   var s=form1.NAME.value;
   if (s!="" && s!=NAME0)   // 非空则保存
     {
       s="NAME="+s;
       s+=";expires=Thursday,01-Jan-2099 12:00:00 GMT";
       document.cookie=s;  // 将保存到客户机中
     }
}
file://--></script>
..................

<body bgcolor="#00FFFF" onload="getName();
    form1.TEXT.focus()" onunload="newCookie()">
<!进入本网页时将执行onload中的getName()>
<!退出本网页时将执行onunload中的newCookie()>
..................

    三、BCB与Delphi中用ISAPI对Cookie的存取:
        [注:Delphi用 .代替BCB的->]

    与JavaScript不同的是,ISAPI是运行在Web服务器端的程序,
它也可以读取与存入Cookie变量:

    假设处理用户提交的方法如下:
void __fastcall TWebModule1::WebModule1Action(TObject *Sender,
TWebRequest *Request, TWebResponse *Response, bool &Handled)

     1>从客户机中读取Cookie: 
    Request->CookieFields是个串数组TStrings *,如果不为
空,每一行都将是如下形式:
                Cookie变量名=值
共有Request->CookieFields->Count个变量,
变量名为Request->CookieFields->Names[i];  (i>=0)
Reauest->CookieFields->Values["变量名"]就是对应的值;
请注意: 客户首次访问网页时,客户机中并不存在你将要设的
Cookie变量,所以第一次Request->CookieFields将是空的;

     2>将Cookie变量保存客户机中:
       TCookie *pNewCookie = Response->Cookies->Add();
       pNewCookie->Name="变量名1";
       pNewCookie->Value="值1";
       pNewCookie->Expires = Now()+366;  // 保存一年
就可设定Cookie变量的新值,并不改变未作修改的原有其它变量;

举一例:利用两个Cookie变量计数,并显示给用户,当向网页服务器提交
.DLL后,每刷新一次浏览器,将看到计数值将变化一次:

void __fastcall TWebModule1::WebModule1WebActionItem1Action(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
     TStrings *cookies=Request->CookieFields;
     String oldvalue1=cookies->Values["count1"];  // 取count1旧值
     String oldvalue2=cookies->Values["count2"];

     String newvalue1=oldvalue1.ToIntDef(0)+1;    // 算新值
     String newvalue2=oldvalue2.ToIntDef(0)+100;

     TCookie *pNewCookie1 = Response->Cookies->Add();
     pNewCookie1->Name="count1";                 file://更新Cookie
     pNewCookie1->Value=newvalue1;
     pNewCookie1->Expires = Now()+366;           // 保存一年

     TCookie *pNewCookie2 = Response->Cookies->Add();
     pNewCookie2->Name="count2";                file://更新Cookie  
     pNewCookie2->Value=newvalue2;
     pNewCookie2->Expires = Now()+31;           // 保存一月

     // 向客户显示Cookie的值
     String h0="<html><head></head><body>";
     String h1="</body></html>";
     String s1="计数值1="+newvalue1+"<br>";
     String s2="计数值2="+newvalue2+"<br>";

     Response->Content=h0+s1+"  <br>"+
                          s2+"  <br>"+ h1;
}

   

0 0

相关博文

我的热门文章

img
取 消
img