html每天重置的计数器,怎样在HTML中加入计数器？

##

问：怎样在HTML中加入计数器？

答：在只提供纯HTML主页的网站中，因为没有写计数器文本或数据

库的权限，一般都使用网站提供的或用外部的计数器。要拥有自己编写

的计数器，要登记到支持ASP、CGI、PHP...的HTML主页的网站。

文本型计数器，不需调用数据库，因而简便实用。

一。加入ASP 文本型计数器实例

scrolling="no" >

以下是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

%>

欢迎光临黄河之滨

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 做的文本型计数器，就装在这个

网的黄河之滨网站的首页上。因系试用，请提出改进意见。

厦门数字黄河之滨首页

此计数器相关文件提供下载，以便于交流。

下载 111 KB

相关链接：

《一幅风光画片要加一点朦胧效果怎样做？》

《GIF 动画和Flash 遮罩动画配合，怎样做 ？》