asp怎么获得虚拟目录 _ASP

asp如何获得虚拟目录
如题。
dim vpath
'vpath = Request.ServerVariables("SCRIPT_NAME")
vpath ="/zh/admin/ad/admin/manage.asp"
'such as vpath ="/zh/admin/ad/admin/manage.asp"
If Instr(vpath,"/")>0 Then
response.write Instr(vpath,"/")
End If

到这里我不知道该怎么弄了。
因为有可能有的站点有虚拟目录，有的没有。如上字符串中“/zh/”是虚拟目录。
我要得到这个虚拟目录，应如何做？

------解决方案--------------------
up
------解决方案--------------------
.....没看懂你想要啥
------解决方案--------------------
我也看不懂楼主的意思，如果只是截取zh，判断里加一个split(vpath,"/")(1)，其实真的看不明白楼主问什么。
------解决方案--------------------

VBScript code

vpath = "/zh/admin/ad/admin/manage.asp" 
If Instr(vpath,"/")> 0   Then 
  response.write  split(vpath,"/")(1) 
End If

------解决方案--------------------
  不是很明白你的意思。如果是要取目录的话，网页中经常用的是：Server.MapPath()。