＜%
function f_getParentPath(strThePath)
    '得到上级目录的地址
    'strThePath = Server.MapPath(".") '获取当前文件所在目录路径
    'strThePath = "D:\web\a.com\current" '不要\ 得到 D:\web\a.com\
    'response.write strThePath '最后不带\
    strParentPath = Left(strThePath, InStrRev(strThePath, "\")) '截取字符串获取上一级目录路径
    'response.write strParentPath '带\ 得到 D:\web\a.com\
    f_getParentPath = strParentPath
end function

strThePath = Server.MapPath(".") '获取当前文件所在目录路径
'strThePath = "D:\web\a.com\current"
response.write f_getParentPath(strThePath)
%＞

运行结果：

D:\web\a.com\