<% 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,ture) objts.writeline(counts) objts.close application.unlock end function %>
 主办单位:  长春市招生委员会办公室          首页   简介   科室介绍   队伍建设   政策法规  查询中心   下载中心
 

 

 

 

 

      友情链接

 

 

 

   教育网站导航

   

 

 

   驻长高校网站导航

   

 

 

   学校链接

   

 

  

   兄弟城市网站导航

   

 

 

 

  

 

 

长春市招生委员会办公室信息中心版权所有
地址: 长春经济技术开发区卫星路2726号    邮编:130033