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

61, INFOMINE


链接:http://library.ucr.edu/view/infomine

注:INFOMINE 是为大学教师、学生和研究人员建立的网络学术资源虚拟图书馆。它建于1994 年,由加利福尼亚大学、威克福斯特大学、加利福尼亚州立大 学、底特律- 麦西大学等多家大学或学院的图书馆联合建立。它拥有电子期刊、电子图书、公告栏、邮件列表、图书馆在线目录、研究人员人名录,以及其他类型的 信息资源40000 多个。INFOMINE 对所有用户免费开放,但是它提供的资源站点并不都是免费的,能否免费使用,取决于用户所在图书馆是否拥有该资源的使用权。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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