第1个回答 2013-04-07
<%
dim SysFileUrl
dim SysRootDir,SiteDataPath,SiteDataBakPath,StatDataPath,StatDataBakPath
dim UrlFileName
SysFileUrl=split(replace(Request.ServerVariables("URL"),"\","/"),"/")
SysRootDir = "/" '系统运行的目录,后面需加/
if ubound(SysFileUrl)-2>=1 then
dim iii
for iii=1 to (ubound(SysFileUrl)-2)
SysRootDir = SysRootDir&SysFileUrl(iii)&"/"
next
end if
SiteDataPath = SysRootDir&"Database.mdb"
%>