asp获取虚拟目录根路径的代码

核心代码：

<%
temparray = array("account_book","admin","ajaxfile","catalog","excel","excel_stu","frame","inc","lib","pub", "stock","student","sygl","temp","windows")
url= lcase(server.mappath("./"))
for i=0 to ubound(temparray)
url=replace(url,"\"&temparray(i),"")
next
response.write url
%>