可以在线创建文件夹吗?

来源:asp之家 时间:2009-11-01 18:07:00 

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

标签:文件夹,创建,asp
0
投稿

猜你喜欢

  • 视觉注意力—解剖设计的根源

    2010-01-22 15:12:00
  • 新 API 寻求让 JavaScript 操作本地文件

    2009-11-27 18:28:00
  • IE下,事件触发那点破烂事儿

    2009-04-27 12:31:00
  • 写了一个小巧的jquery拾色工具

    2009-12-21 14:22:00
  • 如何获取SQL Server数据库元数据的方法

    2009-01-19 14:00:00
  • 针对google Chrome的 CSS hacks

    2009-11-30 12:45:00
  • 有效LOGO设计的最重要的提示

    2010-06-09 12:05:00
  • PHP实现表单处理方法详解

    2023-05-25 07:39:18
  • 数据库的选择原则是什么?

    2010-07-14 21:05:00
  • 输入法下keyup失效的解决方案

    2007-11-01 12:57:00
  • CSS编写过程中常见的10个错误

    2008-05-29 12:49:00
  • 讲解设计应用程序时避免阻塞的八个准则

    2009-01-04 14:16:00
  • ORACLE常见错误代码的分析与解决三

    2010-07-26 13:28:00
  • 自己用的ASP分页函数

    2009-10-18 11:30:00
  • asp简单的仿图片验证码

    2008-03-12 11:54:00
  • Dreamweaver制作网页幻灯片效果

    2010-07-06 13:48:00
  • ASP程序中使用断开的数据记录集

    2007-10-17 18:51:00
  • 判断sql语句执行是否成功

    2008-07-05 12:22:00
  • 浅析MySQL数据库授权原则

    2009-12-15 09:21:00
  • [hta]一个定时重启或关闭计算机的小工具

    2007-10-17 12:02:00
  • asp之家 网络编程 m.aspxhome.com