[Resolvido] local virtual de um caminho absoluto

[xanburzum 169]

Retorna uma string representando o local virtual de um caminho absoluto

 

 

string = virt_abs(caminho)

 

<%
Private Function virt_abs(byVal caminho)
	dim tmp, strRoot
	strRoot = Server.Mappath("/")
	tmp = replace( lcase( caminho), lcase( strRoot ), "" )
	tmp = replace( tmp, "\", "/" )
	virt_abs= tmp
End Function
%>

Retorna a string "/Nova pasta/arquivo.asp"

 

<% = virt_abs( server.mappath("/Nova pasta/arquivo.asp") ) %>