Una función asp que convierte rutas absolutas en rutas relativas. Los amigos que la necesiten pueden guardarla. Copie el código de código de la siguiente manera:
'=================================================
'Nombre de la función: ChkMapPath
' Función: Convertir ruta relativa a ruta absoluta
'Parámetro: strPath ---- ruta original
'Valor de retorno: ruta absoluta
'=================================================
Función ChkMapPath(ByVal strPath)
Atenuar ruta completa
strPath = Reemplazar(Reemplazar(Recortar(strPath), /, /), //, /)
Si strPath = Entonces strPath =.
Si InStr(strPath,:/) = 0 Entonces
rutacompleta = Servidor.MapPath(strPath)
Demás
strPath = Reemplazar (strPath,../,)
rutacompleta = Recortar(rutaruta)
Si Right(fullPath, 1) = / Entonces
rutacompleta = Izquierda(rutacompleta, Len(rutacompleta) - 1)
Terminar si
Terminar si
ChkMapPath = ruta completa
Función final