<%
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock
Function GCounter( counter )
Dim S, i, G
S = CStr( counter ) ' 先將數值轉成字串 S
For i = 1 to Len(S)
G = G & ""
Next
GCounter = G
End Function
%>
Shun Siang Machinery Ind. Co., Ltd.
Supplying Tinplate Steel...Reasonable prices
You are No. <%=GCounter(Application("counter"))%> VIP Visitors!