数学建模社区-数学中国

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

[作者：扬州BCB]

3 o8 g; Z& _& F- `0 S

一、 Cookie概述：

5 |5 t0 n1 ]4 p+ d* s/ S

要求相关知识：网页服务器、ISAPI编程或JavaScrpt脚本。) S1 h3 S5 P7 G6 ^1 K Cookie(意为小甜饼)就是在客户浏览网站时网页保存在客户机+ c7 g9 M% y- g7 c 内的一些变量，由于被起了这个词不达义的名字，使人觉得深不可2 G- A9 q5 X' S4 j0 F3 K8 \ 测，其实Cookie很简单，可称为 Web变量，就是一种保存客户变量$ X! c9 W% |" \4 `& b: j) ` 的机制, 下次再次访问网页时，网页中的程序就可再次访问到上次 ' I# f& W+ ]2 w0 o所保存的这些变量，当然客户可以关闭浏览器Cookie这项功能，网# r o* g) h' L. y+ w 页中的程序就不能访问或保存这些变量，所以利用Cookie纯属雕虫7 b: s r9 p7 J. @( L' i! t 小技，没有它照样可以；但利用Cookie，网页设计就可将方便客户，# C( i* y$ [, C' B' i: F. T/ @ 使客户上次输入的一些内容再次把它找出来，免于录入重复的内容；

4 P4 E6 N4 g" H. m% \% ?

二、JavaScript脚本对Cookie变量的存取： - i5 r5 X4 l0 |5 y0 }* y; a JavaScript是运行在客户端的脚本程序，用它可将文本输入 . e9 j7 n. E: S! M# q1 p0 y, m框的内容以Cookie变量的形式保存下来，在客户端保存Cookie可稍 " f" {* A: T! t; c5 y+ V微减轻Web服务器的一点负担：

! C1 D2 F! A" T

1>读出Cookie:+ [7 I t7 u3 ^# c# s8 E$ n$ H! R JavaScript中可通过document.cookie访问到所有Cookie: $ I4 L9 ?' R. }6 L "变量1=值1;变量2=值2;变量3=值3;"0 h) ~. m5 _2 [2 O2 d 需经过串分解就可得到每一个变量名及值；. B. ^) H- [3 [0 { 2>写Cookie:; A" Q3 B x. P email="bush@usa.com"; 0 _: }. d1 T' T) S7 l! V firstname="jorge";4 c8 q7 g9 S3 ?) g; p lastname="bush"; ; R' w% g4 e: } expireDate="Thursday,01-Jan-2099 12:00:00 GMT";. ]' s6 S6 b, P- n' _! ]$ M/ z( s document.cookie="email="+email+";expires="+expireDate; ! R* {/ q$ |( N' M8 d3 l2 x document.cookie="firstname="+firstname+";expires="+expireDate; 2 L( r- m3 ?8 T4 x; w document.cookie="lastname="+lastname+";expires="+expireDate; . r! C4 i$ Q( J0 w& g% h: w 下页一例，将网页的文本输入框域变量NAME自动保存下来：

9 _$ e0 @# H0 l, `1 f

