在线用表单建立文件夹


            HTML格式的Form表单文件FOLDER.htm的内容:

<form name=&quot;form1&quot; method=&quot;post&quot; action=&quot;folder-action.asp&quot;>

Create a folder 

<input type=&quot;text&quot; name=&quot;name&quot;>

<input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Submit&quot;>

</form>

ASP文件FOLDER-ACTION.ASP

<%@ LANGUAGE = &quot;VBScript&quot; %>

<% Dim Name

Name = Request(&quot;Name&quot;) 

set fs=createobject(&quot;scripting.filesystemobject&quot;) 

MyFolder=server.mappath(&quot;&quot;&name&&quot;&quot;) 

If NOT fs.folderexists(MyFolder) then

fs.createfolder(MyFolder)

End If

If fs.folderexists(MyFolder) then 

%> Folder created successfully! Called 

<%=MyFolder%>



<%Else%%>

There has been an error.

<%End If

%>

也可以下载zip文件,在http://designbliss.com.au/asp/download.asp?file=folder.zip