admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

500_error Sourcefile ook goed tonen als objASPError.File volledig pad bevat

Browse Source 
svn path=/Website/trunk/; revision=33204
This commit is contained in:
Jos Groot Lipman
2017-03-21 14:56:01 +00:00
parent 0e2311176a
commit 1d8cefa94f
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
APPL/Shared/500_error.asp
View File

@@ -434,10 +434,13 @@ function ShowSourcecode(minregel, plusregel)
return "<span style='background-color:magenta'><p>Vreemd genoeg geen objASPError.File?</span>";
}
var fso = Server.CreateObject("Scripting.FileSystemObject");
var myF = fso.GetFile(Server.MapPath(objASPError.File));
var fpath = objASPError.File; // meestal is dit een relatief pad maar ik heb meegemaakt
if (fpath.indexOf(":") == -1) // (lokaal W10, na een rename van een bestand?) dat het een volledig pad was
var fpath = Server.MapPath(objASPError.File);
var myF = fso.GetFile(fpath);
var ts = new Date(myF.DateLastModified);
var result = "Source: "+objASPError.File + " (" + toISODateTimeString(ts) + ")<br>";
var myFile = fso.OpenTextFile(Server.MapPath(objASPError.File));
var myFile = fso.OpenTextFile(fpath);
var ll =0;
while (!myFile.AtEndOfStream && ll < objASPError.Line + minregel)
{