看了这个的一些帖子,学到了很多东西,现在和大家一起分享 flash现在只是一个显示的功能,过程中看了一些别人的东西,觉得分页似乎有很简单的实现方式.基本上都是用xml传送的.显示用 list 组件和 datagrid 都可以,这里我用的是动态文本,因为觉得组件用的太麻烦了.所以用了蠢办法,没办法,找不到更好的~~~下面代码中的 list[..]就是动态文本的名趁，一次显示15条
//显示程序如下:
//桢名称 "list" stop(); var logList = new XML(); var logroot; var page:Number; //当前页 var Tpage:Number; //保存总页 var Tnum:Number; //总日志数 var logname:String; //日志分类名称 var temp; var i:Number;
//这里我用一个数组储存了对应的id号,如果用组件就不用这么麻烦了 var ids = new Array(15);
//一个自定义的格式标题的函数,怕标题太长 function Ftitle(s, n) { if (length(s)>n) { s = s.substring(0, n-1)+"..."; } return s; } logList.onLoad = logFunc; //------------------------------------- //按钮动作 Bn_up = new Object(); //按钮事件,判断页面大小是否超过值 Bn_up.click = function(evt) { if (page>1) { _root.page--; gotoAndPlay("cycle"); } else { stop(); } }; Bn_d = new Object(); Bn_d.click = function(evt) { if (pageTpage) { _root.page++; gotoAndPlay("cycle"); } else { stop(); } }; bn_u.addEventListener("click", Bn_up); bn_d.addEventListener("click", Bn_d);
桢"cycle"只有一个话: gotoAndPlay("list"); //形成一个简单的循环
Tree_list.asp: //log 是我的日志表 ,log_cat是分类表
下面的asp很清楚了
?xml version="1.0" encoding="gb2312"?> % Response.ContentType = "text/xml" Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = 0 dim log_cat,page,pageSize,Tnum,Tpage,log_name page=TreeRequest("page",1) log_cat=TreeRequest("log_cat",1) pageSize=15 call Tree_rs if log_cat=0 or log_cat="" then sql="select * from log order by written_time DESC,log_ID DESC" else sql="select * from log,log_cat where log.cat_id=log_cat.ID and cat_id="log_cat" order by written_time DESC,log_ID DESC" End if rs.open sql,conn,1,1 rs.PageSize=pageSize Tnum=rs.RecordCount Tpage=Int(Tnum/pageSize*-1)*-1 if page="" then page=1 if Tnum>0 then rs.AbsolutePage=page if log_cat=0 or log_cat="" then log_name="[全部分类]" else log_name="["rs("cat_name")"]" End if '以下输出xml '------------------------------------------------ response.write("Tree logname='"log_name"' Tnum='"Tnum"' Tpage='"Tpage"'>") if rs.eof then rs.close else do while not rs.eof and pageSize>0 response.write("Trees author='"rs("log_author")"' Addtime='"rs("written_time")"' id='"rs("log_ID")"'>") response.write("![CDATA["rs("log_tittle")"]]>/Trees>") pageSize=pageSize-1 rs.movenext loop rs.close End if //关闭rs call Tree_rsclose call Tree_conclose response.write("/Tree>") %>
