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