ASP编程：ASP编程进门进阶（十七）：FSO组件之文...
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，fso|编程|fso操纵完驱动器，接着就是来操纵文件夹了。个中包含：提取文件夹信息、创立文件夹、删除文件夹、复制文件夹、挪动文件夹等。上面就详细来看。1、fso.GetFolder
一看就分明，是提取文件夹了。那详细是提取哪一个文件夹呢？前面一定要跟一个文件夹的路径。提掏出来了再来显现该文件夹相干信息呢？是否是有要详细提取下往。以是，看程序：
1，getfldr.asp
<%
Setfso=CreateObject("Scripting.FileSystemObject")
Setfldr=fso.GetFolder("c:ProgramFiles")
Response.Write"父文件夹名字是："&fldr&"<br>"
Iffldr.IsRootFolder=TrueThen
Response.Write"该文件夹是一根文件夹"&"<br>"
Else
Response.Write"该文件夹不是根文件夹"&"<br>"
EndIf
Response.Write"驱动器名字是："&fldr.Drive&"<br>"
%>
起首创建FSO组件的毗连是必不成少的啦，然后Setfldr=fso.GetFolder("c:ProgramFiles")设定fldr工具被赋值，以作上面程序的援用。
fldr.IsRootFolder即为判别该文件夹是不是为一根文件夹，值为布尔值（trueorfalse）；fldr.Drive则显现该文件夹地点的驱动器号了。
2、fso.CreateFolder
上面对照让人冲动的是经由过程ASP创建文件夹了，你能够在你的权利局限内恣意地位创建恣意文件夹。
2，creatfldr.asp
<%
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("c:cnbruce")
Response.Write"文件夹名为"&fso.GetBaseName("c:cnbruce")
%>
实行程序，应当发明C盘多出了cnbruce文件夹，fso.GetBaseName则是提取文件夹名。
3、fso.DeleteFolder
经由过程ASP能够创建了文件夹，则一样能够删除文件夹。
3，delfldr.asp
<%
Setfso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:cnbruce")
Response.Write"文件夹已删除"
%>
发明刚创建的cnbruce文件夹的确已被删除。
注重，偶然必要删除文件夹，而该文件夹不存在时，会呈现程序逻辑性毛病。则应先判别文件夹的形态。
<%
dir=server.mappath("cnbruce")
Setfso=CreateObject("Scripting.FileSystemObject")
if(fso.FolderExists(dir))then
fso.DeleteFolder(dir)
response.write("cnbruce文件夹已删除")
else
fso.CreateFolder(dir)
response.write("cnbruce文件夹已创建")
endif
%>
那上面就接纳一个通用程序来天真应变下。
4，mainflr.asp
<%
SubCreateAFolder(file)
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(file)
response.write"已创建了"&file
EndSub
SubDeleteAFolder(file)
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(file)
response.write"已删除"&file
EndSub
%>
<%
subname=request.form("submit")
create=request.form("create")
del=request.form("del")
ifsubname""then
ifcreate""then
callCreateAFolder(""&create&"")
endif
ifdel""then
callDeleteAFolder(""&del&"")
endif
endif
%>
<formaction="mainflr.asp"method="post">
<inputname="create">
<inputtype="submit"value="创建"name="submit">
</form>
<hr>
<formaction="mainflr.asp"method="post">
<inputname="del">
<inputtype="submit"value="删除"name="submit">
</form>
必要注重的是：删除其实不会提醒“确认要放进接纳站”这项。这点你必要审慎处置，出格是对你的体系文件夹。
4、fso.MoveFolder
次要感化是举行文件夹的挪动，相称于剪切粘贴举措。
5，movefldr.asp
<%
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("c:cnbruce")
fso.MoveFolder"c:cnbruce","C:ProgramFiles"
%>
<ahref="C:ProgramFiles">检察cnbruce文件夹有无挪动过去</a>
格局：fso.MoveFolder"被挪动的文件夹","挪动到的文件夹"
本程序先是在C盘下创建了cnbruce文件夹，然后将其挪动到C:ProgramFiles文件夹上面。
不外一样必要注重的是你的体系文件夹不克不及乱挪动。
5、fso.CopyFolder
次要感化：将文件夹从某地位复制到另外一地位。
6，copyfldr.asp
<%
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CopyFolder"c:ProgramFilescnbruce","c:"
%>
<ahref="C:">检察cnbruce文件夹有无复制过去</a>
该程序是创建在上一movefldr.asp的实行了局基本之下去完成复制到C盘根目次下的。（话对照长-_-!）
固然，其拷贝也是将该文件夹包含内里以是子文件夹和文件一切拷贝。
</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。
页:
[1]