ASP动态网页服务器设置 第4页
ASP动态网页服务器设置 第4页
'定义一数组，用来存放显示每一位数字图象的语句
CountFile=Server.MapPath("imgcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALS E)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE )
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
countlen=len(counter)
'得到计数器值的位数
for i=1 to countlen
images(i)="<img src="&"http://www.751com.cn s/"&"/" & mid(counter,i,1) & ".gif></img>"
'由循环语句得到各个位上数值对应图象的显示代码(html)，并把它存在数组中
'具体使用时请注意图象的实际服务器及目录路径
response.write"document.write('"&images(i)&"');"
'调用函数Document.write输出显示数字图象的html代码
next
Out.Close
%>
在要计数的页面加入如下的代码：
<p>
您是第
<script language="JavaScript" src="imgcounter.asp">
//引用时注意ASP计数器所在的服务器及目录路径。
</script>
位来客
</p>
计数器设计详解
ASP内含五个内置的"Active Server Components"(ActiveX服务器组件)，即Database Access component(数据库访问组件)、File Access component(文件访问组件)、Ad Rotator component(广告轮播器组件)、Brower Capabilities component(浏览器信息组件)、Content Linking component(内容链接组件)。我们下面要设计的计数器，就是通过其中的File Access component(文件访问组件)来读写服务器文件来实现。算法思路是：在服务器端用一个文本(ASCII)文件存放计数数值，每当页面被访问时就从文件中读出数值，显示给用户，并且使数值加1，把增加后的数值写回到文件。
写入数据到一个服务器计数文件的ASP语句和说明如下：
CounFile=Server.MapPath("用来存放计数器值的文件名")
'Server服务器访问方法MapPath(path)是将存放计数器值的文件所在的路径 转换成物理路径
SET FileObject=Server.CreateObject("Scripting.FileSyst emObject")
'使用方法CreateObject定义对象FileSystemObject
SET OutStream=Server.CreateTextFile(FileObject,True,Fa lse)
'使用对象FileSystemObject提供方法CreateTextFile产生文本文件，其中参数"True"表示覆盖原来的文件，"False"表示文件为ASCII类型
OutStream.WriteLine "要写入的数据"
'OutStream.WriteLine为往文件写入一行数据
从一个服务器文件读取数据的ASP语法如下：
上一页 [1] [2] [3] [4] [5] [6] 下一页