4.2消息按主题和层次显示和处理

本论坛中的消息按主题显示，如图1，左框架中消息列在所属主题后。由于每个消息的内容都存在数据库中相应的主题消息表中，所以消息按主题显示易于实现。

在一个特定主题消息表中，消息的显示由两个字段域level和next决定。level确定消息的层次，即消息处于第几层答复，next决定消息的显示顺序。这两个字段域值的确定是本论坛消息处理和显示的关键所在，具体算法和程序实现说明如下：
    消息的显示

每个消息按其层次右缩level*2个空格。非答复的消息贴子的level值为1，每多一个答复层次，其level值在所答复的消息的level值的基础上加1。

特定主题消息表中的消息的显示顺序由next域决定。在消息表不为空时，总是从第一个记录开始显示，然后按该记录的next值相对于当前记录移动光标到新的记录处，该新的即成为当前记录。next>0，光标前移；next<0，光标后移。重复这个过程直到记录结束或当前记录的next值为0。这样，有n条消息记录，则光标只需移动最多n-1次，便可完全显示所有消息。

其程序在discuss_left.asp中实现，其引用的变量在前面程序段1中定义赋值。如下：

<%

     for i=0 to recordtotal-1       ‘for循环开始，循环次数为论坛主题数

%>  

<a name="#content<%=i%>"></a><font color="#5555aa" size="3"><%=(i+1)%>

<%=contotal( i )%></font>  &nbsp;&nbsp;<a href="#toc"><font size="2">[返回页首] </font></a>

 <br>               ‘显示论坛主题，并加以编号

<%   set rs=server.createobject("ADODB.recordset")

     rs.open "select * from "&contotal( i ),"DSN=forum;UID=user;PWD=",3,1

                    ‘以只读打开主题消息表，表名存于contotal( i )

     if not rs.eof then         ‘该表不为空继续

%>

       <!--#INCLUDE VIRTUAL="forum/message_show.inc"-->

                    ‘显示首条消息记录信息

                    ‘消息显示处理包含文件message_show.inc见程序段3

<% 

       endnext=cint(trim(rs("next")))   ‘获取首条记录的next值

       countend=1           ‘记录当前已处理消息记录数

       thiscount=rs.recordcount     ‘获取本主题消息表的记录总数

       do until ((endnext=0) or (countend=thiscount))

                ‘do until循环，直到当前记录的next=0或处理了所有记录

         thisnext=cint(trim(rs("next")))    ‘获取当前记录的next值

         rs.move thisnext,0     ‘相对于当前记录将光标移动next位

         endnext=thisnext

         countend=countend+1

%>

       <!--#INCLUDE VIRTUAL="forum/message_show.inc"-->

                    ‘显示当前消息记录信息

<%

       loop             ‘do until循环结束

    else                ‘该主题消息表记录为空

        response.write "<center><font size=2>尚无讨论提交.</font></center><p>"

     end if

     rs.close

     set rs=nothing         ‘关闭并清除rs

   next             ‘for循环结束

        %>

程序段2

 

        message_show.inc的程序如下：

<%       for nvspnum=1 to cint(rs("level"))

%>           &nbsp;&nbsp;

  <%next%>              ‘按记录的level值右缩level*2个空格

<font size="2">
<a href="contentdisplay.asp?contentdis=<%=rs("index")%>&discussarea=<%=contotal( i )%>

"target="mainFrame"><%=rs("subject")%></a>

(<%=rs("name")%><font color="#000000">,<%=rs("submitdate")%></font>)

                 ‘显示消息的标题等信息，并创建面向

                 ‘contentdisplay.asp的页面的超文本链接，链接内含有

                 ‘名为contentdis和discussarea的查询字符串变量，

                 ‘用于将该记录的索引值和所在的主题消息表名传给

                 ‘contentdisplay.asp处理，以显示消息内容

<%     thediff=datevalue(now)-datevalue(rs("submitdate"))

       if thediff<=7 then

%>

           <font color="#ff0000">new</font>

<%    

       end if               ‘如果该消息在7天内提交，其后添加new标记

%><br></font>

程序段3

 

²        消息的处理

当在论坛中发送消息或答复消息时，应用程序在数据库中相应的主题消息表中添加新记录，最重要的就是确定记录中level和next的值，并修改相关的记录的next值。

本论坛应用程序有两个文件涉及到消息的处理，即发送消息的disc_post.asp(表单信息来自于discuss_main.asp)，答复消息的disc_response.asp(表单信息来自于disc_reply.asp)。

在disc_post.asp中处理的消息，其level值肯定为1；并且将新消息记录添加到相应主题消息表的末尾，其next值肯定为0。其处理程序段如下：

<%

     subject=trim(request.form("subject"))

     discussarea=trim(request.form("selectno"))

     comments=trim(request.form("comments"))

     name=trim(request.form("name"))

     email=trim(request.form("email"))

                        ‘获得来自discuss_main.asp的表单信息

     'to create record

     on error resume next

