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

30,DLESE地球系统教育数字图书馆


链接:http://www.dlese.org/library/

注:DLESE地球系统教育数字图书馆是一个 涵盖了环境,地理,地质,海洋以及其他物理科学;空间科学与技术;教育方法和科学哲学内容的图书馆。DLESE 资源,包括教案,科学数据,可视化,交互式的计算机模型,虚拟实地考察-总之,任何网站访问教学或学习材料。在许多方面类似于在传统图书馆的馆藏数字馆藏。

 

 

 

 

 

  

南京信息工程大学图书馆

2015年6月11日


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

关闭窗口

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

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