asp中将相对路径转换为绝对路径的函数代码

神马

1. 
   
2. '================================================
   
3. ' 函数名：ChkMapPath
   
4. ' 作 用：相对路径转换为绝对路径
   
5. ' 参 数：strPath ----原路径
   
6. ' 返回值：绝对路径
   
7. '================================================
   
8. Function ChkMapPath(ByVal strPath)
   
9. Dim fullPath
   
10. strPath = Replace(Replace(Trim(strPath), "/", ""), "\", "")
    
11. 
    
12. If strPath = "" Then strPath = "."
    
13. If InStr(strPath,":") = 0 Then
    
14. fullPath = Server.MapPath(strPath)
    
15. Else
    
16. strPath = Replace(strPath,"..","")
    
17. fullPath = Trim(strPath)
    
18. If Right(fullPath, 1) = "" Then
    
19. fullPath = Left(fullPath, Len(fullPath) - 1)
    
20. End If
    
21. End If
    
22. ChkMapPath = fullPath
    
23. End Function
    

复制代码