页面计数器改进版，刷新页面无效

首先呢，先要做几个张图，这里用的是比较本的方法，呵呵没有用body.fix这文件,所以需要调用数字图的方法了，在这里就不多说这个了，建一个文件夹名为counter并将0-9这是个数字图放到里面，另在里面创建一个记事本hits.txt
<%
Function ShowCounter()
On Error Resume Next
dim intWidth,intLength,i,url

'****************************
'设置显示数字的位数
intWidth=7
'*****************************

url="counter"
'session("click")=0
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "/" & url &"/hits.txt"
'response.write HitsFile
'response.end
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
if session("click")=0 then
NewHits = OldHits +1
session("click")=1
else
NewHits=OldHits
end if
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
intLength=Len(NewHits)

if intLength>intWidth then
NewHits=0
end if

num=0

For i = 1 to intWidth-intLength
Display = Display & num
next

For i = 1 to intLength
num = Mid(NewHits,i,1)
Display = Display & num
Next
Response.Write Display
End Function
%>

只需将<!-- #include virtual="counter/counter.asp" -->导入到需要显示计数的页面里，并在需要显示的地方放上
<%ShowCounter()%>就可以了