把置顶主题和普通主题分开的小插件

把置顶主题和普通主题分开的小插件
不知道什么时候，见过有人把置顶主题和普通主题分开的小插件的发了出来，支持5.X的，今天修改了一下
支持了7.X的，而且那个改法还有BUG,就是除了ShowForum.asp外，所有调用到某函数的文件的主题名称前都带有普通主题四字，十分讨厌。
这个版本修正了这个问题
作者:林灿斌

★改ShowForum.asp文件：

找到这行：i=0
在它的上边加一行：TopEnd=0

找到: <tr height="25" id="TableTitleLink" class="a1">
<td align="center" colspan="3">主题</td>
<td align="center" width="10%">作者</td>
<td align="center" width="6%">回复</td>
<td align="center" width="6%">点击</td>
<td align="center" width="25%">最后更新</td><br>
</tr>

下面加上一行上:

<tr id="TableTitleLink" class="a5">
<td colspan=7><b>置顶主题</b></td>
</tr>

★★改Setup.asp文件：

找到这段：
else
ShowPostPage=""
end if

在它的下边加一段：
<!--置顶主题和普通主题分割代码-->

if Rs("IsTop")=0 and TopEnd=0 then

response.write "<tr class=a5><td colspan=7><b>普通主题</b></td></tr>"
TopEnd=1
end if
<!--置顶主题和普通主题分割代码-->

★★★改Showbbs.asp文件：
找到类似
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
的代码
下面加上一句
TopEnd=0
★★★★改Search.asp文件：
找到类似
<td align="center" colspan="3">主题</td>
<td align="center" width="10%">作者</td>
<td align="center" width="6%">回复</td>
<td align="center" width="6%">点击</td>
<td align="center" width="25%">最后更新</td>
</tr><FORM METHOD=POST ACTION="Search.asp?menu=searchdel">
 <%
的代码
下面加上一句
TopEnd=0
★★★★★改admin_bbs.asp文件：
找到类似
 <tr id="TableTitleLink" class="a1">
  <td align="center" colspan="3">主题</td>
  <td align="center" width="10%">作者</td>
  <td align="center" width="6%">回复</td>
  <td align="center" width="6%">点击</td>
  <td align="center" width="25%">最后更新</td>
 </tr>
 <%
Rs.Open sql,Conn,1

PageSetup=38 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
的代码
下面加上一句
TopEnd=0

搞定
版权所有，禁止转载！

［此帖子已被 admin 在 2007-6-1 17:28:26 编辑过］

［此帖子已被 admin 在 2007-6-24 下午 03:27:39 编辑过］