我等了这么多天，难道没有高手肯不吝赐教么？

首先确定一下，你的空间支持asp 吗？

这是一个用图片代替数字的代码，不过每次刷新后会加1。
<%
Application.Lock
Set fs=Server.CreateObject("Scripting.FileSystemObject")
file=Server.MapPath("pic/counter.txt")
Set txt=fs.OpenTextFile(file) '打开成只读文件
If Not txt.atEndOfStream Then
Application("counter")=txt.ReadLine '读取文件中的数字，并指定给Application变量
End If
txt.Close '关闭文件
Application("counter")=Application("counter")+1 '将Application("counter")变量加1
counter=Application("counter") '将改变后的Application变量的值指定给变量counter
Set txt=fs.CreateTextFile(file,True) '建立新文本文件，将原来的文件覆盖掉
txt.WriteLine counter '将新的计数值counter写入文件
txt.Close '关闭文件
Application.Unlock
x=CStr(counter) '将数值转成字符串x
'逐一读取字符串x的每一个字符，然后串成的图片标记
For I=1 To Len(x)
gif=gif&""
Next
gif_counter=gif
%>