论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > Flash AS编程教程
Tag:2.0,3.0菜鸟,游戏,,cs,技巧,源码,,文本,文字,函数,音乐,随机,拖拽,asp,access,xml,mc,视频教程

FLAHS+ASP扫描文件夹展示图片,自由添加

文章类别:Flash AS编程 | 发表日期:2008-10-6 17:34:45


思路:
用ASP的FSO(这个思路是刚才一位朋友在回贴中提到的,所以我才想起要做这个东东,呵呵)对象来扫描同文件夹下的JPG图片,并输出文件名
这里用ASP输出XML格式让FLASH加载,虽然不不太喜欢XML,但大家都觉得它规范一些,就输出它吧。
先看演示地址:
http://www.flash023.cn/test/jpg/jpg.swf
我的文件夹中只放了9个图片,但无论添加还是减少都直接上传或者删除就行了,不需要去改FLASH也不需要修改ASP
费话少说,代码+注释+源文件如下(IIS环境测试才有效):
FLASH中的代码:

CODE:

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<url_array.length-1) {
  n++;
  load_func();
} else {
  trace("加载完成!");
}
}
//============MCL类===========
var _mcl:MovieClipLoader = new MovieClipLoader();
this.onLoadInit = function(_mc:MovieClip) {
_mc._txt.removeTextField();
_mc._width = 80;
_mc._height = 80;
_mc.filters = [b_filters, d_filters];
//============这里设置鼠标动作===========
_mc.onRollOver = function() {
  this.filters = null;
};
_mc.onRollOut = function() {
  this.filters = [b_filters, d_filters];
};
go_func();
};
//如果没有下面的代码,就会一个加载出错,导致后面的都不能加载,用这个可以出错时继续向下加载,源文件中我故意少了一个图片,让它出错
this.onLoadError = function(_mc:MovieClip) {
_mc.createTextField("_txt", 200, 20, 10, 60, 30);
_mc._txt.textColor = 0xff0000;
_mc._txt.text = "加载失败!";
go_func();
};
//=========加载进度显示==============
this.onLoadProgress = function(_mc:MovieClip, bytesLoaded:Number, bytesTotal:Number) {
_mc.createTextField("_txt", 200, 20, 10, 60, 30);
_mc._txt.textColor = 0xff0000;
_mc._txt.text = Math.floor((bytesLoaded/bytesTotal*10000)/100)+"%";
};
_mcl.addListener(this);
//=================load函数========
function load_func() {
this.createEmptyMovieClip("pic_mc"+n, n+100);
//如果要改成竖向加载,只需把下面的_x _y换一下就行了
this["pic_mc"+n]._y = 30+Math.floor(n/3)*100;
this["pic_mc"+n]._x = 100+n%3*100;
_mcl.loadClip(path_str+url_array[n], this["pic_mc"+n]);
}
//===========XML文件加载=========
var url_xml = new XML();
url_xml.ignoreWhite = true;
url_xml.onLoad = function(suc) {
if (suc) {
  for (var d:Number = 0; d<this.firstChild.childNodes.length; d++) {
   url_array.push(this.firstChild.childNodes[d].firstChild.nodeValue);
  }
  load_func();
} else {
  trace("XML文件加载失败!");
}
};
url_xml.load(path_str+"showjpg.asp");
ASP:

CODE:

<%@LANGUAGE="VBscript" CODEPAGE="65001"%>
<%
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 version=""1.0"" encoding=""utf-8""?>")'开始输出XML
Response.ContentType = "text/XML"
Response.Write("<path>")
For Each fileItem In allFolder '想当于FLASH中的遍历,遍历整个对像中的元素
  If lcase(right(fileItem.name,4))=".jpg" Then '如果后缀是JPG
  Response.Write("<url>"+fileItem.name+"</url>")'就把它的文件名输出为XML的一个新节点
  End If
Next
Response.Write("</path>")
Response.End()
%>

FLASH+ASP显示图片.rar

视频教程列表
文章教程搜索
 
Flash AS推荐教程
Flash AS热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058