现在时间是:
<% 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 %>
用户名 *
  仅限中文,英文.数字
密 码 *
  区分大小写(6-16)位
重读密码 *
  输入同上密码
E-mail *
  必填,取回密码用
QQ/MSN
  用于联系使用

选填信息

真实姓名
性 别
  请选择用户性别
生日日期
  *选填信息
地 址
验证码
看不清,换一张
 
    
已注册?我要登录
 

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

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



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