%
dim counter
sub incrementcounter()
set fs = server.createobject("scripting.filesystemobject")
counter_file = server.mappath("counter.txt")
set txt = fs.opentextfile(counter_file)
counter = txt.readline
txt.close
counter = counter + 1
set txt = fs.createtextfile( counter_file, true )
txt.writeline(counter)
txt.close
end sub
application.lock
incrementcounter
application.unlock
function gcounter( counter )
dim s, i, g
s = cstr( counter )
for i = 1 to len(s)
g = g & "
"
next
gcounter = g
end function
c=gcounter(counter)
%>
巩义市丰远机械制造有限公司
<%= c %>