乡土课堂

<% '锁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 & "