<%
Application.Lock
randomize
Application("counter") = Application("counter") +int(5*rnd)+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
%>
泰春
