%@ Language=VBScript %><% function counts(counterfile) dim objfso,objts Application.Lock set objfso=server.CreateObject("scripting.filesystemobject") set objts=objfso.OpenTextFile(server.MapPath(counterfile),1,true) if not objts.atendofstream then counts=clng(objts.readline) end if counts=counts+1 objts.close set objts=objfso.OpenTextFile(server.MapPath(counterfile),2,true) objts.writeline(counts) objts.close Application.UnLock end function %>
|
|
公司新闻 2006年6月,泛科自动化公司总经理张培方应 RD System 公司之邀到美国伊利诺伊州的公司所在地进行会谈访问。双方签署了上海泛科自动化控制设备有限公司作为
RD System 公司在中国代理的协议。这次访问也是作为对 RD System 公司副总裁Tim Baxter 2005年对泛科公司访问 加拿大泛科技术公司经理张培方访问美国 RD System 公 加拿大泛科技术公司经理张培方访问北美的仪表公司,
|
|
||||
|
|
|
电子邮件: franktech@163.com |
沪ICP备 06010283 上次修改 2012.3.4
|