简单的ASP网页图片计数器代码

要实现图形计数器，关键点在于如何实现把计数器文件中的数据值转变为对应的图象表示。因为十进制数有0,1,2,3,4,5,6,7,8,9共十个不同的数数字，我们需要有十个对应的图象，且图象的文件名字要与显示的数字对应起来，比如0对应的数字图象的文件名字就是0.gif，1对应的就是1.gif，...。这里我们要用到VBScript函数Len(string | varname)、Mid(string,start[,length])。由Len(counter)可得到计数器值的位数,由Mid(counter,i,1)可以得到计数器值的第i位上的数字，我们可利用这个值来调用相应的数字图象。用For循环语句,我们不难得出计数器值各个位上的数字并转化成对应的数字图象，这样，我们就能实现文本数值到图象数字的转变。下面就是一个用ASP编写的图象计数器实例。

1、在网站目录下新建一个文本文件：imgcounter.txt，在文本填写1或其他数字

2、新建一个asp文件：imgcounter.asp，加入以下代码：

<%

dim images(20)   '定义一数组，用来存放显示每一位数字图象的语句

CountFile=Server.MapPath("imgcounter.txt")

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.OpenTextFile(CountFile,FALSE,FALSE)

counter=Out.ReadLine

Out.Close

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

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="&"images/"&"/" & mid(counter,1) & ".gif></img>"  '由循环语句得到各个位上数值对应图象的显示代码(html)，并把它存在数组中，具体使用时请注意图象的实际服务器及目录路径

response.write"document.write('"&images(i)&"');"   '调用函数Document.write输出显示数字图象的HTML代码

next

Out.Close

%>

3、在要计数的页面加入如下的代码：

您是第<script language="JavaScript" src="imgcounter.asp"></script>位访客