河源市东日纸品制造有限公司
地址:河源市新塘工业区3号 邮编:517000
电话:(0762)3261198 3262223 3261928 传真:(0762)3261398
电子邮件:dongri1992@21cn.com
<%=domain%> 一共浏览人次: <% dim visitors whichfile=server.mappath("count.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 "" next visitors=visitors+1 Set out=fs.CreateTextFile(whichfile) out.WriteLine(visitors) out.close set fs=nothing %>