我在网上下了个简单图形计数器，可是不知道怎么使用，在主页上应加入什么代码？？？？？？解压的有两个文件counter里面有0-9一共10张图片counter2代码如下<%
Function Digital ( counter )
Dim i, MyStr, sCounter
sCounter = CStr(counter) '将counter转换为字符型，以便处理
'在前面补0，假定计数器长为8位
For i = 1 To 8 - Len(sCounter)
MyStr = MyStr & "<IMG SRC=Counter\0.gif>"
Next
'依次读取counter中的每位数字，并转换为相应的图片
For i = 1 To Len(sCounter)
MyStr = MyStr & "<IMG SRC=Counter\" & Mid(sCounter, i, 1) & ".gif>"
Next
'将输出的图片字符串返回
Digital = MyStr
End Function
Application.Lock
Application("Counter") = Application("Counter") + 1
Application.UnLock
%>
<HTML>
<HEAD><TITLE>计数器演示版</TITLE></HEAD>
<BODY>
<h2 align="center"><font color="#0000FF">这是一个网站计数器的演示程序</font></h2>
<hr>
<p align="center"> 您是本站第 <%=Digital(Application("Counter"))%> 位访客，欢迎光临</p>
</HTML>
附件:
未命名.JPG 附件:
2.JPG