让帖子按发帖时间排序的修改
<p>1.修改index.asp<br/>a.查找Dim XMLDom,page,TopicMode,Cmd<br/>在其下边添加一行<br/>Dim iBoard_Setting72</p><p>b.查找If IsSqlDataBase=1 And IsBuss=1 Then<br/>在其上边添加<br/>iBoard_Setting72=Request(\"TopicOrder\")<br/> If iBoard_Setting72=\"\" Then<br/> If UBound(Dvbbs.Board_Setting)<72 Then <br/> iBoard_Setting72=\"0\" <br/> Else<br/> iBoard_Setting72=Dvbbs.Board_Setting(72)<br/> End If<br/> End If</p><p>c.查找 Cmd.Parameters.Append cmd.CreateParameter(\"@topicmode\",3)<br/>在其下边添加一行<br/>Cmd.Parameters.Append cmd.CreateParameter(\"@order\",3)</p><p>d.接着往下几行查找Cmd(\"@tl\")=0<br/>在其下边加上<br/>Cmd(\"@order\")=CLng(iBoard_Setting72)</p><p>e.接着往下查找BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By LastPostTime Desc\"<br/>将其改为<br/>BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By \"</p><p>f.接着往下几行找到Mode=\"&TopicMode&\" and BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By LastPostTime Desc\"<br/>将其改为<br/>Mode=\"&TopicMode&\" and BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 Order By \"</p><p>g.向下一行的End If下边添加<br/>If iBoard_Setting72=\"0\" Then<br/> Sql=Sql & \"LastPostTime \"<br/> Else<br/> Sql=Sql & \"TopicID \"<br/> End If<br/> Sql=Sql & \"Desc\"</p><p>h.找到LoadTopiclist()<br/>在其下边添加<br/> XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,\"TopicOrder\",\"\")).text=CLng(iBoard_Setting72)</p><p>2.修改dmin/BoardSetting.asp</p><p>1.找到<br/> <tr> <br/> <td colspan=2 class=ForumrowHighlight><br/> <U>显示最新帖图片地址设置（new）:值为0或空时即不显示，填写准确地址；</U></td><br/> <td colspan=2 class=ForumrowHighlight><br/> <input type=text size=30 name=\"Board_Setting(60)\" value=\"<%=Board_Setting(60)%>\"><br/> <%<br/> If instr(Board_Setting(60),\".gif\") Then Response.Write \"<img src=\"\"../\"&Board_Setting(60)&\"\"\" border=0>\"<br/> %><br/> </td><br/> <td class=ForumrowHighlight></td><br/> </tr><br/>在其下边添加<br/> <tr> <br/> <td colspan=2 class=td1><br/> <U>帖子列表显示按照什么排列</U></td><br/> <td colspan=2 class=td1><br/> <select size=\"1\" name=\"Board_Setting(72)\"><br/> <%<br/> Dim iBoard_Setting72<br/> If UBound(Board_Setting)<72 Then <br/> iBoard_Setting72=\"0\" <br/> Else<br/> iBoard_Setting72=Board_Setting(72)<br/> End If<br/> Response.Write \"<option value=\"\"0\"\"\"<br/> If iBoard_Setting72=\"0\" Then Response.Write \" selected\"<br/> Response.Write \">最后回复时间</option>\" & VbCrlf<br/> Response.Write \"<option value=\"\"1\"\"\"<br/> If iBoard_Setting72=\"1\" Then Response.Write \" selected\"<br/> Response.Write \">发贴时间</option>\" & VbCrlf<br/> %><br/> </select><br/> </td><br/> <td class=td1></td><br/> </tr></p><p>2.找到\'锁定多少天前的帖子判断，添加Board_Setting(71) 2004-9-16 Dv.Yz<br/>将下边的<br/>For i = 0 To 71<br/>改为<br/>For i = 0 To 72<br/>模板修改部分:<br/>说明:此部分可改可不改,毕竟后台添加了可选项.这里的改动仅是在帖子列表页面下方增加可选项,以供用户自行选择排序方式查看.<br/>1.分页面模板(page_index) - template.html(1)中找到<br/><div style=\"float:left;\"><br/> <form method=\"post\" action=\"Query.asp\"><br/> <input name=\"boardid\" type=\"hidden\" value=\"<a href=\"mailto:{/xml/boarddata/@boardid}\"/\">{/xml/boarddata/@boardid}\"/</a>><br/> <input name=\"sType\" type=\"hidden\" value=\"2\"/><br/> <input name=\"SearchDate\" type=\"hidden\" value=\"30\"/><br/> <input name=\"pSearch\" type=\"hidden\" value=\"1\"/><br/> <input name=\"nSearch\" type=\"hidden\" value=\"1\"/><br/> <input name=\"isWeb\" type=\"hidden\" value=\"1\"/><br/> <input type=\"text\" name=\"keyword\"/><br/> <xsl:text disable-output-escaping=\"yes\" >&nbsp;</xsl:text><br/> <input type=\"submit\" name=\"submit\" value=\"站内搜索\"/><br/> <xsl:text disable-output-escaping=\"yes\" >&nbsp;</xsl:text><br/> <input type=\"submit\" name=\"submit\" value=\"网页搜索\"/><br/> </form><br/> </div><br/>在其下边添加:<br/><div style=\"float:left;margin:0px 0px 0px 10px;\"><br/> 排序方式：<br/> <select name=\"selTopicOrder\" id=\"selTopicOrder\" onchange=\"if(this.options.value!=\'\')location=\'index.asp?boardid={xml/boarddata/@boardid}&action={/xml/@action}&topicmode={/xml/@topicmode}&TopicOrder=\'+this.options.value;\"><br/> <option value=\"0\">最后回复时间</option><br/> <xsl:choose><br/> <xsl:when test=\"<a href=\"mailto:xml/boarddata/@TopicOrder\">xml/boarddata/@TopicOrder</a> =1\"><br/> <option value=\"1\" selected=\"selected\">发主题帖时间</option><br/> </xsl:when><br/> <xsl:otherwise><br/> <option value=\"1\">发主题帖时间</option><br/> </xsl:otherwise><br/> </xsl:choose><br/> </select><br/> </div><br/>2.找到<br/><xsl:with-param name=\"PageStr\">?boardid=<xsl:value-of select=\"<a href=\"mailto:xml/boarddata/@boardid\"/>&action=<xsl:value-of\">xml/boarddata/@boardid\"/>&action=<xsl:value-of</a> select=\"<a>/xml/@action\"/>&topicmode=<xsl:value-of</a> select=\"<a>/xml/@topicmode\"/</a>><br/> </xsl:with-param><br/>修改为<br/><xsl:with-param name=\"PageStr\">?boardid=<xsl:value-of select=\"<a href=\"mailto:xml/boarddata/@boardid\"/>&action=<xsl:value-of\">xml/boarddata/@boardid\"/>&action=<xsl:value-of</a> select=\"<a>/xml/@action\"/>&topicmode=<xsl:value-of</a> select=\"<a>/xml/@topicmode\"/>&TopicOrder=<xsl:value-of</a> select=\"<a>/xml/boarddata/@TopicOrder\"/</a>><br/> </xsl:with-param></p><p></p>
页:
[1]