'================================================ 
' 函數名：ChkMapPath 
' 作 用：相對路徑轉換為絕對路徑 
' 參 數：strPath ----原路徑 
' 返回值：絕對路徑 
'================================================ 
Function ChkMapPath(ByVal strPath) 
Dim fullPath 
strPath = Replace(Replace(Trim(strPath), "/", "/"), "//", "/") 

If strPath = "" Then strPath = "." 
If InStr(strPath,":/") = 0 Then 
fullPath = Server.MapPath(strPath) 
Else 
strPath = Replace(strPath,"../","") 
fullPath = Trim(strPath) 
If Right(fullPath, 1) = "/" Then 
fullPath = Left(fullPath, Len(fullPath) - 1) 
End If 
End If 
ChkMapPath = fullPath 
End Function