的确,我刚才事了一下,果然没用,于是察看cgiapp.pas的源代码,发现
最后添加Expires的地方在SendResponse这个过程里面,大家看看下面
的代码:
.....
AddHeaderItem(DerivedFrom, 'Derived-From: %s'#13#10);
if Expires > 0 then
Format(FormatDateTime('"Expires: "' + sDateFormat + ' "GMT"'#13#10, Expires), [DayOfWeekStr(Expires), MonthStr(Expires)]);
if LastModified > 0 then
Format(FormatDateTime('"Last-Modified: "' + sDateFormat + ' "GMT"'#13#10,LastModified), [DayOfWeekStr(LastModified), MonthStr(LastModified)]);
AddHeaderItem(Title, 'Title: %s'#13#10);
AddHeaderItem(WWWAuthenticate, 'WWW-Authenticate: %s'#13#10);
发现没有,"'Derived-From:"和"Title:"等header都用AddHeaderItem添加
进Header里面了,但是"Expires:"和"Last-Modified: "都只是用format算出了
结果,却没有对结果做任何处理!!!!?????
看到这里大家可能以为终于找到原因了,呵呵---别高兴的太早!
我自己按照他的格式手动添加header居然也没用!
NND! 我搞不明白这是borland的失误还是故意设的一个陷阱??
