<%
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
myimage = myimage & " "
Next
GCounter = myimage
End Function
%>
您是今天本站第 <%=GCounter(Application("counter"))%> 位贵宾!
|