%@ 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 %>
|
|
工业应用
高性能雷达物位计 |
智能化的SIEMENS 称重系统成功地应用在某高速公路混凝土设备中。
|
|
||||
|
|
|
电子邮件: franktech@163.com |
沪ICP备 06010283 上次修改 2012.3.4
|