Displaying Source Code(s)
|
|
UnMappath Function
--------------------------------------------------------------------------------
Description : The UnMappath function returns the virtual path of
the absolute path specfied in the required argument pathname.
<%
Private Function UnMappath(ByVal pathname)
Dim tmp, strRoot
strRoot = Server.MapPath("/")
tmp = Replace( LCase( pathname ), LCase( strRoot ), "" )
tmp = Replace( tmp, "", "/" )
UnMappath = tmp
End Function
%>
|
|
|