| ADD: No.68 Shuanggang Road, Quzhou City, Zhejiang Province, China Tel/Fax: 86-570-3865865 E-mail: sales@crrcpro.com |
Copyright © 2005-2009 CRRCpro Gasoline Engine . All Rights Reseaved.
<%whichfile=server.mappath("counter/counter.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to countlen
%>
<%response.Write("![](images/"&mid(visitors,i,1)&".gif) ")%>
<% next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
|
|
