|
| 视 频 展 区 | |
|---|---|
| 本站首页 | 本站导航 | 联系方式 | 产品介绍 | 申请友情链接 欢迎光临个人求职站 个人求职站 版权所有 重庆卓越电脑制作维护 客户服务QQ:764630682 电话:13152609441 EMAIL:abvj2008@163com 地址:广西河池 桂ICP备07501109号 <% dim path,myFile,read,write,cntNum path=server.mappath("counter.cnt") read=1 write=2 Set myFso = Server.CreateObject("Scripting.FileSystemObject") set myFile = myFso.opentextfile(path,read) cntNum=myFile.ReadLine myFile.close cntNum=cntNum+1 set myFile = myFso.opentextfile(path,write,TRUE) myFile.write(cntNum) myFile.close set myFile=nothing set myFso=nothing %> 您是本站第 <%=cntNum%> 位访问者 |