<% 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("counter")=counter Application("counter")=Application("counter")+1 counter=Application("counter") set filestr=fs.CreateTextFile(fs_path) filestr.writeline counter filestr.close Application.UnLock strmumber=cstr(counter) for i=1 to len(strmumber) image=image & "" next image_counter=image set fs=nothing %>

此页面上的内容需要较新版本的 Adobe Flash Player。

获取 Adobe Flash Player