📄 bcjq073.txt
字号:
C++ Builder开发者:程序员之家
var how_many_ads = 3;
var now = new Date()
var sec = now.getSeconds()
var ad = sec % how_many_ads;
ad +=1;
首页
| 控件天堂 | 控件使用
| 编程技巧
| 源代码 | 编程工具 |
系统补丁 | 电子书籍 | 技术论坛
| 相关链接
if (ad==1) {document.write(''+'');}
if (ad==2) {document.write(''+'');}
if (ad==3) {document.write(''+'');}
var marqueecontents=''+scroll_text+''
if (document.all)
document.write(''+marqueecontents+'')
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}
function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write(marqueecontents)
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.height
scrollit()
}
function scrollit(){
if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.top-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.top=marqueeheight
scrollit()
}
}
window.onload=regenerate2
当前位置
:
编程技巧
实现Cookie
一、在活动的应答项中设置cookie,以及在请求中读同样的cookie.
把Cookies 设置为应答的一部分,使用SetCookieField方法:
TStringList* Cookies = new TStringList();
Cookies->Add("Answer=42"); // whatever...
Response->SetCookieField(Cookies,NULL,NULL,Now()+1,false);
Cookies->Free();
注意:我们使用一个TStringList来设立一列Cookie值。(传递给SetCookieField
的第一个参数)。cookies的每一个列可以有一个主域(Domain)
(第二个参数)和路径(第三个参数)联合起来。(象drbob42.com),
标识哪个URL是cookie将要发送去的。你可以留空这两个参数(就象上面代码一样).第四个参数指定cookie结束日期,这里我设置为"第二天的同个时间",使用Now()+1来设置。最后一个参数要指定,如果cookie的使用是通过一个安全的网络(over
a secure network)的话。
用户如果认可这个cookie, 接着在一个OnAction事件中我们需要读cookie的值。(以便确定回答字段的值)Cookie是请求类(Request
class)的一部分,就象ContentFields,所以可以使用CookieFields属性来得到:
int Answer =
StrToInt(request->CookieFields->Values["Answer"]);
注意:在调用StrToInt()可能会发生一个例外,(如空的串(string),这种情况下cookie将没被设置,没找到或终止)
所以在这里要使用一个try-except。
二、使用VCL如何读和写cookies
读一个cookie的值:
Request->CookieFields->Values["name of cookie"];
向一个cookie写值:
Response->SetCookieField(TStrings* Values, AnsiString Domain,
AnsiString APath, TDateTime AExpires, bool ASecure);
if (ad==1) {document.write(''+'');}
if (ad==2) {document.write(''+'');}
if (ad==3) {document.write(''+'');}
C++ Builder开发者®
2000年06月01日 站长:唐朝