CFML web server directory browsing

<cfoutput>
<cfset root=expandpath("/")>
<cfparam name="dir" default="">
<cfif directoryexists(root&"/"&dir) EQ false>
    <cfheader statuscode="404" statustext="Page Not Found">
    <h1>404 Page Not Found</h1>
    <cfabort>
</cfif>
<cfdirectory action="list" name="qDir" directory="#root&dir#">
<ul><li><a href="#cgi.SCRIPT_NAME#?dir=#dir#">.</a></li>
<li><a href="#cgi.SCRIPT_NAME#?dir=#getdirectoryfrompath(replace(root&left(dir, max(1,len(dir)-1)), root, ""))#">..</a></li>
<cfloop query="qDir">
    <cfif qDir.type EQ "file">
        <li><a href="#replace(qDir.directory&"/"&qDir.name, root, "")#">#name#</a></li>
    <cfelse>
        <li><a href="#cgi.SCRIPT_NAME#?dir=#replace(qDir.directory&"/"&qDir.name, root, "")#">#name#</a></li>
    </cfif>
</cfloop>
</ul>
</cfoutput>