%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
桑博科技无线掌上电脑无线网络设备解决方案
下载中心
产品使用说明书下载
掌上移动无线点菜通及餐饮管理系统软件下载
产品二次开发资料及开发工具下载
其他常用工具
|
|
版权所有:上海桑博电子科技有限公司 |
|
|
© China.Shanghai Sunbow Technology
co,. Ltd |
|
|
中国 上海Tel:021-50807785,50273226 Fax:021-50807785-807 |
|
|
|
|
|
|