在线用表单建立文件夹 |
|
HTML格式的Form表单文件FOLDER.htm的内容: <form name="form1" method="post" action="folder-action.asp"> Create a folder <input type="text" name="name"> <input type="submit" name="Submit" value="Submit"> </form> ASP文件FOLDER-ACTION.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 %> Folder created successfully! Called <%=MyFolder%> <%Else%%> There has been an error. <%End If %> 也可以下载zip文件,在http://designbliss.com.au/asp/download.asp?file=folder.zip |
