数学建模社区-数学中国

标题: Web变量Cookie的使用 [打印本页]
作者: 韩冰    时间: 2005-1-26 01:12
标题: Web变量Cookie的使用

[作者：扬州BCB]

1 X% J- d+ O5 X' x+ Z" ]

一、 Cookie概述：

$ ]8 P/ g0 I9 Q* T

要求相关知识：网页服务器、ISAPI编程或JavaScrpt脚本。 ; m, `; @/ R( D' ^0 q3 a' c7 W Cookie(意为小甜饼)就是在客户浏览网站时网页保存在客户机. X# f- X5 v3 l9 D 内的一些变量，由于被起了这个词不达义的名字，使人觉得深不可 a- `9 d# g4 s# J9 P测，其实Cookie很简单，可称为 Web变量，就是一种保存客户变量 I8 V. |' @& Y( {4 a' C的机制, 下次再次访问网页时，网页中的程序就可再次访问到上次) q$ b$ Q9 o( Q$ p 所保存的这些变量，当然客户可以关闭浏览器Cookie这项功能，网 O( r8 A8 a, a& V5 d% V页中的程序就不能访问或保存这些变量，所以利用Cookie纯属雕虫 ' |: T! B. K: X) K) F小技，没有它照样可以；但利用Cookie，网页设计就可将方便客户，& i4 x, V9 k" d. }: C o7 K 使客户上次输入的一些内容再次把它找出来，免于录入重复的内容；

+ Y7 ]9 d$ d2 E: N

二、JavaScript脚本对Cookie变量的存取： 1 R" [2 `. F0 Z JavaScript是运行在客户端的脚本程序，用它可将文本输入 / ]& u4 a1 i& s6 M8 F框的内容以Cookie变量的形式保存下来，在客户端保存Cookie可稍' q( S+ H% C4 d5 l 微减轻Web服务器的一点负担：

, t* N- K: Y2 R1 s: j

1>读出Cookie:6 h& g8 l3 a, w! `6 T5 w, ^. N/ Y JavaScript中可通过document.cookie访问到所有Cookie: 9 C R$ z" C" N! U "变量1=值1;变量2=值2;变量3=值3;"9 ]+ F- P5 \& v8 D4 s 需经过串分解就可得到每一个变量名及值； ; F/ O5 T; C0 {& J% R3 K7 e% L( I' E 2>写Cookie: " n; R+ E$ ~6 B& h email="bush@usa.com";% w, d$ h) f9 t/ h" e h firstname="jorge";( ]) y5 S1 S! {, _7 A0 Z: T; q) _ lastname="bush";: V- r- r# F- Z `; I2 y2 i/ V3 p" W expireDate="Thursday,01-Jan-2099 12:00:00 GMT"; 9 I( c# @6 f. _- ` document.cookie="email="+email+";expires="+expireDate;+ j8 Y& E6 j+ k' K document.cookie="firstname="+firstname+";expires="+expireDate;1 Q4 F* X( T! Y0 L; c document.cookie="lastname="+lastname+";expires="+expireDate; ) a4 R$ ^2 k2 x) l l 下页一例，将网页的文本输入框域变量NAME自动保存下来：

