<%
function gcounter(counter)
dim s,i,g
s=cstr(counter)
for i=1 to len(s)
g=g & "![](number/"&)
"
next
gcounter=g
end function
set fso=server.CreateObject ("scripting.filesystemobject")
Application.Lock
filepath=server.MapPath("number/gbook.txt")
set f=fso.OpenTextFile (filepath)
s=f.readline
Application.UnLock
If IsEmpty(Session("Connected")) Then
Application.Lock
s=s+1
const forappending=8
set f=fso.CreateTextFile(filepath)
f.writeline s
Application.UnLock
End If
Session("Connected") = True
%>
Welcome to Xinxin Garments Co., Ltd.
<% =gcounter(s) %>
