泉州华冠电源有限公司

您是当前第 <% file=server.mappath("counter.txt") Set files = CreateObject("Scripting.FileSystemObject") Set openfile = files.OpenTextFile(file) visitors=openfile.readline openfile.close countsize=len(visitors) for n=1 to countsize response.write "

" next If IsEmpty(Session("visitors")) Then visitors=visitors+1 Set out=files.CreateTextFile(file) out.WriteLine(visitors) out.close End If Session("visitors") = True %> 位访客，泉州华冠电源有限公司欢迎您！