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

39,FreeFullText.com


链接:http://www.freefulltext.com/

注:FreeFullText.com提供对7000多种学术期刊的直接链接,这些期刊允许用户检索其网上资源的部分或者全部内容。 数据库学科:天文;化学与化工;综合;矿业;自动化;生物;环境科学;医学;物理;通讯与信息科学;能源;农业;工程技术;计算机;地质;电子;航空航天;数学;地理;材料科学等。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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