<% 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) & "\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) %>
|
首页回顾
|
公司简介
|
公司动态
|
业务范围
|
金税工程
|
成功案例
|
问题解答
|
联系我们
|
公 司 简 介
下 属 机 构
联 系 方 式
::
公司名称：
义乌市恒信网络工程有限公司
::
公司地址：
浙江省
浙江省义乌市通信市场6楼602室
::
联系电话：
0579-
5527318 5527218
::
图文传真：
0579-
5527918
::
总经理：
:
季 竞
::
公司邮箱：
:
ywhxnet@public.ywptt.zj.cn
::
公司网址：
:
www.hxnt.com
版权所有: 义乌市恒信网络工程有限公司
2003 Fashion
