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

79, Qspace


链接:https://qspace.library.queensu.ca/

注:Qspace是由加拿大皇后大学图书馆设立的,目的是建立一个收集、存储和发布由皇后大学的学者、教师和研究人员提供的研究、教学和学习等方面资源的创新数字机构仓储库。其文献类型包括预印本,接收但尚未发表的论文、技术报告、会议论文、教材、图片、多媒体等。项目软件是基于麻省理工的开源Dspace系统。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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