web学习吧　2006-12-16　来源:　收藏本文

<%@ Language=VBScript %>
<%
　'我写的一个遍历目录以及目录下文件的函数，
%>
<%
　　function bianli(path)
　　　　set fso=server.CreateObject("scripting.filesystemobject")　　

　　　　on error resume next
　　　　set objFolder=fso.GetFolder(path)
　　　　
　　　　set objSubFolders=objFolder.Subfolders
　　　　
　　　　for each objSubFolder in objSubFolders
　　　　　　　　　　　　
　　　　　　nowpath=path + "\" + objSubFolder.name
　　　　　　
　　　　　　Response.Write nowpath

　　　　　　set objFiles=objSubFolder.Files

　　　　　　for each objFile in objFiles
　　　　　　　　Response.Write "<br>---"
　　　　　　　　Response.Write objFile.name
　　　　　　next
　　　　　　Response.Write "<p>"
　　　　　　bianli(nowpath)'递归
　　　　　　
　　　　next
　　　　set objFolder=nothing
　　　　set objSubFolders=nothing
　　　　set fso=nothing
　　end function
%>
<%
　　bianli("d:") '遍历d:盘
%>

• ·fso的一些特殊功能
• ·不用模板，只用ASP+FSO生成静态HTML页的一
• ·利用FSO取得图像文件信息
• ·'FSO' 读出TXT文件
• ·二级域名原理以及程序
• ·FSO的强大功能
• ·用XML+FSO+JS实现服务器端文件的
• ·写入文本文件的过程函数(ASP)
• ·使用FSO把文本信息导入数据库
• ·FileSystemObject 对象
• ·用FSO获得图片文件的信息(大小，宽，高)
• ·FSO开启
• ·IE功能汇总
• ·三种禁用FSO的方法
• ·ASP常用的函数
• ·构建免受FSO组件威胁虚拟主机