用ASP编写计数器- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP编写计数器

ASP: Dom遍历XML的一个例子,结果为树状结构; [原创]如何回到先前的页面的方法多中语言; 几个经典的ASP应用; pjblog实现类似CMS的首页调用; PJblog友情链接LOGO地址失效的解决; ASP程序给上传的图片增添水印效果!; 127.0.0.1无法访问，没有权限: GetObject; PJBLOG使用技巧; ASP数据库连接方式大全; ASP辅助代码; 垃圾引用防治补丁以及发送引用修正补丁的自动安装程序; 发一个采集(小偷)用的类，ASP+缓存实现; 利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印; 后台管理登录篇-asp设计与数据库; 使用Flash DownLoad编写采集器(之突破防盗连下载音乐文件); [原创]随机增加网站点击的一个不错的方法; javascript asp教程第二课--转义字符; javascript asp教程第三课 new String() 构造器; javascript asp教程第六课-- response方法; 简单的ASP中经常用到的代码[推荐]

技术文章搜索

关键字

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 96 ::

收藏到网摘: n/a

<%

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