creatfolder.htm
\’ 表单文件.
<form name=\”form1\” method=\”post\” action=\”folder.asp\”>创建一个文件夹: <input type=\”text\” name=\”name\”><input type=\”submit\” name=\”Submit\” value=\”提交\”></form>
folder.asp<%@ LANGUAGE = \”VBScript\” %><% Dim NameName = Request(\”Name\”) set fs=createobject(\”scripting.filesystemobject\”) MyFolder=server.mappath(\”\”&name&\”\”) If NOT fs.folderexists(MyFolder) thenfs.createfolder(MyFolder)End IfIf fs.folderexists(MyFolder) then %>
恭喜,文件夹:<%=MyFolder%>创建成功!
<%Else%%>噢,出错啦!
<%End If%>