Thread: Date Last Modified for ASP Pages

Here's a function to create a date last modified dynamically on your web pages

Code:

<%function lastModified()
		Dim strURL, aryURL, pagename, objRegExp
		strURL = Request.ServerVariables("SCRIPT_NAME")
		aryURL = Split(strURL, "/", -1, 1)
		pagename = aryURL(ubound(aryURL))
		
		Dim oFSO,oFile,dMod 
		Set oFSO=Server.CreateObject("Scripting.FileSystemObject") 
		'BE SURE TO CHANGE THE NAME IN THE NEXT LINE!! 
		Set oFile=oFSO.GetFile(Server.MapPath(pagename)) 
		dMod=oFile.DateLastModified
		dYear = year(dMod)
		dMonth = monthname(month(dMod + 1))
		dDay = day(dMod) 
		Set oFSO=Nothing 
		Set oFile=Nothing 
		Response.Write dMonth & " " & dDay & ", " & dYear
	end function
%>

then to use on your page, just add the following line where you want it to display

Code:

This page last modified on: <%=lastModified()%>