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" οnlοad="getName(); form1.TEXT.focus()" οnunlοad="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;}