当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 可以在线创建文件夹吗?

编程10000问
如何让用户再次访问我的网站时不需再提交相关信息?
如何用Cookie进行登录验证?
如何决定是否将登录内容保存到Cookie里?
如何在ASP中恰当地运用Cookies?
如何在Flash中处理Cookies?
怎样使用Cookie跟踪来访者?
可以在线创建文件夹吗?
如何一行行地读取文件?
如何读取文本文件的内容?
如何显示一个文本文件?
如何做一个文本书写器?
如何创建Word文件?
如何遍历目录及目录下的文件?
如何用表单在线建立目录?
如何创建一个PDF文件?
如何通过表单创建一个Word?
如何对文件进行操作?
如何对一个文件夹进行创建和删除?
如何获取文件的名称和扩展名?
如何获知并显示文件的大小?

编程10000问 中的 可以在线创建文件夹吗?


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 31 ::
收藏到网摘: n/a

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

%>