<% 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资源                     

11,DOAJ


链接:https://doaj.org/

注:DOAJ是由瑞典Lund大学图书馆与SPARC联合创建。该系统收录的均为学术性、研究性期刊,一般都是经过同行评审,或者有编辑做质量控制的期刊,具有免费、全文、高质量的特点,对学术研究有很高的参考价值。 收录主题包括:农业及食品科学、美学及建筑学、生物及生命科学、经济学、化学、地球及环境科学、一般主题、健康科学 、历史及考古学、语言及文学、法律及政治学、数学及统计学、哲学及宗教学、物理及天文学、一般科学、社会科学、工程学等17种主题。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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