怎样制作网页计数器(100分)

B

borland

Unregistered / Unconfirmed
GUEST, unregistred user!
我用DELPHI4.0的TPageProducer控件可以生成一个动态网页;
但是我该如何制作一个通用的网页计数器。请高手指点一二,
谢谢。
 
拿来主义者Another_eYes说:<a href="http://search.yahoo.com/bin/search?p=free+web+counter">下载一个</a>
 
网页计数器,这种东西不用做了吧,如果你不是想做出什么标新立异的新玩艺,
只是想用用而已。下载一个最方便。满世界都是。
 
用一个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;
 
做0--9共10个位图,每次返回时将这些位图合成一个位图返回,如count为233,
2+3+3=>233,count次数取一个Ini文件累加计算。
 
更简单用CGI-Expert组件
 
更简单的是用别人的server帮你记数
去申请一个, 到处都有免费的
 
送您一个例子 <a href=/delphi/attachments/dcount.zip>dcount.zip</a>.
 
Another_eYes老喧说的有道理,同意。
 
多人接受答案了。
 
顶部 底部