<script language="JavaScript"> . p% f4 H; N1 _0 ]2 P7 F<!--1 Q1 g% X E- Q v. T' {8 G function getValue(s,n) // 分解Cookie表达式s# C$ o3 [2 t+ {' N3 c { " \: j) x0 p; ~ X& ] var pairs=s.split(";"); // 分解成串数组 " y# U4 X o0 f2 V" N" v5 {- z o for (var i=0;i<pairs.length;i++)8 o' Y- r! j9 v/ B1 h% j' w+ e5 v1 F { ) d4 U- }6 \8 k% ^6 J4 Q8 O7 J var pairSplit=pairs.split("="); 5 `6 L' Q# i% |" B/ u' ~ if (pairSplit[0]==n) file://查找n2 r& F5 K1 Q$ o. E/ G return pairSplit[1]; file://取到n的值5 [* |! c! t$ b3 a } , H& @8 I4 t* p return "";( I! O6 W' V/ D* ~' P0 o' y } 5 k ?% I5 _* f" ?0 H/ Ffunction getName() file://取Cookie中的姓名NAME; g; ~7 V, Z8 t5 Q7 e$ | {) m: R- i) j$ C$ [+ A var s=document.cookie; // 取所保存的Cookie4 h# z6 q( E& d6 S$ \/ a NAME0=getValue(s,"NAME"); ; |- X3 Q0 x/ e6 G) y form1.NAME.value=NAME0; & o. ^2 c( U+ ?. `& k( A}% A/ c& o) {! Q' R# e& X function newCookie() file://将Cookie中存姓名5 D6 S* J9 _0 A$ V5 Q0 w. l { 2 G6 b Q2 l1 l& F2 z var s=form1.NAME.value;: F4 `% L6 [* u9 ] if (s!="" && s!=NAME0) // 非空则保存 5 g* N1 k! I b' |; ^: J7 R h4 s$ U {. k* g0 V& c! s: l; L( w6 x8 O s="NAME="+s;+ R% D" P. O/ U$ G9 c, [ s+=";expires=Thursday,01-Jan-2099 12:00:00 GMT";! @& Q0 [, @4 x9 e! M- c: l1 t document.cookie=s; // 将保存到客户机中 " t' L7 P4 p) b9 M# l } 0 x( D1 R1 n9 E" X- D } + l7 C& ^8 w4 k& g* k7 afile://--></script> d( q. g" r7 N; d" u! ?; [..................

, c( l x2 S0 o5 n3 p7 \8 ~

<body bgcolor="#00FFFF" onload="getName(); , i; J8 k! {0 j8 w& I5 g form1.TEXT.focus()" onunload="newCookie()">, b2 ?$ O! i2 Q/ Q: Y1 t <!进入本网页时将执行onload中的getName()>1 u8 H. Q( H# N, [$ y <!退出本网页时将执行onunload中的newCookie()>: f2 n' V# t' i# } ..................

/ S& Z5 a6 N1 A7 Y% M

三、BCB与Delphi中用ISAPI对Cookie的存取： $ a$ D- e" C* B) }& z [注：Delphi用 .代替BCB的->]

+ ]* D, L$ J7 ]' Y, F

与JavaScript不同的是，ISAPI是运行在Web服务器端的程序， " _2 U( u: |; p( I! ^1 Q' f它也可以读取与存入Cookie变量：

3 ^6 `3 s- c5 T) K8 Z5 r7 g' f

假设处理用户提交的方法如下： 4 E( T4 F0 A/ l5 Jvoid __fastcall TWebModule1::WebModule1Action(TObject *Sender, $ C% \+ n$ ~8 @: b+ I3 t i& fTWebRequest *Request, TWebResponse *Response, bool &Handled)

' a( \* a) c; x+ ?

1>从客户机中读取Cookie: v k# q* a# E0 Z2 I Request->CookieFields是个串数组TStrings *,如果不为 $ Q- `- P+ c9 [; k( o( ? Z: ^空，每一行都将是如下形式：' E/ N* ^3 _9 h$ R6 p% y' G Cookie变量名=值 $ p; J3 q: `% S, q共有Request->CookieFields->Count个变量，/ t4 c8 R' T, U: T- U 变量名为Request->CookieFields->Names; (i>=0)3 S. Q/ E( z! `5 m7 d# g2 ~ Reauest->CookieFields->Values["变量名"]就是对应的值;. k8 T4 B# I9 \# m; g$ S3 z: z 请注意: 客户首次访问网页时，客户机中并不存在你将要设的: b7 _* f8 `8 U8 H! R1 v Cookie变量，所以第一次Request->CookieFields将是空的；

6 l, H& h7 p m, f& E

2>将Cookie变量保存客户机中： + @) F8 K; P+ b& n5 z7 d TCookie *pNewCookie = Response->Cookies->Add();* W2 q$ ?6 q# \- \: R pNewCookie->Name="变量名1"; & E L" h \) v U pNewCookie->Value="值1"; ! W7 Y, @/ p( q/ u5 A pNewCookie->Expires = Now()+366; // 保存一年 6 s- N4 ^- E) ]4 g就可设定Cookie变量的新值，并不改变未作修改的原有其它变量；

1 B0 q0 E7 B H

举一例：利用两个Cookie变量计数，并显示给用户，当向网页服务器提交 " l# f& R/ C$ s8 t4 N, x4 d) }.DLL后，每刷新一次浏览器，将看到计数值将变化一次:

, s' b H- D# O" G& P0 P

void __fastcall TWebModule1::WebModule1WebActionItem1Action(6 o5 m0 Q$ N$ F& J$ R TObject *Sender, TWebRequest *Request, TWebResponse *Response, / F4 }' Z6 v1 K3 E$ N3 O bool &Handled) ) f9 [- F9 D t" w% c, N! }{ i, K/ D2 Q2 V# K/ |- E3 `! _ TStrings *cookies=Request->CookieFields;' a% m5 {& i3 F, R- ~7 W) J String oldvalue1=cookies->Values["count1"]; // 取count1旧值 . e$ B5 a. n; {. d String oldvalue2=cookies->Values["count2"];

' |! h) ?/ z2 n' a+ F i

String newvalue1=oldvalue1.ToIntDef(0)+1; // 算新值% B# y! i8 P' t$ M9 f. | String newvalue2=oldvalue2.ToIntDef(0)+100;

9 k6 H1 |$ B1 ]5 N( |% G0 F1 o

TCookie *pNewCookie1 = Response->Cookies->Add(); % a* Q6 c3 ~1 D A) g pNewCookie1->Name="count1"; file://更新Cookie) L9 R+ A/ k* Z" n& v, z9 Y pNewCookie1->Value=newvalue1; & I- x. L) d0 |0 ]- o1 C) s- e pNewCookie1->Expires = Now()+366; // 保存一年

. g/ T5 e/ n$ b0 V" p) @

TCookie *pNewCookie2 = Response->Cookies->Add(); 9 {/ {4 _- G( F& W# b+ ~1 b6 Q pNewCookie2->Name="count2"; file://更新Cookie 4 {, f" n0 L% f) | pNewCookie2->Value=newvalue2; ' A* x% s/ g; ?1 |% X/ U pNewCookie2->Expires = Now()+31; // 保存一月

) }% F1 R5 V Q

// 向客户显示Cookie的值 9 R; E2 e% G* {. q/ ` String h0="<html><head></head><body>";$ Y$ k3 o6 W- k$ e7 r String h1="</body></html>"; 6 D4 a7 z# \) ] String s1="计数值1="+newvalue1+"<br>";# t- E) p! c" A4 @, R+ L0 T5 K String s2="计数值2="+newvalue2+"<br>";

6 _( m" _) s. S2 f/ }$ N$ E# ?: T3 Z

Response->Content=h0+s1+" <br>"+6 O1 y2 C: R- q7 a7 K+ Z0 g s2+" <br>"+ h1;! p+ i4 [6 N. h+ Z } 2 x: H. ?( B% [1 Y- `





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