在线用表单建立文件夹

0 q5 R  Q, ?" [4 ~0 @HTML格式的Form表单文件FOLDER.htm的内容:

% E/ d1 B0 V3 `6 i6 ]! d<form name="form1" method="post" action="folder-action.asp">
! I7 g: s' P5 _& Y  E+ kCreate a folder
<input type="text" name="name">
<input type="submit" name="Submit" value="Submit">
</form>

ASP文件FOLDER-ACTION.ASP
  g9 x" k' K+ S, j' I
! E9 G- e  _( E# a) w$ |9 P<%@ LANGUAGE = "VBScript" %>
1 A6 x3 x! p; H+ |. |0 }8 _<% Dim Name
' w; D' w& p1 f- {& JName = Request("Name")
+ A9 x9 v# {5 W' [5 wset fs=createobject("scripting.filesystemobject")
! H3 m: Z+ v+ x0 B0 P$ yMyFolder=server.mappath(""&name&"")
If NOT fs.folderexists(MyFolder) then
, |$ F5 [0 l, Q* R8 [5 y9 vfs.createfolder(MyFolder)
End If
If fs.folderexists(MyFolder) then
, h2 y4 b4 B# z8 E5 J; j%> Folder created successfully! Called
<%=MyFolder%>

9 G. g) ^$ [9 ^8 N" S7 x" I
- N( a& F+ V/ S$ @<%Else%%>
: U2 c& F: v8 N/ E. \; BThere has been an error.
<%End If
%>