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

22,HighWire press


链接:http://home.highwire.org/

注:HighWire Press是提供免费全文的、全球最大的学术文献出版商之一,于1995年由美国斯坦福大学图书馆创立。目前已收录电子期刊882多种,文章总数已达282多万篇,其中超过103万篇文章可免费获得全文,这些数据仍在不断增加。收录的期刊覆盖以下学科:生命科学、医学、物理学、社会科学。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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