SINOSI Group
|
SINOSI Business
|
Contact Us
中华人民共和国信息产业部-京ICP备
05010233
号
<%dim visitors countfile=server.mappath("word.txt") Set fs = CreateObject ("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(countfile) visitors=thisfile.readline thisfile.close visitors=visitors + 1 response.write "
" for i=1 to 6-len(visitors) response.write "0" next response.write visitors & "
" Set thisfile = fs.CreateTextFile(countfile) thisfile.WriteLine(visitors) thisfile.close set fs=nothing%>
