對(duì)于某些網(wǎng)站管理員來(lái)說(shuō)，最痛苦的事情莫過(guò)于每天必做的重復(fù)工作。譬如：從新聞頁(yè)面中刪除舊的新聞標(biāo)題，換上新的新聞標(biāo)題；如果想讓讀者能看到以前的新聞，還要更改隨時(shí)間改變的FormField值。等等。用DELPHI編寫一個(gè)WebServer端的ISAPI程序，可以大大減輕工作量。
---- ISAPI方式的服務(wù)器端程序，有以下特點(diǎn)：內(nèi)存開銷小，多個(gè)客戶端鏈接與一個(gè)鏈接內(nèi)存開銷等同；速度快。由于DLL運(yùn)行一次后便常駐內(nèi)存，當(dāng)有新的鏈接時(shí)，直接從內(nèi)存發(fā)送數(shù)據(jù)，有效地提高了速度。

---- 我用DELPHI4編寫的這個(gè)程序，具有以下功能：

---- 1、根據(jù)日期變化，自動(dòng)修改FormField的時(shí)間值(此值宮瀏覽器端選擇)。

---- 2、自動(dòng)生成新聞目錄。管理者只需把新的新聞拷貝至此目錄即可，程序能自動(dòng)生成新聞首頁(yè)的頁(yè)面。

---- 重點(diǎn)：

---- 1、在一個(gè)目錄中搜索符合條件的文件，返回句柄： HANDLE FindFirstFile(LPCTSTR lpFileName,LPWIN32_FIND_DATA lpFindFileData);

---- 2、根據(jù)FindFirstFile返回的句柄繼續(xù)搜索下一個(gè)文件： BOOL FindNextFile(HANDLE hFindFile,LPWIN32_FIND_DATA lpFindFileData );

---- 3、關(guān)閉指定搜索句柄： BOOL FindClose(HANDLE hFindFile);

---- 4、WIN32_FIND_DATA該結(jié)構(gòu)存儲(chǔ)FindFirstFile和FindNextFile找到文件的各項(xiàng)信息，其結(jié)構(gòu)如下：

typedef struct _WIN32_FIND_DATA {
DWORD dwFileAttributes;
FILETIME ftCreationTime;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
DWORD nFileSizeHigh;
DWORD nFileSizeLow;
DWORD dwReserved0;
DWORD dwReserved1;
TCHAR cFileName
[ MAX_PATH ];
TCHAR cAlternateFileName[ 14 ];
} WIN32_FIND_DATA;
程序的action內(nèi)容：
name
pathinfo
enabled
updata
WebActionItem1
/DispNews true

源代碼如下：
unit Unit1;

interface

uses

Windows, Messages,
SysUtils, Classes,
HTTPApp,ShellApi, ExtCtrls;

type
TWebModule1 = class(TWebModule)
Timer1: TTimer;
procedure WebModule1updataAction
(Sender: TObject; Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
procedure WebModule1WebActionItem1
Action(Sender: TObject;
Request: TWebRequest; Response:
TWebResponse; var Handled: Boolean);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
WebModule1: TWebModule1;

implementation

{$R *.DFM}
//
//本部分是執(zhí)行不帶入口的dll。
功能：生成新聞中心的首頁(yè)，
//主要目的是下拉菜單
的時(shí)間動(dòng)態(tài)改變
procedure TWebModule1.
WebModule1updataAction
(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
var DHTML:string;
var I:integer;
begin

DHTML:='< html >';
DHTML:=DHTML+'< head >';
DHTML:=DHTML+'< title >
新聞中心< /title >';
DHTML:=DHTML+'< /head >';
DHTML:=DHTML+'< body >';
DHTML:=DHTML+'< p >
請(qǐng)選擇日期：< /p >';
DHTML:=DHTML+'< form
method="POST" action="AutoUpDt.dll/DispNews"';
DHTML:=DHTML+'< p >
< select size="1" name="tm" >';
//下拉列表中包含
前推十天的日期
DHTML:=DHTML+'< option
selected value="'+FormatDateTime('mmdd',
date)+'" >今天< /option >';
DHTML:=DHTML+'< ption value="'
+FormatDateTime('mmdd', date-1)+'"
>昨天< /option >';
DHTML:=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;

//根據(jù)request傳送的參數(shù)
確定要顯示的文件目錄
//并從該目錄中取
出所有的htm文件
//如果沒有該目錄，
則向?yàn)g覽器發(fā)送提示信息
procedure TWebModule1.
WebModule1WebAction
Item1Action(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
Var ReqDir:Tstrings;
//保存Request要求的參數(shù)
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 >';
//根據(jù)搜索句柄向后搜索
while FindNextFile
(SearchFileHandle,
FileNameData ) do
DHTML:=DHTML+'< P >< a
href="../'+SeleDir+'/'
+FileNameData.cFileName+'"
>'+FileNameData.cFileName+'
< /a >< /p >';
//關(guān)閉搜索句柄
fileClose(SearchFileHandle);
end
else
DHTML:=DHTML+'對(duì)不起，
沒有您需要的新聞';

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

//在上午八點(diǎn)到九點(diǎn)之間，
Timer被激發(fā)一次，創(chuàng)建下一天的文件夾
procedure TWebModule1.
Timer1Timer(Sender: TObject);
begin
if FormatDateTime('h',
time)='8' then
mkdir(IntToStr(StrToInt
(FormatDateTime('mmdd', date))+1));
end;

end.

---- 實(shí)際使用時(shí)，可根據(jù)自己的需要，將已有的Web頁(yè)面編輯進(jìn)程序中；同時(shí)，編寫合適的時(shí)間處理函數(shù)修改FormField的值也是必須的，因?yàn)樵诒境绦蛑?#xff0c;并未涉及到月初月末時(shí)間變化。

轉(zhuǎn)載于:https://www.cnblogs.com/myamanda/articles/1657403.html

總結(jié)

以上是生活随笔為你收集整理的用ISAPI方式实现Web页面的自动更新的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。