% cnt=0 s=Request.ServerVariables("path_translated") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") cName=Server.MapPath("chy.cnt") Set objCountFile = objFSO.OpenTextFile(cName,1,True) If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll) objCountFile.Close Set objCountFile=Nothing cnt=cnt+1 Set objCountFile=objFSO.CreateTextFile(cName,True) objCountFile.Write cnt objCountFile.Close Set objCountFile=Nothing %>
![]() |
| 主 页 | │ | 相关新闻 | │ | KOFOTI介绍 | │ | 展商介绍 | │ | 展馆位置 | │ | 观展申请 | │ | PIS官方网站 | │ | 支持媒体 | │ | 联系我们 |
|
|||||||||||||||