让帖子按发帖时间排序的修改

蓝雨

1.修改index.asp
a.查找Dim XMLDom,page,TopicMode,Cmd
在其下边添加一行
Dim iBoard_Setting72

b.查找If IsSqlDataBase=1 And IsBuss=1 Then
在其上边添加
iBoard_Setting72=Request(\"TopicOrder\")
If iBoard_Setting72=\"\" Then
If UBound(Dvbbs.Board_Setting)<72 Then
iBoard_Setting72=\"0\"
Else
iBoard_Setting72=Dvbbs.Board_Setting(72)
End If
End If

c.查找 Cmd.Parameters.Append cmd.CreateParameter(\"@topicmode\",3)
在其下边添加一行
Cmd.Parameters.Append cmd.CreateParameter(\"@order\",3)

d.接着往下几行查找Cmd(\"@tl\")=0
在其下边加上
Cmd(\"@order\")=CLng(iBoard_Setting72)

e.接着往下查找BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By LastPostTime Desc\"
将其改为
BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By \"

f.接着往下几行找到Mode=\"&TopicMode&\" and BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By LastPostTime Desc\"
将其改为
Mode=\"&TopicMode&\" and BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By \"

g.向下一行的End If下边添加
If iBoard_Setting72=\"0\" Then
Sql=Sql & \"LastPostTime \"
Else
Sql=Sql & \"TopicID \"
End If
Sql=Sql & \"Desc\"

h.找到LoadTopiclist()
在其下边添加
XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,\"TopicOrder\",\"\")).text=CLng(iBoard_Setting72)

2.修改dmin/BoardSetting.asp

1.找到