它山之石可以攻玉

键盘上的生活
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

flash动态载入多张图片二

Posted on 2007-04-25 15:32  陈达辉  阅读(606)  评论(0编辑  收藏  举报

productshow.asp代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("adodb.recordset")
sql="select top 4 * from Product order by productid desc"
rs.open sql,conn,1,1
response.Write("&Nproduct=")
i=1
Do While not rs.eof and i<=4
Response.Write(rs("productpic")&"|")
rs.movenext
i=i+1
Loop

Response.Write("pflag1=3") 
rs.close
set rs=Nothing
%>

AS代码:

System.useCodepage=true;
var lv_img=new LoadVars();
lv_img.load("productshow.asp"); //载入文本信息文件
_global.img_array=new Array();
lv_img.onLoad=function(success){
if(success){
trace("载入成功!");
img_array=this.Nproduct.split("|");
image1.loadMovie(img_array[0]);
image2.loadMovie(img_array[1]);
image3.loadMovie(img_array[2]);
image4.loadMovie(img_array[3]);
}else{
trace("信息载入失败!");
gotoAndPlay(1);
}
}