##
问:怎样在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 遮罩动画配合,怎样做 ?》