<%
set fileobject = server.createobject("scripting.filesystemobject")
dir = request.servervariables("script_name")
dir = strreverse(dir)
dir = mid(dir, instr(1, dir, "/"))
dir = strreverse(dir)
hitsfile = server.mappath(dir) & "\ntcount\hits.txt"
on error resume next
set instream= fileobject.opentextfile (hitsfile, 1, false )
oldhits = trim(instream.readline)
newhits = oldhits + 1
set outstream= fileobject.createtextfile (hitsfile, true)
outstream.writeline(newhits)
%>
：：：宜兴市张泽耐火材料厂有限公司：：：
欢迎光临，你是第
<%
l=len(newhits)
i = 1
for i = i to l
num = mid(newhits,i,1)
display = display & "![]()
"
next
response.write display
%>
位访客
苏icp备05017401号
