<%
function gcounter(counter)
dim s,i,g
s=cstr(counter)
for i=1 to len(s)
g=g & ""
next
gcounter=g
end function
set fso=server.CreateObject ("scripting.filesystemobject")
Application.Lock
filepath=server.MapPath("js/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
%>
Untitled Document
型材资源
［ 今日可供型材资源