AJAX分页程序（上）——电影网站分页程序

< data  ipage ="<%=iPage%>"  maxpage ="<%=maxPage%>"  pagenum ="<%=pageNum%>"  countnum ="<%=countNum%>" >

开篇语：
    咖啡做WEB程序已有三年，可是水平还是很菜，不敢同高手相比，所以也就没有写技术文章的习惯，今天心血来潮，借CSDN的平台，给自己申请了一个专门用来写技术文章的BLOG（本人还有另一个BLOG，嘻嘻），用来记录一些我曾经写过和程序，与大家一同分享，共同进步。
    咖啡我第一次写技术文章，如果有不足的地方请大家指出，好了，费话少说，马上开始我们今天的内容。

    近日，咖啡对AJAX技术有点兴趣，和同事在三的说明，现一网站的电影版块由我利用AJAX技术来完成，在做到对电影分页的时个，咖啡遇到了好多问题，经过自己一天多的努力，所以的问题迎刃而解，今天就同大家一同分享一下利用AJAX技术实现分页的功能（在做开发之前，咖啡也在网上找过一些AJAX分页技术的代码，便最终还是行不通，也只好自己来写了！）。
    对于分页功能，我准备分二部分讲，第一部分是XML的生成，第二部分是利用JS读取XML。

一、XML的生成：
　　首先对分页程序进行分析：需要返回四个数值，分别为：总页数、当前页数、每页显示数和总记录数，然后分别将这四个数，进行禄始化。代码如下： 

    dim maxPage,iPage,pageNum,countNum    // 总页数、当前页数、每页显示数、总记录数
    dim moveType            // 电影类别

    // 初始化数据    
    pageNum=10

    iPage =trim(request.QueryString("page" ))
    if iPage="" then
        iPage =1
     else
        iPage =cint (iPage)
    end if
     if iPage<1 then
        iPage =1
     end if
    
    moveType =trim(request.QueryString("type" ))
    if moveType<>"" then
        moveType ="where lb=" &  moveType
    end if

　　然后取得共有多少条记录，及总页数，代码如下：

    // 得到记录数
    set sumRs=conn.execute("select count(*) from t_movie " &  moveType)
    countNum=sumRs(0 )
    sumRs.close
    
    // 得到总页数
    maxPage=countNum pageNum
    if (countNum mod pageNum)<>0 then maxPage=maxPage+1

　　生成XML根节点及根节点的属性，其中根节点属性包括了总页数、当前页数、每页显示数和总记录数。

  <data ipage="<%=iPage%>" maxpage="<%=maxPage%>" pagenum="<%=pageNum%>" countnum="<%=countNum%>">

　　接下来是利用循环来生成所有电影节点，代码如下：

<%    // SQL语句
    m_sql="select * from t_Movie " &  moveType

    while not  moveRs.eof
        set rs=conn.execute("select classname from t_movieclass where id=" & moveRs("lb" ))
        movicclass=rs("classname" )
        rs.close    
        if movers("dj")-1=0 then
            lookteam ="免费观看"
         else
            lookteam ="VIP会员观看"
         end if
% >
     <item>
         <movieid><%=moveRs("id")%></movieid>
         <moviename><%=moveRs("mc")%></moviename>
         <tccd><%=startNum(moveRs("tccd"))%></tccd>
         <movieleng><%=moveRs("ypcd")%> 分钟</movieleng>
         <movieclass><%=movicclass%></movieclass>
         <lookteam><%=lookteam%></lookteam>
         <moviepic><%=moveRs("tpdz")%></moviepic>
     </item>
< %
    moveRs.movenext
    wend
% >

    到此XML文件生成完成，其中:
    <movieid>：表示电影ID
    <moviename>：表示电影名称
    <tccd>：表示推荐程度（分别是：1、2、3、4、5）
    <movieleng>：电影长度（单位是分钟）
    <movieclass>：电影所属类别
    <lookteam>：观看对象
    <moviepic>：电影图片