<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

您是第 <% 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 %> 位来访客人！ All Rights Reserved By 林泰新型复合材料有限公司 ©2006-2007 地 址：江苏省泰州市刁铺镇许河路2号　　邮 编：225323 销售热线：13951163399　　电 话：0523-6161267　　传真：0523-6161267 网 址：http://www.cn-lintai.com　　邮 箱：lintai@shli.net