如何用表单在线建立目录？

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 name
name = request("name")
set fs=createobject("scripting.filesystemobject")
myfolder=server.mappath(""&name&"")
if not fs.folderexists(myfolder) then
fs.createfolder(myfolder)
end if
if fs.folderexists(myfolder) then
%>

恭喜,文件夹:<%=myfolder%>创建成功!

<%else%%>
噢,出错啦!

<%end if
%>