$ I6 \ j) G [

<script language="JavaScript">( L- G; A1 U$ N/ m <!--$ I' j% x" n- H0 A9 d8 U function getValue(s,n) // 分解Cookie表达式s7 C/ p+ O# D6 n" Q- V {* M4 c( k- P9 w* r# h+ v @% j" k1 F var pairs=s.split(";"); // 分解成串数组! W0 w, v+ o! b+ a, @0 R5 c( F for (var i=0;i<pairs.length;i++) 6 S% A5 s$ m n9 n y) B5 O" V { - D# h4 l3 z7 G- S var pairSplit=pairs.split("="); $ J5 S0 h& c1 Q: M9 u5 J if (pairSplit[0]==n) file://查找n 9 v9 a9 p* Z9 l return pairSplit[1]; file://取到n的值, B, D! u' f, f! t( L; t5 h } 1 C) [, E$ _- ^; u8 v return ""; - }" r* [( R$ S2 ~} u" C, y8 a! O$ F& b& f- Gfunction getName() file://取Cookie中的姓名NAME/ a4 `5 \7 A! H { 7 ` z, j" [; N6 V' R var s=document.cookie; // 取所保存的Cookie 8 K' g5 X3 l9 n u* L% s J4 t/ f NAME0=getValue(s,"NAME");0 g9 p @, z. ^2 b form1.NAME.value=NAME0;3 ~2 K4 ]# _5 K# x3 ^. ]' l! N }& D$ a2 q, s0 P! ] \$ l, e function newCookie() file://将Cookie中存姓名: Z1 Q# E* o5 _ { ; g( L. P- C; e; _ var s=form1.NAME.value;$ d2 v* n! m& f) _: U5 ] if (s!="" && s!=NAME0) // 非空则保存 , N& m4 o7 y0 T3 O { 3 B& Q0 y' L8 u2 {& M s="NAME="+s; 9 N8 W# E6 |! j& u s+=";expires=Thursday,01-Jan-2099 12:00:00 GMT"; J' s {& |0 Y9 X0 n" ]# d document.cookie=s; // 将保存到客户机中! N. |- y8 M+ Y4 W/ W4 R } $ P. Y, q% `0 s" t, E8 o& y} 8 O& Z5 J8 ]- J" T& Ofile://--></script> & O0 {) T4 ~3 C1 Q ]..................

8 C* S' E6 v& _+ y' K! O4 V

<body bgcolor="#00FFFF" onload="getName(); ( G: i3 j/ ?1 W form1.TEXT.focus()" onunload="newCookie()"> $ |. p6 ?% v* W<!进入本网页时将执行onload中的getName()>& `8 k j7 Y; p2 A <!退出本网页时将执行onunload中的newCookie()> ) V8 A. |; t! i( H8 {4 z r..................

/ l4 C6 e) w3 ]% n. C/ i: W) D

三、BCB与Delphi中用ISAPI对Cookie的存取：. o7 }) ~. j& t0 u+ f9 s [注：Delphi用 .代替BCB的->]

0 p: m9 z f# }4 A

与JavaScript不同的是，ISAPI是运行在Web服务器端的程序，: M4 n( W3 Y( w& V 它也可以读取与存入Cookie变量：

$ E( `; r7 t' u" T7 J

假设处理用户提交的方法如下： 2 t# Q! Z" j. ~/ U3 ]void __fastcall TWebModule1::WebModule1Action(TObject *Sender, + @/ ~5 E4 l& }" t2 A TWebRequest *Request, TWebResponse *Response, bool &Handled)

0 M% S h* W2 R' m, x

1>从客户机中读取Cookie: {' N8 q1 J1 x. \ Request->CookieFields是个串数组TStrings *,如果不为 , e/ k3 B$ e2 _. f7 f. T空，每一行都将是如下形式： v1 q- a( j4 v1 w; Y- i+ Y' x Cookie变量名=值( v. M8 t1 {3 d# g 共有Request->CookieFields->Count个变量， : p+ |0 L! ~- z% F( O) \& D( b5 A变量名为Request->CookieFields->Names; (i>=0)) O2 j3 r% V& P" t U" Z: c; U4 m Reauest->CookieFields->Values["变量名"]就是对应的值; Z1 _3 I; h# ^7 d. {: G请注意: 客户首次访问网页时，客户机中并不存在你将要设的 " f) m+ i& X. h- |/ s* M* L8 q9 yCookie变量，所以第一次Request->CookieFields将是空的；

; T/ ?& R. Y6 W+ t

2>将Cookie变量保存客户机中： 2 ~1 u( p |" z) V' `& H/ `6 P TCookie *pNewCookie = Response->Cookies->Add();" C9 G1 ~+ T+ Y9 J pNewCookie->Name="变量名1";5 o- Y8 u5 h* M pNewCookie->Value="值1"; g8 ?4 t6 N+ v3 |+ R" Q5 o pNewCookie->Expires = Now()+366; // 保存一年 3 z- j: V w; H! t2 v就可设定Cookie变量的新值，并不改变未作修改的原有其它变量；

1 c% L7 k3 [% L" c4 H$ V2 w

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

) s. o: C( H" _/ Z

void __fastcall TWebModule1::WebModule1WebActionItem1Action(4 J( H' b: ~( D4 t7 k( @/ \8 m TObject *Sender, TWebRequest *Request, TWebResponse *Response, ) m$ ?2 k, |- g+ Z$ \* v# V bool &Handled)/ {- P9 q4 W6 c {! B( V' U) I, e TStrings *cookies=Request->CookieFields; / j% Z Y% }: J: |8 Y! U String oldvalue1=cookies->Values["count1"]; // 取count1旧值 ! }) k% \) ]* | String oldvalue2=cookies->Values["count2"];

0 J j! m1 Z0 _( o# G. o

String newvalue1=oldvalue1.ToIntDef(0)+1; // 算新值 3 n& G) P( j ^# s String newvalue2=oldvalue2.ToIntDef(0)+100;

9 D+ O/ q. @& n, U$ i

TCookie *pNewCookie1 = Response->Cookies->Add(); 3 g6 i$ p& {: q: q pNewCookie1->Name="count1"; file://更新Cookie* g" m( q1 L$ V- ^& p1 r. m0 @ pNewCookie1->Value=newvalue1; ! p3 |. P$ [( F3 i6 ^0 T( x# M6 A pNewCookie1->Expires = Now()+366; // 保存一年

* h& f5 D. r. Y* n5 [6 u" G7 N

TCookie *pNewCookie2 = Response->Cookies->Add(); % E+ _4 Z5 F& f% L9 i9 e h/ e pNewCookie2->Name="count2"; file://更新Cookie ( `4 U+ P9 ~! B0 L V pNewCookie2->Value=newvalue2; / r. r e" P. l* u pNewCookie2->Expires = Now()+31; // 保存一月

% ]2 v8 c; x. J) K

// 向客户显示Cookie的值9 j$ n2 |- ]& ~; `2 S' ^ String h0="<html><head></head><body>";2 o7 x# _( S0 h) _ String h1="</body></html>"; % r5 Y' v- e' }: S; p0 [) `- F String s1="计数值1="+newvalue1+"<br>"; 9 z1 F" h! K5 L; e0 m String s2="计数值2="+newvalue2+"<br>";

/ W9 k5 j+ \& s* [

Response->Content=h0+s1+" <br>"+ : z# M P6 }2 y2 a3 C/ o; p s2+" <br>"+ h1; K- g) t1 y, w' F% V# P } & h" k+ |1 T% {! ^. V* ?





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5