一段flash和ASP分页和flash脚本
看看这篇文章，我学到了很多东西，现在和你分享。flash现在是一个显示功能，在看别人的过程中，似乎有一个很简单的方法来实现分页。基本上所有的都是通过XML传输的。使用列表组件和DataGrid可以用在这里是一个动态的文本，因为我认为大会太麻烦。用愚蠢的方式，没有办法，找不到下面的代码，在列表中{ }更好，而动态文本名，显示为15。
显示过程如下：
名称列表
停止（）；
var loglist中=新的XML（）；
无功logroot；
var页：编号；当前页
Var Tpage： / /保存数；总页面
Var Tnum：数； / /日志总数
var指定字符串； / /：日志类的名字
VaR的温度；
var I：数字；
在这里，如果程序集不太麻烦的话，我使用数组来存储相应的ID号。
新数组（15）；
要打开页面的两个按钮
bn_u.enabled = false；
bn_d.enabled = false；
如果（页或空页< 1）{
页面= 1；
}
/ / ------------------------------
清除函数；
功能myclear（）{
对于（i = 1；i < 16；i + +）{
IDS { } = 0表示；
List{LBN +i}._visible = false;
表{片名+我}文本= ；
表{lauthor+我} = ；
表{时间+我} = ；
}
}
/ / --------------------------------------
/ / --------------------------------------
Myclear（）；
pageinfo.text =读数据…；
loglist.ignorewhite =真；
loglist.load（tree_list。asplog_cat =+ +cat_id页=+页）；
/ / ------------------------------------------------
获取数据函数
功能logfunc（e）{
如果（e）{
logroot = loglist.firstchild；
登录名= logroot.attributes.logname；
tpage = logroot.attributes.tpage；
tnum = logroot.attributes.tnum；
温度= 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；
我= 1；
列表。LBN1。_visible =真；
读取循环节点
而（temp.nextsibling！= NULL）{
温度= temp.nextsibling；
++；
如果以另一种方式显示，只需要更改它。
IDS { } = temp.attributes.id I-1；
表{宽带+我}。_visible =真；
表{片名+我}。文本= ftitle（temp.firstchild.nodevalue，22）；
表{lauthor+我= temp.attributes.author }；
表{时间+我= temp.attributes.addtime }；
}
pageinfo.text =登录名+普通日志+ tnum +普通+ tpage + 页面的第一页+ +页的+15 /页；
bn_u.enabled =真；
bn_d.enabled =真；
{人}
pageinfo.text =目前没有记录。；
list.ltitle1.text =读取数据错误，请联系管理员！；
}
}
函数如果标题太长，则使用自定义格式标题。
函数的Ftitle（S、N）{
如果（长度（s）n）{
S = s.substring（0，n-1）+…；
}
返回的；
}
loglist.onload = logfunc；
/ / -------------------------------------
动作按钮
bn_up =新的对象（）；
按钮事件，页面大小大于值判断。
Bn_up.click = function (EVT) {
如果（页> 1）{
_root.page--；
GotoAndPlay（循环）；
{人}
停止（）；
}
}；
bn_d =新的对象（）；
bn_d.click =功能（EVT）{
如果（页< tpage）{
_root页+ +；
GotoAndPlay（循环）；
{人}
停止（）；
}
}；
bn_u.addeventlistener（单击
bn_d.addeventlistener（单击
循环只有一个词：
GotoAndPlay（一览表）；
简单循环
tree_list.asp：
/ /日志是我的日志表，并log_cat是分类
下面的ASP是清楚的
<
response.contenttype =文本或XML
response.cachecontrol = 不缓存
response.addheader语用
响应。过期= 0
昏暗的log_cat，页面大小tnum，tpage，log_name
页= treerequest（页面
log_cat = treerequest（log_cat
PageSize = 15
电话tree_rs
如果log_cat = 0或log_cat =
SQL =SELECT * FROM written_time DESC的日志，log_id desc
其他的
SQL =SELECT * FROM日志，在日志log_cat。cat_id = log_cat.id和cat_id = log_cat 命令
最后如果
rs.open sql，Conn，1,1
rs.pagesize = PageSize
tnum = rs.recordcount
tpage = int（tnum / PageSize * 1）* 1
如果页，则页= 1
如果Tnum <> 0然后rs.absolutepage =页
如果log_cat = 0或log_cat =
log_name ={分类}。
其他的
log_name ={{RS（cat_name）}
最后如果
以下输出XML
------------------------------------------------
response.write（）
如果rs.eof然后
关闭
其他的
做while not rs.eof和PageSize > 0
response.write（）
response.write（）
PageSize = pagesize-1
移到下一项
环
关闭
最后如果
关闭/关闭
电话tree_rsclose
电话tree_conclose
response.write（）
%>