<% 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 %> 南京信息工程大学图书馆-最新讯息  

  OA资源                     

91,国际土木学术网


链接:http://www.ice-edu.org/

注:国际土木学术网(www.ice-edu.org)是由土木工程(中国)科学技术研究会主办的专业性权威门户网站。包含建筑工程、隧道与地下工程、道路与桥梁工程、岩土工程、市政工程、水利水电工程等领域,网站设有"政策法规"行业新闻"学术动态"工程招标"工程考察"论文资料"行业书刊""规范标准"重大工程"新技术新产品"等多种栏目。提供论文下载。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


本页被浏览次数:<%=Counts("CounterOAzy0001.txt")%>

关闭窗口

CopyRight© http://lib.nuist.edu.cn All Rights Reserved 2003

南京信息工程大学图书馆 版权所有