%@ 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 %>
|
|
供应CAI 公司600 型的系列产品有:化学发光氧化氮/氮氧化物分析仪、总碳氢分析仪、红外/氧气多组分分析仪等。
|
|
||||
|
|
|
电子邮件: franktech@163.com |
沪ICP备 06010283 上次修改 2012.3.4
|