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

"================================================
"函数名：ChkMapPath
"作用：相对路径转换为绝对路径
"参数：strPath----原路径
"返回值：绝对路径
"================================================
FunctionChkMapPath(ByValstrPath)
DimfullPath
strPath=Replace(Replace(Trim(strPath),"/","\"),"\\","\")

IfstrPath=""ThenstrPath="."
IfInStr(strPath,":\")=0Then
fullPath=Server.MapPath(strPath)
Else
strPath=Replace(strPath,"..\","")
fullPath=Trim(strPath)
IfRight(fullPath,1)="\"Then
fullPath=Left(fullPath,Len(fullPath)-1)
EndIf
EndIf
ChkMapPath=fullPath
EndFunction