folder.htm

html>

head>

title>閃亮日子之在線創(chuàng)建文件夾/title>

/head>

body>

春風(fēng)精彩br>

在線創(chuàng)建文件夾/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="創(chuàng)建" 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

%> 恭喜,文件夾創(chuàng)建成功!命名為:%=MyFolder%>

%Else%%>

出錯(cuò)啦!請(qǐng)返回重試.

%End If

%>