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)