folder.htm

html>

head>

title>闪亮日子之在线创建文件夹/title>

/head>

body>

春风精彩br>

在线创建文件夹/td>

  tr>

    td height="28">form name="form1" method="post" action="creatfolder.asp">

div align="center">center>p>新建文件夹:

input  type="text" name="name" size="20" style="font-size: 12pt">

input type="submit"  name="Submit" value="创建" style="font-size: 12pt"> /p>

      /center>/div>

    /form>

    /td>

  /tr>

/center>/div>

/body>/html>

creatfolder.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

%>