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
%>
