| |
COPYRIGHT(C)2005广州德佳条码科技版权所有
Email:peterokllp@163.com QQ:345302247
联系地址
写字楼 ：广州市天河区中山大道中35号
粤ICP备05129771号
|
<%
function counts(counterfile)
dim objfso,jbjts
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
%>
|
添加收藏
设为首页 
联系方式 
