<% '锁Application对象 Application.Lock '打开文件，读取数据 dim fs,filestr,counter set fs=server.CreateObject("scripting.FileSystemObject") fs_path=server.MapPath("counter.txt") set filestr=fs.OpenTextFile(fs_path) counter=filestr.readline filestr.close '更新Application Application("counter")=counter Application("counter")=Application("counter")+1 counter=Application("counter") '建立文件，将Application中的变量写回文件 set filestr=fs.CreateTextFile(fs_path) filestr.writeline counter filestr.close '解锁Application对象 Application.UnLock '显示图象化的计数器数字 strmumber=cstr(counter) for i=1 to len(strmumber) image=image & "" next image_counter=image %>

建议使用1024*768分辨率浏览




　

开馆时间   办证指南   机构设置   阅览场所指南   读者须知   服务项目

首图书目详细查询

北京历史文化科普讲座   东方文明展厅   首图健康课堂   其它讲座

概况   历史   景观   风俗   商业   文艺

数据库资源   电子书库  网上资源整合  北京记忆网站链接  计算机信息服务网络链接    共享工程网站链接

科研项目   合作协调   北京市图书馆协会

学校概况   专业介绍   教学教务   学术研究   社会培训

藏书绪论   珍藏鉴赏   数字典藏   研究出版   服务导航   相关资源

新书推荐   专题书目推荐
　
　

                                                                                © 2000-2004 Capital Library Incorporated. 版权所有2000-2004 首都图书馆