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

posted @ 2015-06-30 11:26  事理  阅读(747)  评论(0编辑  收藏  举报