<%@ Language=VBScript %>
<%Server.ScriptTimeout=50000%>
<HTML>
	<HEAD>
		<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
	</HEAD>
	<BODY>
<TABLE cellSpacing=0 cellPadding=6 width="95%" align=center border=0 ID="Table1"><TBODY><TR><TD bgColor=#f3f3f3>
<% 
Set crtfolder = Request.QueryString("crtfolder")
Set dname = Request.QueryString("dname")
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
'获取路径
path = Server.MapPath("/" & crtfolder & "/" & dname)
'生成文件夹
fso.CreateFolder (path)
Response.Redirect("ftb.imagegallery.aspx?cif="&crtfolder&"&rif="&crtfolder)

%> 

</TD></TR></TBODY></TABLE>



	</BODY>
</HTML>
