如何製作一個防止多次重新整理計數的圖片計數器？

請問如何做一個專業的圖片計數器？

　　<％

countlong=8

    ' 定義計數器位元.

　　On Error Resume Next

    ' 忽略所有的錯誤.

　　count=server.mappath(count.txt)

　　set cou = server.createobject(scripting.filesystemobject)

　　set out=cou.opentextfile(count,1,false,false)

　　counter=out.readline

　　out.close

　　' 開啟count.txt,讀出目前計數器的值.

　　if session(in)<>in then

　　' 判斷使用者是否已進入首頁,防止使用者重新整理或再次來到此頁面時計數器再加1.

　　session(in)=in

　　set out = cou.createtextfile(count,true,false)

　　application.lock

　　counter=counter＋1

    ' 計數器加1 .

　　out.writeline(counter)

　　application.unlock

　　out.close

　　' 建立新檔案count.txt並寫入加1後計數器的值.

　　end if

　　co=cstr(counter)

    ' 把數字型變數轉換成字元型.

　　for i = 1 to countlong－len(co)

' 得到前面0圖片的個數.

　　response.write 

　　next

　  ' 完成計數器前面的0圖片的添加.

　　for i= 1 to len(co)

　　response.write 

　　next

　　' 從變數co的第i位開始讀.

％>

[1]