Функция asp, которая преобразует абсолютные пути в относительные. Друзья, которым она нужна, могут ее сохранить. Скопируйте код кода следующим образом:
'==============================================
'Имя функции: ChkMapPath
' Функция: преобразовать относительный путь в абсолютный путь.
'Параметр: strPath ---- исходный путь
'Возвращаемое значение: абсолютный путь
'==============================================
Функция ChkMapPath(ByVal strPath)
Тусклый полный путь
strPath = Заменить(Заменить(Trim(strPath), /, /), //, /)
Если strPath = Тогда strPath = .
Если InStr(strPath,:/) = 0 Тогда
FullPath = Server.MapPath(strPath)
Еще
strPath = Заменить(strPath,../,)
FullPath = Trim(strPath)
Если Right(fullPath, 1) = / Тогда
FullPath = Влево(fullPath, Len(fullPath) - 1)
Конец, если
Конец, если
Чкмаппас = полный путь
Конечная функция