现在时间是:
<% CountFile=Server.MapPath("txtcounter.txt") Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine Out.Close SET FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock Response.Write""&counter&"" Out.Close %>
网站信息
  • 网站名称:
  • 网站名称
  • 网站地址:
  • 请正确填写网站地址 如:http://www.baidu.com
  • 网站Logo:
  • 网站Logo格式(gif,jpg,png,bmp),没有请留空!
  • 站长QQ:
  • 站长QQ(数字0--9之间)
  • 网站介绍:
  • 请输入网站介绍(100字以内)
  • 验证码:
  • 请输入图片中的字符。注意区分大小写

Copyright ©2017    海南话学校 All Right Reserved.

Powered by LingCms 版权所有 © 2005-2017 Lingd.Net.粤ICP备16125321号 -4



.
.................在本网站购买资料可接受国际多币种的【PayPal】和中国国内通用的【微信扫一扫】付款.................
接受标记
.