关于计数器程序的设计，在线等~~

[yzone]

最近做了个计数器，能正常使用（很简单的那种），后来想把显示的数字转换成图片，请问这样的代码该怎么写呢，我现在有数据库的hits数据表，0-9的图片。请大家帮帮忙！谢谢！

[huzhen1028]

<%
file=server.mappath("counter.txt")
Set files = CreateObject("Scripting.FileSystemObject")
Set openfile = files.OpenTextFile(file)

visitors=openfile.readline
openfile.close

countsize=len(visitors)
for n=1 to countsize
response.write "<img src=" & mid(visitors,n,1) & ".gif>"
next

If IsEmpty(Session("visitors")) Then
visitors=visitors+1
Set out=files.CreateTextFile(file)
out.WriteLine(visitors)
out.close
End If
Session("visitors") = True
%>
把图片名改为0-9。在网页中使用的地方用<!--#include file="../count.asp"-->调用就可以了。

[yzone]

能不能把counter.txt换成数据库中的表呢！

[dtvikey]

feihua

[dtvikey]

废话！