<%
countfile=server.mappath("count.txt")
set fso=createobject("Scripting.FileSystemObject")
set file=fso.opentextfile(countfile)
number=file.readline
number=number+1
set file=fso.createtextfile(countfile,true)
file.writeline(number)
file.close
%>
<%
dim length,i,imgPath
imgPath=""
Length = Len(number)
for i=1 to 6-Length
imgPath = imgPath & "![](\""counter/image/0.gif\"")
"
next
for i=1 to Length
imgPath= imgPath & "![](\""counter/image/")
"
next
Response.ContentType = "application/x-javascript"
'Response.Write ""
%>