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

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

ASP: 收集整理的ASP的常用内置函数; 高手推荐的比较有用的ASP函数集合; ASP中JavaScript处理复杂表单的生成与验证; asp下tag的实现,简单介绍与部分代码; 在ASP中用组件检测当前网卡地址的代码; asp中COM组件中如何连接数据库的代码; 用ASP创建MDaemon用户的代码; ASP使用FSO读取模板的代码; ASP开发中可能遇到的错误信息中文说明大全（整理收集）; 添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]; 全面优化ASP应用程序的性能的方法; 实现ASP程序执行时间统计类的代码; ASP中利用execute实现动态包含文件的方法; asp中向文本框输出数据原样式的函数; ADODB.Stream组件Charset属性值集合; 关于ASP代码的加密的几个方法; 支持权重的无组件ASP广告显示代码; ASP下实现自动采集程序及入库的代码; asp读取远程文件并保存到本地代码; 为什么ASP中执行动态SQL总报错误信息？提示语句语法错误

技术文章搜索

关键字

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

收藏到网摘: 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