<% CounterFileName= GetCounterFilename() Set objFileSystem=CreateObject("Scripting.FileSystemObject") On Error Resume Next Set objReadtextFile = objFileSystem.OpenTextFile(CounterFileName,1,0,0) HitRate=objReadtextFile.ReadLine objReadtextFile .Close HitRate=CLng(HitRate)+1 set objWriteTextFile=objFileSystem.CreateTextFile(CounterFileName,-1,0) objWriteTextFile.Writeline Hitrate objWriteTextFile.Close %> 主页

教育部“新世纪网络课程建设工程

地理信息系统教程

进    入

编者:胡鹏、吴艳兰、李圣权、代琪


建议使用IE 5.0以上浏览器,屏幕分辨率1027×768。

Copyright© 武汉大学资源与环境科学学院万像GIS研究室

地址:中国 武汉 珞珈山      邮编:430072