<% Application.Lock Application("index")=Application("index")+1 Application.UnLock Sub gcounter counts=Application("index") digits=5 For i=digits-1 to 0 STEP -1 temp=Fix(counts/10^i) response.write "
" counts=counts-temp*10^i Next End Sub %>
歡迎光臨!愛鄉探索隊熱力製作
建議用 800*600 瀏覽
