用一个INI文件,里面有个COUNT,
在ACTION时把COUNT+1不就行了吗!
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var TempIniFile:TIniFile;
Counter:Integer;
begin
TempInifile:=TIniFile.Create('Counter.ini');
Counter:=TempIniFile.ReadInteger('Sys','Count',100);
TempIniFile.WriteInteger('Sys','Count',Counter+1);
Response.Content:='您是第'+IntToStr(Counter)+'客人';
end;