% 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 %>
| |||||||||
| |||||||||||||||||||||||||||||||
|
Copyright©广西东兴市银海实业有限公司(银海大酒店) 备案序号:桂ICP备05002706号 经营许可证号:(企)4506811000243 电话:0770-7690909 传真:0770-7664748 地址:广西东兴市新华大道230号 |