【图】flash和asp分页的一点心得

　　看了这个的一些帖子,学到了很多东西,现在和大家一起分享
　　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);

　　//两个按钮,用来翻页
　　bn_u.enabled = false;
　　bn_d.enabled = false;
　　if (page == null or page1) {
　　page = 1;
　　}
　　//------------------------------
　　//清除函数;
　　function myclear() {
　　for (i=1; i16; i++) {
　　ids[i-1] = 0;
　　list["lbn"+i]._visible = false;
　　list["ltitle"+i].text = "";
　　list["lauthor"+i] = "";
　　list["ltime"+i] = "";
　　}
　　}
　　//--------------------------------------
　　//--------------------------------------
　　myclear();
　　pageInfo.text = "正在读取数据...";
　　logList.ignoreWhite = true;
　　logList.load("Tree_list.asp？log_cat="+cat_id+"&page="+page);
　　//------------------------------------------------
　　//get数据函数
　　function logFunc(e) {
　　if (e) {
　　logroot = logList.firstChild;
　　logname = logroot.attributes.logname;
　　Tpage = logroot.attributes.Tpage;
　　Tnum = logroot.attributes.Tnum;
　　temp = logroot.firstChild;
　　list.ltitle1.text = Ftitle(temp.firstChild.nodeValue, 22);
　　list.lauthor1 = temp.attributes.author;
　　list.ltime1 = temp.attributes.Addtime;
　　ids[0] = temp.attributes.id;
　　i = 1;
　　list.lbn1._visible = true;
　　//循环读取节点
　　while (temp.nextSibling != null) {
　　temp = temp.nextSibling;
　　i++;
　　//如果是用别的方式显示,只需要改一下就可以了
　　ids[i-1] = temp.attributes.id;
　　list["lbn"+i]._visible = true;
　　list["ltitle"+i].text = Ftitle(temp.firstChild.nodeValue, 22);
　　list["lauthor"+i] = temp.attributes.author;
　　list["ltime"+i] = temp.attributes.Addtime;
　　}
　　pageInfo.text = logname+"共有日志"+Tnum+"篇共"+Tpage+"页当前是第"+page+"页 "+"15/页";
　　bn_u.enabled = true;
　　bn_d.enabled = true;
　　} else {
　　pageInfo.text = "当前没有日志。";
　　list.ltitle1.text = "读取数据出错，请联系管理员！";
　　}
　　}

　　//一个自定义的格式标题的函数,怕标题太长
　　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 (page1) {
　　_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 Tnum0 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 pageSize0
　　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")
　　%