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
%>