L:=DHTML+''< option value="''
+FormatDateTime(''mmdd'', date-2)+''"
>前天< /option> '';
for i:=1 to 7 do
DHTML:=DHTML+''< option value="''
+FormatDateTime(''mmdd'',
date-2-I)+''" >''+FormatDateTime
(''m"月"dd"日"'', date-2-I)+''< /option >'';

DHTML:=DHTML+''< /select >
< input type="submit" value="提交" name="B1" >'';
DHTML:=DHTML+''< /p >'';
DHTML:=DHTML+''< /form >'';
DHTML:=DHTML+''< /body >'';
DHTML:=DHTML+''< /html >'';
Response.Content:=DHTML;

end;

//根据request传送的参数
确定要显示的文件目录
//并从该目录中取
出所有的htm文件
//如果没有该目录，
则向浏览器发送提示信息
procedure TWebModule1.
WebModule1WebAction
Item1Action(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
Var ReqDir:Tstrings;
//保存Request要求的参数
Var DHTML,SeleDir:string;
var FileNameData:
WIN32_FIND_DATA;
var SearchFileHandle:THandle;
begin
ReqDir:=NIL;
ReqDir:=Request.
ContentFields;
DHTML:=''< html >'';
DHTML:=DHTML+''< head >'';
DHTML:=DHTML+''
< title >新闻中心< /title >'';
DHTML:=DHTML+''
< /head >'';
DHTML:=DHTML+''
< body >'';
DHTML:=DHTML+''
< p align="center" >
< font face="宋体" size="5"
color="#0000FF" >
新闻中心< /font >< /p >'';
//DHTML:=DHTML
+ReqDir.Values[''tm''];
SeleDir:=ReqDir.
Values[''tm''];

// 获得搜索句柄
SearchFileHandle:=FindFirstFile
(Pchar(''C:\MyWeb\news\''+SeleDir+''
\*.htm''),FileNameData);
if SearchFileHandle< >
INVALID_HANDLE_VALUE then
begin
DHTML:=DHTML+''< P >< a
href="../''+SeleDir+''/''
+FileNameData.cFileName+''" >''
+FileNameData.cFileName+''
< /a >< /p >'';
//根据搜索句柄向后搜索
while FindNextFile
(SearchFileHandle,
FileNameData ) do
DHTML:=DHTML+''< P >< a
href="../''+SeleDir+''/''
+FileNameData.cFileName+''"
>''+FileNameData.cFileName+''
< /a >< /p >'';
//关闭搜索句柄
fileClose(SearchFileHandle);
end
else
DHTML:=DHTML+''对不起，
没有您需要的新闻'';

DHTML:=DHTML+''< /body >'';
DHTML:=DHTML+''< /html >'';
Response.Content:=DHTML;
end;

//在上午八点到九点之间，
Timer被激发一次，创建下一天的文件夹
procedure TWebModule1.
Timer1Timer(Sender: TObject);
begin
if FormatDateTime(''h'',
time)=''8'' then
mkdir(IntToStr(StrToInt
(FormatDateTime(''mmdd'', date))+1));
end;

end.

---- 实际使用时，可根据自己的需要，将已有的Web页面编辑进程序中;同时，编写合适的时间处理函数修改FormField的值也是必须的，因为在本程序中，并未涉及到月初月末时间变化。