<%
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 | ![]() |