For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count by getting the path to the image using the mid function
'**********你可以自由修改下面一行src=""counter_images/11/中的计数器图片文件夹路径,修改为src=""counter_images/3/等其它你喜欢的数字图片所在文件夹************
Response.Write "<img src=""counter_images/11/" & Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif"">"
Next
dim i,k
dim strNum
%>
<%=application("Total")%>
<% response.write("总人数")%>
<%
set counter=server.createobject("mswc.counters")
num=counter.increment(counts)
%>
<p align="center">你是第<%=num%>位访问本网站的用户!</p><br>
<%
strNum=cstr(num)
response.write strNum
for i=1 to len(strNum)
k= int(mid(strNum,i,1))
%>
<% response.write("<img src='/message/"& k & ".gif'>")%>
<%
next
%>