用ASP编写计数器-ASP编程-网络编程,技术教程-E库技术学院Edu.iecool.com




E库技术学院--您的网络技术顾问！	网站首页┊素材图片库┊设计原稿┊网页模板┊网站赏析┊下载中心┊明星图库┊E库论坛

	设为首页
	加入收藏
	我要投稿

E库首页 ┊ 学院首页 ┊ 图形图象 ┊ 网页设计 ┊ 网络编程 ┊ 数据库 ┊ 服务器 ┊ 建站技术 ┊ 业界新闻 ┊ 作者专栏 ┊ 常用范文 ┊ 预留栏目

当前位置：学院首页>>网络编程教程>>ASP编程教程>>用ASP编写计数器

用ASP编写计数器

[ 来源： | 作者： | 时间：2006-8-25 22:05:37 | 浏览：人次 ]
收藏到新浪ViVi ┊ 收藏到365KEY ┊ 收藏到我摘 ┊ 双击滚屏单击停止

<%

  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编写计数器的优化方法

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

投稿作者：　信息来源：　录入时间： 2006-8-25 22:05:37
投稿信箱： web#iecool.com

设为首页 - 加入收藏 - 关于我们 - 广告服务 - 版权申明 - 友情链接 - 联系方式 - 会员投稿