%@ 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 %>
|
|
研发和服务内容: 专业技术:
|
|
||||
|
|
电话: 021-3226 0435 6282
8142 |
电子邮件: franktech@163.com |
|