<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ''====================== 20070214 zhengyun========================= ''Set fs=CreateObject("Scripting.FileSystemObject") ''Set a=fs.openTextFile(server.mappath("count/count.txt")) ''count=a.readline ''application("count")=application("count")+1 Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count/count.txt")) count=a.readline count=count+1 application("count") = count set ts=fs.createtextfile(server.mappath("count/count.txt"),true) ts.writeline(count) ts.close ''================================================================ %>

30日潍坊店开业照片 30日潍坊店开业活动   “千人植树活动”的照片

	备案序号:鲁ICP备06005127号	版权2004 青岛永旺东泰商业有限公司.版权所有。