一、 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="[email protected]";
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) //查找n
return pairSplit[1]; //取到n的值
}
return "";
}
function getName() //取Cookie中的姓名NAME
{
var s=document.cookie; // 取所保存的Cookie
NAME0=getValue(s,"NAME");
form1.NAME.value=NAME0;
}
function newCookie() //将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; // 将保存到客户机中
}
}
//--></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"; //更新Cookie
pNewCookie1->Value=newvalue1;
pNewCookie1->Expires = Now()+366; // 保存一年
TCookie *pNewCookie2 = Response->Cookies->Add();
pNewCookie2->Name="count2"; //更新Cookie
pNewCookie2->Value=newvalue2;
pNewCookie2->Expires = Now()+31; // 保存一月
// 向客户显示Cookie的值
String h0="<html><head></head><body>";
String h1="</body></html>";
String s1="计数值1="+newvalue1+" ";
String s2="计数值2="+newvalue2+" ";
Response->Content=h0+s1+" "+
s2+" "+ h1;
要求相关知识：网页服务器、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="[email protected]";
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) //查找n
return pairSplit[1]; //取到n的值
}
return "";
}
function getName() //取Cookie中的姓名NAME
{
var s=document.cookie; // 取所保存的Cookie
NAME0=getValue(s,"NAME");
form1.NAME.value=NAME0;
}
function newCookie() //将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; // 将保存到客户机中
}
}
//--></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"; //更新Cookie
pNewCookie1->Value=newvalue1;
pNewCookie1->Expires = Now()+366; // 保存一年
TCookie *pNewCookie2 = Response->Cookies->Add();
pNewCookie2->Name="count2"; //更新Cookie
pNewCookie2->Value=newvalue2;
pNewCookie2->Expires = Now()+31; // 保存一月
// 向客户显示Cookie的值
String h0="<html><head></head><body>";
String h1="</body></html>";
String s1="计数值1="+newvalue1+" ";
String s2="计数值2="+newvalue2+" ";
Response->Content=h0+s1+" "+
s2+" "+ h1;
cookies("site")("aaa")
而不是
cookies("aaa")
如果把 "site" 的值全部读出来再分解字符串岂不是很没效率的做法，我在找直接读 cookies("site")("aaa") 的办法。
Params: TParamsList;
begin
Params := TParamsList.Create;
try
Params.AddParameters(Request.CookieFields);
Response.Content := '参数一'+ Params['site'];
finally
Params.Free;
end;