%>

     <!--#INCLUDE VIRTUAL="forum/opendb33.inc"-->

                ‘以光标3和锁定3的方式打开主题消息表discussarea

                ‘其内容见程序段5

<%    

     truefind=true      ‘truefind用于判断是否找到next=0的记录

     if not rs.eof then     ‘主题消息表不为空继续

       rs.movefirst     ‘光标移动到首条记录

       firstindex=cint(trim(rs("index")))

                ‘记录首条记录的索引值到变量firstindex中

       rs.movelast      ‘光标移动到最后一条记录

tonext=1        ‘变量tonext用于存储表中next=0的记录到表尾的距离

findit=false        ‘findit判断是否找到next=0的记录或搜索完所有记录

       do until findit      ‘do until循环开始

           if cint(trim(rs("index")))=firstindex then

             findit=true

 end if     ‘如果已经搜索到首条记录，findit赋值为真，结束循环

           if cint(rs("next"))<>0 then
‘next不为0，则将光标继续前移

             truefind=false

             rs.moveprevious

             tonext=tonext+1

           else         ‘next=0，则找到记录

             truefind=true

             findit=true

           end if

       loop         ‘do until循环结束

       if truefind then    

‘找到next=0的记录，并将该条记录的next值赋为

                ‘tonext，这样记录的下一条显示记录即为新添加记录

         rs("next")=tonext

       end if

     else           ‘该主题消息表为空，则tonext应为0

       tonext=0    

     end if

     if truefind then       ‘找到next=0的记录，则添加新纪录

       rs.addnew

       rs("subject")=subject

       rs("submitdate")=now

       rs("content")=comments

       rs("name")=name

       rs("next")=0

       rs("level")=1

       rs("email")=email

       rs.update

     else           ‘没有找到next=0的记录，其处理在文件closedb33.inc中

%>

<!--#INCLUDE VIRTUAL="forum/closedb33.inc"-->

                ‘其内容见程序段6

程序段4

 

       opendb33.inc的程序如下：

    <%

         set cnn1=server.createobject("adodb.connection")

         cnn1.open "forum","user",""

         set rs=server.createobject("ADODB.recordset")

         rs.cursortype=3

         rs.locktype=3

         cnn1.begintrans        ‘开始事务处理

         rs.open discussarea,cnn1,,,2   ‘打开主题消息表discussarea

        %>

程序段5

    closedb33.inc的程序如下：

   <%    

   cnn1.rollbacktrans      ‘没有找到next=0的记录，撤销事务处理

          response.write "<center>对不起，本讨论区出现问题，暂时停用!</center>"

          rs.close

          set rs=nothing

          cnn1.close

          set cnn1=nothing      ‘关闭并清除rs和cnn1

          response.end          ‘页面请求结束，显示页面

      end if                ‘if truefind then判断语句结束
  if err=0 then           ‘程序运行无错，触发事务处理

          cnn1.committrans

      else

          cnn1.rollbacktrans        ‘程序运行出错，撤销事务处理

          response.write "<center>讨论提交失败!</center>"

          rs.close

          set rs=nothing

          cnn1.close

          set cnn1=nothing      ‘关闭并清除rs和cnn1

          response.end

      end if

      rs.close

      set rs=nothing

      cnn1.close

      set cnn1=nothing          ‘关闭并清除rs和cnn1

               %>

程序段6

 

在disc_response.asp中处理的消息，其level值肯定为所答复消息记录的level值加1；并且将新消息记录添加到相应主题消息表的末尾，应该将其所答复消息记录的next指向新记录，同时新纪录的next指向所答复消息记录指向的记录。其处理程序段如下：

<%

     subject=trim(request.form("subject"))

     discussarea=request.form("discussarea")

     comments=trim(request.form("comments"))

     name=trim(request.form("name"))

     email=trim(request.form("email"))

     levelreply=request.form("levelreply")+1

     indexreply=cint(trim(request.form("indexreply")))

                        ‘获得来自disc_reply.asp的表单信息

     'to create record

     on error resume next

%>

     <!--#INCLUDE VIRTUAL="forum/opendb33.inc"-->

                ‘内容见程序段5

<%    

     truefind=true

     rs.movefirst

     firstindex=cint(trim(rs("index")))

     rs.movelast

     tonext=1

     findit=false

     do until findit        ‘do until循环开始

        if cint(trim(rs("index")))=firstindex then

           findit=true

        end if

        if cint(rs("index"))<>indexreply then

                ‘未找到所答复消息记录，光标继续前移

           truefind=false

           rs.moveprevious

           tonext=tonext+1

        else            ‘找到所答复消息记录，则truefind和findit赋值为真

           truefind=true

           findit=true