Contact person for page：dana@mail.nutn.edu.tw <% Dim objFSO,strFile,strMOYArray,MOYArray set objFSO = Server.CreateObject("Scripting.FileSystemObject") set strFile = objFSO.GetFile(Server.MapPath(request.servervariables("URL"))) strMOYArray = "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec" MOYArray=split(strMOYArray,",") response.write "Page last updated:"&MOYArray(Month(cdate(strFile.datelastmodified))-1)& " " & Day(cdate(strFile.datelastmodified)) & ", " & Year(cdate(strFile.datelastmodified))&"" %>
Address: 33, Sec. 2, Shu-Lin St., Tainan 700, Taiwan Tel： +886-6-260-2251 　Fax： +886-6-260-2205 ©2006, The Department of Environment and Energy All Rights Reserved