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

96,奇迹文库


链接:http://www.lib.imut.edu.cn/mfzytj/news_detail.asp?id=25

注:奇迹文库是国内最早的中文预印本服务,创建于2003年8月,目前已形成了自然科学、工程科学与技术、人文与社会科学三大分类,基本覆盖了主要的基础学科。注册用户目前已达到11000人,共发布各种学术资料2500项。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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