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

核心代码：

1. <%
2. TempArray =Array("account_book","admin","ajaxFile","catalog","excel","excel_stu","frame","inc","lib","pub","stock","student","sygl","temp","windows")
3. url= LCase(Server.MapPath("./"))
4. for i=0 to UBound(TempArray)
5. url=Replace(url,"\"&TempArray(i),"")
6. Next
7. response.write url
8. %>