% 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%>
| 首页 | 公司简介 | 产品介绍 | 网上问答 | 网上定货 | 联系我们 | |
|
地址:北京大兴工业开发区广茂大街12号 电话: 010-6127 1688
传真: 010-6127 2475 |