##
问：怎样在HTML中加入计数器？
答：在只提供纯HTML主页的网站中，因为没有写计数器文本或数据
库的权限，一般都使用网站提供的或用外部的计数器。要拥有自己编写
的计数器，要登记到支持ASP、CGI、PHP...的HTML主页的网站。
文本型计数器，不需调用数据库，因而简便实用。
一。加入ASP 文本型计数器实例
<!-- 插入ASP计数器语句开始 -->
<iframe src="counter.asp" frameborder="0"
scrolling="no" >
</iframe>
<!-- 插入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
%>
<center><font color=red>欢迎光临黄河之滨<br></font>
<font color=green> <% =no%></font></center>
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 遮罩动画配合，怎样做 ？》
|
