插入head的部分
<% CountFile=Server.MapPath("counter/counter.cr") 'txt文件保存的位置Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counternum=Out.ReadLine Out.Close SET FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) if session("guest")="" thenApplication.lock counternum= counternum + 1 session("guest")=trueend ifOut.WriteLine(counternum) Application.unlock Response.Write counternum '为了在页面正确显示计数器的值，调用VBScript函数Document.write Out.Close %>
以下插入到body部分
<%picture=right("00000"&cint(counternum),5)%>总访问量: <%for i=1 to 5%><img src="images/counter/<%=mid(picture,i,1)%>.gif">'指定图片的路径<%next%>
