ASP在线创建文件夹>>ASP教程>>网络编程>>畅无忧设计

网站首页

手机版

注册登录

您现在的位置：畅无忧设计 >> 网络编程 >> ASP教程 >> 正文

热门文章

化境ASP无组件上传类 - upload_5xs
一个获取ACCESS数据库表名以及表名
asp将查询结果导出到excel
艾恩ASP无组件上传修改版
ASP批量导入Excel到Access或者Sql
ASP读取数据库的Flash+JS图片切换特
ASP用两级联动下拉列表来显示大类和
ASP+JS实现网页歌曲连播、点播功能
使用ASP重启服务器
asp批量替换access数据库中指定字段

没有相关文章

ASP在线创建文件夹

来源：你我一起舞更新时间：2009/5/14 17:12:49 阅读次数：
字体：[大中小] 我要投稿

folder.htm
<html>
<head>
<title>在线创建文件夹</title>
</head>
<body>
在线创建文件夹</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实现单篇文章自动分页函数

下一篇文章： asp清理站点缓存