在线用表单建立文件夹

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

1<form action="folder-action.asp" method="post" name="form1">   
2Create a folder   
3<input name="name" type="text"/>
4<input name="Submit" type="submit" value="Submit"/>
5</form>

ASP文件FOLDER-ACTION.ASP

1@ LANGUAGE = "VBScript"

 1 Dim Name   
 2Name = Request("Name")   
 3set fs=createobject("scripting.filesystemobject")   
 4MyFolder=server.mappath(""&name&"")   
 5If NOT fs.folderexists(MyFolder) then   
 6fs.createfolder(MyFolder)   
 7End If   
 8If fs.folderexists(MyFolder) then   
 9
10``` Folder created successfully! Called

=MyFolder

1  
2

Else%

1There has been an error.

End If

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