<% Application.Lock Application("counter") = Application("counter") + 1 Application.UnLock Function GCounter( counter ) Dim S, i, G S = CStr( counter ) ' 先將數值轉成字串 S ' 逐一取出字串 S 的每一個字元,然後串成 的圖形標示 For i = 1 to Len(S) G = G & "" Next GCounter = G End Function %>
台語輕音樂─播放中.... | 若欲收聽,請打開喇叭電源及音量 |
電子郵箱susilinp@ms3.hinet.net | 建議之最佳瀏覽器800x600 |