User Tip: Obtaining the Last Modified Date of an ASP Page
From Jeremy L.:
If you want to find the last modified date/time of any of your files, create a file called modified.asp and include the following code:
<%
<![CDATA[
Dim strFileName
Dim dtmLastModified
Dim dtmLastModifiedDate
Dim dtmLastModifiedTime
strFileName = Request.ServerVariables("SCRIPT_NAME")
strFileName = Replace(strFileName, "/", "\")
strFileName = Server.MapPath(strFileName)
Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystemObject.GetFile(strFileName)
dtmLastModified = objFile.DateLastModified
Set objFile = Nothing
Set objFileSystemObject = Nothing
dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1)
dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3)
Response.Write(dtmLastModifiedDate & " " & dtmLastModifiedTime)
]]>
%>
|
Then, all you have to do is include this file in any pages you want to display the lost modified date/time of that page. Remember to include it where you want to display it. For example, I might have the following page:
<![CDATA[
<HTML>
<HEAD>
<TITLE>Last Modified</TITLE>
</HEAD>
<BODY>
<P>Page last updated on: </P>
]]>
<!--#include virtual="/scripts/modified.asp"-->
<![CDATA[
</BODY>
</HTML>
</CODE>]]>
|
Happy Programming!
Attachments:
Download modified.asp in Text Format
