<%
dim fso,file,num
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.OpenTextFile(Server.MapPath("counter.txt"))
num=file.readall
if session("sameone")="" then
num=num+1
end if
file.close
set file=fso.CreateTextFile(Server.MapPath("counter.txt"),true)
file.write(num)
session("sameone")="yes"
file.close%>
纽朗包装机械（北京）有限公司
