开发Web应用程序中Cookie使用的问题

类别:Delphi 点击:0 评论:0 推荐:
 

问:我想在一个Actionitem中增加cookie,然后sendredirect到另一个actionitem在那里验证cookie,有cookie这显示一个页面,否则返回。但我发现增加完cookie后,如果马上sendredirect则另一个actionitem取不到cookie值(说明cookie增加不成功),若不马上sendredirect而是response.content:='某一页面内容',然后用户点击连结到另一ActionItem则可以成功读出cookie。

答:Cookie是一个Response的头(header)部分,必须在正文之前设置。如果用SendRedirect,只有新页面才会传送,SendRedirect之前设置的Response会取消,导致Cookie不能加到新页面的头部分,所以设置Cookie不成功!解决办法是:永远不要在设置Cookie后再用SendRedirect。你所说的问题可以这样解决:在HTML中可以加入代码自动转到另外一个页面,我们可以在WebActionItem的OnAction事件中写入:

Response.Content:='<meta HTTP-EQUIV="REFRESH" CONTENT="1;'+

        'URL=http://chen/dll/chat/chatmain.exe/qtchat">'+

        '<p></p><p align="center">你的回复已经添加到论坛中了'+

        '<br>两秒钟后回到论坛首页</p>';

就可以自动返回URL指向的地址了。

 

问:我先在Cookie中设定了一个值,然后想修改它,该如何做?

答:首先删除原来的Cookie中的值,方法是将Cookie的Expires设定为必现在时间早的时间,然后在设定。例如:

//将原来Cookie中的记录删除

    With Response.Cookies.Add do begin

      Name := 'NickName';

      Value := Request.ContentFields.Values['NickName'];

      Secure := False;

      Expires := Now-1;

    end;

 

    //将注册的用户名作为Cookie中的内容

    With Response.Cookies.Add do begin

      Name := 'NickName';

      Value := Request.ContentFields.Values['NickName'];

      Secure := False;

      Expires := Now+100;

end;

 

问:如何通过Cookie保存临时信息?象一些论坛,在一次浏览过程中。当你第一次发言时,需要输入密码,而以后发言就不需要输入密码。而当断开后再次浏览就还需要输入密码,这样即方便又保证了安全性.

答:设置这样的Cookie的方法是不要设定Expires。例如:

//设定临时Cookies

    with Response.Cookies.Add do begin

      Name := 'TempPassword';

      Value:=sPassword;

end;

 

另外我们也可以下载一些专用的设定和读取Cookie的控件,这些控件支持在Web应用程序中加入类似ASP的Session的功能。下载地址是:http://codecentral.borland.com/

www.applevb.com

本文地址:http://com.8s8s.com/it/it6203.htm