******** BEGIN BODY ********
open (GETCOUNT,"〈count.log"); #open count log for input
=〈GETCOUNT〉; #assign contents of file to
close (GETCOUNT); #close access to file
++; #increase by 1.
print " hits"; #print number of hits to users screen
open (PUTCOUNT,"〉count.log"); #open count log for output
print PUTCOUNT (); #replace old counter value with new one
close PUTCOUNT; #close access to file
#******** END BODY *********
如果用SUBMIT按钮，当前页将消失，出现程序的输出页。为了在当前页上显示点击数，需要有一个页面转载时执行的程序，然后把结果潜入相同页面上。这种方法叫做Server Side Include(SSI)。
注意：不是所有的web服务器都支持SSI。有些只在页面文件以".shtml"或".html-ssi"结束才起作用，有些由于安全原因完全屏蔽了这种功能。
下面是代码的工作过程：
把上面的代码拷贝到一个新的'template.txt'文件中，命名为count.cgi。
建立一个包含起始点击数的文件，命名为count.log。
新建一个HTML页面。
插入〈!--#exec cgi="count.cgi"--〉。
把上面3个文件上传到服务器上。
Telnet到perltour文件夹中，敲入chmod a+rx count.cgi。
浏览这个页面，重载几次，可以看到数字的增加。
如果不起作用，直接浏览count.cgi看它是否工作。一旦CGI起作用，把页面文件重命名为.shtml扩展名。
|
