|
| |
ASP应用实例
1. 利用文件访问组件制作主页访问计数器
现在许多主页上都有一个计数器来记录该主页被访问的次数,通常计数器通过CGI实现,开发过程比较复杂,一些非专业的程序员难以实现。而通过ASP的文件访问组件File
Access Component (Scripting.FileSystemObject),可以很方便地产生一个计数器。下面是一个例子,其原理是:根据page
hits生成计数文件,读出计数文件中的数字,再根据它动态地调出代表1、2、3等数字的图像。其基本过程和CGI差不多,但在送出图像时不同,CGI是通过程序来动态生成一整幅图像,而我们的方法是将已存在于机器中的图像一张一张地调出,这样就可以制作非常精美的数字图像。其程序片段为:
<html>
<%
CountFile = Server.MapPath("/gjy"+"/count.txt")
'计数文件
Set FileObj = Server.CreateObject("Scripting.FileSystemObject") '产生文件访问构件
Set Out=FileObj.OpenTextFile(CountFile,1,FALSE,FALSE)
'打开文件
visitors = Out.ReadLine '读出访问记录
visitors = visitors+1
'加一
Length = Len(visitors) '该调出的图像数目
strURL="" '图像的URL
Do While Length>=1
strURL="<IMG SRC=/img/"+Mid(visitors,Length,1)+".GIF>"+strURL
Length=Length-1
Loop
'生成图像URL
Set Out=FileObject.CreateTextFile(CountFile,TRUE,TRUE)
Out.WriteLine(visitors)
'记录数写回
%>
<%=strURL%>
'输出图像
</html>
注:读者可以根据自己服务器的情况设置图像文件路径。
|
