nPath="index.asp"
nPath=server.MapPath(nPath)
nPath=left(nPath,len(nPath)-9)
if right(npath,6)="QOeditadmin\" then nPath=left(nPath,len(nPath)-6)
if right(npath,7)="upload\" then nPath=left(nPath,len(nPath)-7)

cookies_path_s=split(Request.ServerVariables("PATH_INFO"),"/")
cookies_path_d=ubound(cookies_path_s)
cookies_path="/"
for i=1 to cookies_path_d-1
if not (cookies_path_s(i)="upload" or cookies_path_s(i)="QOeditadmin") then cookies_path=cookies_path&cookies_path_s(i)&"/"
next
cookiesurl=cookies_path
dir=cookies_path
cookiename="meqoo"
hosturl="http://";&Request.ServerVariables ("SERVER_NAME")
url=hosturl&dir
特别是红字区需要解释,谢谢各位大哥啊!

nPath是index.asp的物理路径
如果 npath右边6个字符是“qqeditadmin\”（怎么可能？） 然后npath就=qqeditadmin上一级完整的物理路径
如果 npath右边7个字符是“upload\” 然后npath就=upload上一级完整的物理路径
cookie_path_s=www的运行路径被“/”分割成数组
cookie_path_d=cookie_path_s数组最大下限
cookie_path=设置虚拟根目录
循环遍历cookie_path_s数组，
如果当前值不是upload或者qqeditadmin，那么cookies_path(虚拟根目录)=cookie_path+当前数组的值+“/”

大哥真是无敌啊!终于有人解出来了
我求了快1个月