怎样在HTML中加入计数器？

---

    问：怎样在HTML中加入计数器？
    答：在只提供纯HTML主页的网站中，因为没有写计数器文本或数据
库的权限，一般都使用网站提供的或用外部的计数器。要拥有自己编写
的计数器，要登记到支持ASP、CGI、PHP...的HTML主页的网站。
    文本型计数器，不需调用数据库，因而简便实用。
  一。加入ASP 文本型计数器实例




以下是counter.asp 的程序源码
<%
dim fso,f,no,I '定义变量
Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例
Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件
if f.AtEndOfStream then '判断这个文件是否不存在
no=1
else
no=f.ReadLine
no=no+1
end if
f.Close
set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '准备写
f.Write(no) '写入
f.Close '改进标志1
no=CStr(no) '整齐数字
for i=1 to 5-len(no)
no="0"&no
next
%>
欢迎光临黄河之滨

      <% =no%>

2。调试计数器程序

    将教程中的文本型计数器的代码复制为counter.asp。
    在PWS 系统支持下，浏览器地址填入：
    http://localhost/asp/asp1/counter.asp

    问：在PWS 中，怎样定义自己的虚拟目录？

    答：PWS 默认用户的主目录是 C:\Inetpub\woot。
    刚开始，我也是把自己的.asp文件都建在这个主目录下，或者在别
的地方建好，再拷到这个目录下。但拷来拷去，有点费事。
不如定义自己的虚拟目录方便省事。例如你的asp 主目录建在f:\asp
    文件名是counter.asp
在PWS 的主屏中，选高级｜添加：目录：f:\asp
                              别名：a
    访问：  读取、执行、脚本都选中。
    退回进入浏览器，输入：http://localhost/a/counter.asp
    应能正确执行和显示。

      注意事项：文件的写权限。

OpenTextFile打开一个文本文件，它的使用格式如下：
      object.OpenTextFile(filename[, iomode[, create[, format]]])
      filename是文件的路径，需要使用绝对路径，所以我们用了Server.
MapPath()函数。Server就是我们常说的ASP六大对象之一，如其名主要负责
服务器端的信息。MapPath函数可以把你给它的相对路径以当前ASP路径为参
照化为绝对路径。例如当前这个ASP在c:web下，Server.MapPath("count.no")
返回的就是"c:webcount.no"，如果你给它的路径是以""开头的，那么就是把
整个web服务的根目录作为参照，例如web服务的根目录是c:iisroot，那么
Server.MapPath("count.no")就返回"c:iisrootcount.no"。

      Iomode是文件输入/输出的方式，有三个值，它们是：

            ForReading1以只读模式打开文件。不能对此文件进行写操作。
            ForWriting2以只写方式打开文件。不能对此文件进行读操作。
            ForAppending8打开文件并在文件末尾进行写操作。

      注意事项：因为count.no需要被不断地改写，所以必须"在Windows里"
给Internet用户对这个文件的写权限，这是相当重要的。或者也可以用IIS里
任务的权限设置做基本的权限配置，但手工设置还是不可或缺的。IIS里对文
件的权限设置是Internet用户通过浏览器对某文件的访问权限，而
Windows2000里的文件权限是这个用户运行的程序（例如这个计数器程序）对
某文件的权限，意义是不同的。显然后者高于前者，所以这个设置有不少技
巧性。你想让ASP程序可以访问count.no文件而用户通过浏览器却不能读取其
内容，那么就在Windows中给用户对count.no的完全权限，在IIS中完全剥夺
用户对这个文件的权利。
    因厦门数字网提供ASP，CGI支持，用ASP 做的文本型计数器，就装在这个
网的黄河之滨网站的首页上。因系试用，请提出改进意见。
 ##
    问：怎样在HTML中加入计数器？
    答：在只提供纯HTML主页的网站中，因为没有写计数器文本或数据
库的权限，一般都使用网站提供的或用外部的计数器。要拥有自己编写
的计数器，要登记到支持ASP、CGI、PHP...的HTML主页的网站。
    文本型计数器，不需调用数据库，因而简便实用。

  2。加入PHP 文本型计数器实例

    在首页 index.html文件中，插入以下语句。



以下是counter.php 的程序源码

$counterFile =  "count.txt";

function displayCounter($counterFile) {
  $fp     = fopen($counterFile,"rw");
  $num    = fgets($fp,5);
  $num    += 1;
  print "";
  print   "

                  欢迎光临 黄河之滨 
";
  print "";
  print  "                        "."$num"."

"
  exec( "rm -rf $counterFile");
  exec( "echo $num > $counterFile");
}

if (!file_exists($counterFile)) {
  exec( "echo 0 > $counterFile");
}

displayCounter($counterFile);

?>

3。生成一个空白文本文件count.txt

4。调试计数器程序

    将教程中的文本型计数器的代码复制为counter.php。
    将  counter.php和count.txt 都拷到 c:\apache\htdocs\目录下.
    开始|程序|Apache|Apache httpd Server|Start Apache in Console
    出现 running 对话框，这时选最小化，使Apache 服务器图标
    落在 任务栏。
    在  Apache 和 PHP4 系统支持下，浏览器地址填入：
    http://localhost/counter.php
    应能正常显示  计数器数值。

  问：请简要说一下 PHP 系统的安装。

    答：调试PHP 程序，需要安装PHP4，也要在本地建立服务器运行环
境。
    服务器运行环境，在Win98 下，可以是PWS ，也可以是Apache。
    在Windows XP专业版下，可以是IIS。
    据介绍，PHP 与 Apache 这两者有最好的结合性。
    还要安装PHP 解释器和 MYSQL数据库。
    这方面的资料，书上和杂志上都有介绍。
    网上通过  www.google.com  搜索引擎，查找 "PHP 计数器 编程"
就可以查到一些适合需要的网站。如果加上  "汉化  下载"，就可以
查到一些软件下载网点。
    因为都是免费软件，用的人很多，软件本身运行一般没有问题。但
因版本更新快，可能在软件的衔接之间，存在一些小问题，比如路径、
文件名称不统一等，需要手工作些修改，因为提供源代码，一般都不难
解决。

    《软件》杂志 2001年第6 期  "PHP 实用大礼包"， 是介绍在
Apache平台下安装PHP4 的资料和光盘软件。
    我用的就是这一套软件，和部分从网上下载的资料。
    在 WIN98+Apache+PHP4  下调试通过。

    《网络新时代》2000.12 "PHP4.04 详细安装指南"  是介绍在
PWS4.0平台下安装PHP4 的资料。

    《软件报2001年合订本(下)》附录有  "PHP4轻松上手 "专题，
    内容有：
    安装和设置运行环境；
    PHP 的语法；
    常用函数和函数库；
    编程实践； (有计数器、反馈表单、投票程序、留言板等源码)
    可供参考。

    因虎翼提供PHP，CGI支持，用PHP 做的文本型计数器，就装在这个网的
黄河之滨网站的首页上。因系试用，请提出改进意见。
虎翼网黄河之滨首页

    此计数器及相关资料提供下载，以便于交流。
    下载  12 KB
相关链接：
   《怎样在HTML中加入计数器？(1)》
   《一幅风光画片要加一点朦胧效果怎样做？》

黄河之滨 网站:http://hhstone.vip.sina.com, http://www.hhstone.com