属于ISAPI与CGI 的范畴:
   以  COOKIE变量=值  的方式把 变量保存在 浏览器的客户端,
当客户用浏览器访问你的网页时,若运行了主页上的CGI、ISAPI
程序与JAVASCRIPT脚本就可以读写访问这些变量;
   在客户端,各个网站留下的COOKIE变量互不干扰、不能互访;
若用户关闭了浏览器的COOKIE 功能,这些程序就不读写这种变量
了;

解决方案 »

  1.   

    转贴Cookies是一种Web服务器在客户端存储和返回信息的机制,这种简单的、永久的和基于客户端的状态信息大大的扩充了基于Web的客户/服务器(Client/Server)应用程序的能力。因此广泛应用在大量的实际中,例如所有订阅Microsoft公司的MSDN的用户、访问过Borland Online的用户,以及访问过我的主页(http://www.nease.net/~borland)的用户都会在本地存储Cookie,以便下次访问时提供上次访问的记录。
    Delphi 3是Borland公司1997年推出的可视化、面向对象的高效率的快速应用程序开发工具(RAD),提供了大量的最新功能,例如开发COM/DCOM,一步开发ActiveX对象,多层数据库应用程序MIDAS等,并且使用Delphi 3开发基于Web服务器的程序,如ISAPI/NSAPI,Win-CGI,CGI程序都十分方便。
    使用Delphi 3开发Web Server程序是非常简单,方便的,因为在Delphi中提供了Web Module、TWebApplication、TWebRequest、TWebResponse、TPageProducer等大量的对象供使用.对于Cookie,Delphi3也提供了大量的程序供使用,如TWebResponse.Cookies,TWebResponse.SetCookieField,TWebRequest.Cookie,TWebRequest.CookieFields,TWebRequest.ExtractCookieFields等,应该是非常方便。但本人为了实现一功能需要设置Cookie,但是发现使用Delphi提供的SetCookieFields设置不成功,经研究Delphi 3所带的HttpApp.Pas和IsapiApp.Pas文件发现在中文Windows 95和NT环境下该程序有错误。
    根据Netscape公司的规定,Cookie的格式应为:
    Set-Cookie: Name=Value; expires=DATA; Path=PATH; domain=DOMAIN_NAME; secure
    而且根据规定,日期(DATA)的设置必须满足格式“Wdy, DD-Mon-YYYY HH:MM:SS GMT”,基于RFC822, RFC850, RFC1036和RFC1123等规定,但是检查HTTPAPP.PAS中的function TCookie.GetHeaderValue: string中为FormatDateTime('"expires="' + DateFormat + ' "GMT; "', Expires);,其中const DateFormat = 'ddd, dd mmm yyyy hh:mm:ss',此程序在英文环境中产生的格式是正确的,但是在中文中产生的结果却不对,因为星期和月份都将按照中文的表示方法:如将11月生产“十一月”中文串,这样在Netscape Navigator和Microsoft Internet Explorer就不能辨认了。
    既然错误在于原VCL未考虑中文环境的问题,所以修改的方法有:1、修改VCL源程序,编译后将dcu文件拷贝到Lib目录,这样会完全改正错误,这样是最根本的解决方法,但是如果将源程序放在另一未修改的Delphi中(例如提供源程序给别人和自己重新安装)编译又将出现问题。2、因为使用并不太多,所以可以将修改的程序放在自己的程序中,使用Delphi 3提供的TWebResponse.SetCustomHeader设置,这样的好处是将程序放在自己的程序内,重新装Delphi或在另一台计算机上编译的结果也会完全正确。因为Cookie的目的一般有两种,一种是在此会话过程中使用,过后不使用,此时不需要Expires段,不会产生时间错误,可以使用Delphi 3提供的所有Cookie程序;另一种为永久保存,时间一般越长越好,于是可以将时间设置为2099年二月22日, 于是程序中设置Cookie的方法为:
    Response.SetCustomHeader('Set-Cookie','Name=Value; expires=Sun, 22 Feb 2099 08:08:08 GMT'); (注斜体用自己的名称代替,例如设置Count=10,则Name用Count代替,Value用10代替),这样就可以建立Cookie了.
    以下为建立一个访问计数器的程序,可以参照:
    const
    LastIp:String='0:0:0:0'; //避免重复计数
    Var
    S:String;
    Count:Integer;
    begin
    S:=Request.CookieFields.Values['count'];
    if S<'' then begin
    try
    Count:=StrToInt(S);
    Except
    Count:=0;
    End;
    end else Count:=0;
    if LastIp LastIp:=Request.RemoteAddr;
    Response.SetCustomHeader('Set-Cookie','count='+IntToStr(Count)+'; expires=Sun, 21 Feb 2010 08:08:08 GMT');
    Response.Content:='您是第'+IntToStr(Count)+'来到本页!';
    End;
      

  2.   

    请联系 [email protected]   I Send Demo to you
      

  3.   

    Cookie并不复杂,怪就怪在这个名字,吓住了许多人;
    首先要了解它的用途与原理,没有Cookie照样可以,
    因为浏览器客户会随时关掉COOKIE功能;实际上COOKIE
    是方便浏览器客户的,上一次你输入的一些内容还可找到,
    使你免输了
      

  4.   

    第二、不知提问者的ISAPI的水平已达怎样的程序?
      

  5.   

    其实我是想用COOKIE跟踪用户,以确保用户进入每个页面都获取权限来进行相应的操作,不用再次提供用户名及密码。
    当然,如果有其他方法,也希望告知。
      

  6.   

                        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="[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+"<br>";
         String s2="计数值2="+newvalue2+"<br>";     Response->Content=h0+s1+"  <br>"+
                              s2+"  <br>"+ h1;
    }     
      

  7.   

    我的cookie资料就这些,无意中留下来的。就是些技巧的文章上找的,而且就这些。delphi write cookie这些够了吧。熟悉一些ISAPI写这个就没什么了。我看的cookie资料就有两个版本,这个,还有一个一本书上讲的。信息量差不多。