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()。