欢迎您进入本公司的网站
你是第
<%
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
%>
位客人
请用IE浏览器 分辨率800*600 16位色
如有关于本站点的问题或建议，请向m.f@bacc.com.cn发邮件。
版权所有(C) 2002 北京航空工艺地毯有限公司
上次修改时间：2002年07月12日
备案序号:京ICP备05009514号