[指南]FLASH_ASP扫描文件夹展示图片

[指南]FLASH_ASP扫描文件夹展示图片 FLASH_ASP扫描文件夹展示图片 import flash.filters.BlurFilter; import flash.filters.DropShadowFilter; ////============初始化=========== var b_filters:BlurFilter = new BlurFilter(5, 5, 1); var d_filters:DropShadowFilter = new DropShadowFilter(5, 45, 0, 80, 10, 10); var n:Number = new Number(); var url_array = new Array(); //这里是设置SWF与ASP的相对路径，虽然可以在ASP中比较得出，但感觉没有必要 var path_str:String = "images/"; function go_func() { if (n <% Dim thisPath,FSO,fileItem,allFolder thisPath = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) '得到ASP文件的路径 Set FSO = createobject("scripting.filesystemobject")'创建FSO对像 Set allFolder = FSO.GetFile(thisPath).parentfolder.files ' 得到ASP所在目录的父级对像，它就包括了这个ASP和我们放的图片 Response.write("")'开始输出XML Response.ContentType = "text/XML" Response.Write("") For Each fileItem In allFolder '想当于FLASH中的遍历，遍历整个对像中的元素 If lcase(right(fileItem.name,4))=".jpg" Then '如果后缀是JPG Response.Write(""+fileItem.name+"")'就把它的文件名输出为XML的一个新节点 End If Next Response.Write("") Response.End() %>