<%
if session("add")<>"done" then
session("add")="done"
dim fo
set fo=createobject("scripting.filesystemobject")
if fo.fileexists(server.mappath("total.txt"))=true then
set f=fo.opentextfile(server.mappath("total.txt"),1)
total1=cint(f.readline)
f.close
set f=fo.opentextfile(server.mappath("total.txt"),2)
f.writeline(total1+1)
f.close
else
total1=1
set f=fo.createtextfile(server.mappath("total.txt"),2)
f.writeline(2)
f.close
end if
else
set fo=createobject("scripting.filesystemobject")
set f=fo.opentextfile(server.mappath("total.txt"),1)
total1=cint(f.readline)
f.close
end if
%>
东兴市银海大酒店 中越风情
点击放大
