本站内容搜索:
   您的位置:素材中国>>教程 >>网络编程 >>ASP编程 >>用ASP编写计数器 提交错误报告
用ASP编写计数器
[ 来源:素材中国 | 作者:| 时间:2006-08-25 22:05:37 | 浏览:人次 ]

 
    <%
  
  dim fso,f,no,I '定义变量绝对是个好习惯
  
  Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例
  
  Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件,打开为只读.
  
  if f.AtEndOfStream then '判断这个文件是否不存在
  
  no=1
  
  else
  
  no=f.ReadLine
  
  no=no+1
  
  end if
  
  f.Close
  
  set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '准备写
  
  f.Write(no) '写入
  
  f.Close
  
  '改进标志1
  
  no=CStr(no) '整齐数字
  
  for i=1 to 5-len(no)
  
  no="0"&no
  
  next
  
  %>
  
  <font color=white size=3pt>你是第<font color=red><%=no%></font>个来客</font>
 
 
       
   您的位置:素材中国>>教程 >>网络编程 >>ASP编程 >>用ASP编写计数器
 点此在百度搜索关键字"用ASP编写计数器"  点此在GOOGLE搜索关键字"用ASP编写计数器"
热门文章:
  ·ASP进度条   ·ASP读取数据库中数据到数组的类
  ·一个简单的ASP+留言板程序   ·如何获取设置图片大小以适应大小在页面上显示
  ·实现有管理功能的ASP留言板   ·用ASP实现图片上传并存入数据库
  ·ASP中DateAdd函数用法   ·ASP程序漏洞解析及黑客入侵防范方法
  ·ASP横向读出数据,一行列出三个记录   ·ASP中几条语句运行速度的测试

  首页  素材图片  高精图库  矢量图库  网页素材  网页模板  壁纸  明星  下载  教程  字体  香车美女  QQ专题  论坛

网站介绍 | 广告业务 | 设计业务 | 免责声明 | 版权声明 | 联系我们|提交错误报告
素材中国版权所有