asp 返回一个路径的目录名与父路径

'############## 返回一个路径的目录名#########################################################################
function getpath(givepath)  '返回一个路径的目录名
 dim i,num,path
 path=givepath
 for i=0 to len(path)-1
  if mid(path,len(path)-i,1)="/" or mid(path,len(path)-i,1)="" then
   exit for
  end if
 next
 getpath=trim(right(path,i))
end function
'#######################################################################################
function parentn(path)   '返回一个路径的父路径
 dim i
 for i=0 to len(path)-1
  if mid(path,len(path)-i,1)="/" or mid(path,len(path)-i,1)="" then
   exit for
  end if
 next
 parentn=left(path,len(path)-i-1)
end function
'实例使用方法

getpath(givepath) 
parentn(path)