<%
if isempty(session("connected")) then
application.lock
application("counter") = application("counter") + 1
application.unlock
end if
session("connected")=true
function gcounter( counter )
dim s, i, g
s = cstr( counter ) '先将数值转换成字符串
'逐个取字符串 s 的每个字节,然后串成 图形标记
for i = 1 to len(s)
' g = g & ""
g = g & ""
next
gcounter = g
end function
%>
天津普友机电设备制造有限公司
图形标记
for i = 1 to len(s)
' g = g & "