<%
dim fso
dim dir
dir=session("mb")
set fso=server.createobject("scripting.filesystemobject")
if fso.FolderExists(Server.Mappath(dir))=false then'文件夹不存在
	dir="001"'默认使用001这个模板
end if
set fso=nothing
response.Redirect(dir)
%>