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%>