电脑网络-[原创]开封论坛程序升级美化方法及功能修改[首次公开]开封论坛 - 开封小吃、开封旅游、开封人才、开封房产、开封民生、关注开封、开封情感、开封娱乐、服务开封、开封BBS

以文本方式查看主题

-  开封论坛  (http://www.izhen.cn/dv/index.asp)
--  电脑网络  (http://www.izhen.cn/dv/list.asp?boardid=18)
----  [原创]开封论坛程序升级美化方法及功能修改[首次公开]  (http://www.izhen.cn/dv/dispbbs.asp?boardid=18&id=34193)

--  作者：追梦无极限
--  发布时间：2007-07-08 22:01:22
--  [原创]开封论坛程序升级美化方法及功能修改[首次公开]

论坛走过了两年的历程，程序的升级已经历了几次，现首次公开各种美化及功能修改方法！
希望对建立论坛的朋友有所帮助，如有疑问，请QQ联系93612738，或者跟帖提出！

--  作者：追梦无极限
--  发布时间：2007-07-08 22:07:55
--

程序经历了7.0，sp1，现在是8.0，功能、结构都有某种程度的变化，希望对照自己的需要，做调整！
在帖子信息里面显示个人精华的方法
1、首先修改dispbbs.asp   找到
UserTicket,UserAvaSetting,UserIsAva,Userisbest From dv_user Where UserID IN ("& postuseridlist &")")
红色字体为添加部分
2.后台风格模板 page_dispbbs   template.html(0)
找到
<div>文章：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpost"/></div>
在下面添加
<div>精华：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userisbest"/></div>

--  作者：追梦无极限
--  发布时间：2007-07-08 22:10:42
--

在这注意一下，如果调用资料多了有时候会部分表格断线，解决方法就是
动网默认风格分页面模板(page_dispbbs)界面风格管理----template.html(0)
<xsl:when test="post/agent/@browser=\'Microsoft Internet Explorer\'">height:200px;width:97%;padding-right:0px; overflow-x: hidden;</xsl:when>
<xsl:otherwise>min-height:200px;</xsl:otherwise>
将红色部分数字望大处改!可以500px,你看着改吧!

--  作者：追梦无极限
--  发布时间：2007-07-08 22:11:48
--
双击复制当前页URL的代码
main_style，Dvbbs.mainhtml(5)
在最后一个<br>前面加入以下代码：
<script>
function copyCode(o){o.select();var js=o.createTextRange();js.execCommand("Copy");alert("复制成功！");}
document.write("<table align=center class=tableborder1 cellpadding=1 cellspacing=0><tr>");
document.write("<td width=10% nowrap class=tablebody1>本页URL地址（双击复制）：</td>");
document.write("<td class=tablebody1><textarea onfocus=this.select() style=\'width:100%;overflow-y:visible;\' ondblclick=copyCode(this) rows=1>");
document.write(self.location+"</textarea></td></tr></table>");
</script>

--  作者：追梦无极限
--  发布时间：2007-07-08 22:12:59
--

[分享]取消超版能在版面设置基本信息权限！admin_boardset.asp打开
代码是322行
\'修正超版进入分版基本设置出错 2005-6-1 Dv.Yz
If Dvbbs.Master Then就可以了！
让斑竹不能给自己加精华Admin_posting.asp
topic=rs("topic")
topicusername=rs("username")
topicuserID=rs("postuserID")
前面加一段代码
If Rs("PostUserID")=Dvbbs.UserID and Dvbbs.BoardMaster Then Dvbbs.AddErrCode(28) : Exit Sub
即可。

--  作者：追梦无极限
--  发布时间：2007-07-08 22:15:58
--

让置顶主题和一般主题贴分开显示
修改风格分页面模板(page_index)界面风格管理>>template.html(1)
找到：
<xsl:for-each select="xml/toptopic/row">
<xsl:call-template name="topic"/>
</xsl:for-each>
替换成：
<div class="list"><div class="list_a" style="padding-left:20px;width:100%;"><font color="#FF0000">〖 <strong>置顶主题帖子列表</strong> 〗</font></div></div><xsl:for-each select="xml/toptopic/row"><xsl:call-template name="topic"/></xsl:for-each><div class="list"><div class="list_a" style="padding-left:20px;width:100%;">〖 <strong>普通主题帖子列表</strong> 〗</div></div>
如果要让文字部份居中，去掉两个 text-align: left; 部分就可以了
颜色自己改

--  作者：追梦无极限
--  发布时间：2007-07-08 22:17:22
--

模板管理首页 -----------分页面模板(page_dispbbs) ------------- template.html(0)
找到：
<xsl:if test="/post/setting/@isboke=1"><a href="favlist.asp?action=boke&BoardID={/post/postinfo/@boardid}&replyID={@announceid}&ID={/post/postinfo/@topicid}" title="收录该贴到我的博客" target="_blank"><img src="{/post/setting/@picurl} bokefav.gif" border="0" align="middle" /></a> </xsl:if>
在下面添加：

<xsl:choose><xsl:when test="@isbest=\'1\'"><div style="position:absolute;width:5px; height:30px; z-index:1; margin-top: -90px; left:650px ;"><img src="images/jinghua.gif" border="0" title="开封论坛精华帖" align="absmiddle"/></div>
</xsl:when></xsl:choose>

精华图章图片自行保存！

--  作者：追梦无极限
--  发布时间：2007-07-08 22:22:47
--

不同时间段发表的帖子显示不同的NEW图片，在后台风格界面page_index-------template.html(1)找到：
<xsl:if test=""@datedifftime""> <img src=""{/xml/forum_setting/@newfalgpic}"" border=""0"" alt=""{@datedifftime}分钟前更新!"" style=""margin-top: 9px;""/></xsl:if>用以下代码替换。
<xsl:if test="@datedifftime > 0 and @datedifftime < 11">
<img src="{/xml/forum_setting/@newfalgpic}1.gif" border="0" alt="10分钟内更新" style="margin-top: 9px;"/>
</xsl:if>
<xsl:if test="@datedifftime > 10 and @datedifftime < 31">
<img src="{/xml/forum_setting/@newfalgpic}1.gif" border="0" alt="30分钟内更新" style="margin-top: 9px;"/>
</xsl:if>
<xsl:if test="@datedifftime > 30 and @datedifftime < 61">
<img src="{/xml/forum_setting/@newfalgpic}1.gif" border="0" alt="1小时内更新" style="margin-top: 9px;"/>
</xsl:if>
<xsl:if test="@datedifftime > 60 and @datedifftime < 121">
<img src="{/xml/forum_setting/@newfalgpic}1.gif" border="0" alt="2小时内更新" style="margin-top: 9px;"/>
</xsl:if>
<xsl:if test="@datedifftime > 120 and @datedifftime < 1441">
<img src="{/xml/forum_setting/@newfalgpic}1.gif" border="0" alt="1天内更新" style="margin-top: 9px;"/>
</xsl:if>
<xsl:if test="@datedifftime > 1440 and @datedifftime < 2881">
<img src="{/xml/forum_setting/@newfalgpic}2.gif" border="0" alt="2天内更新" style="margin-top: 9px;"/>
</xsl:if>
1.gif、2.gif请自行保存！

--  作者：追梦无极限
--  发布时间：2007-07-08 22:23:41
--
发贴时将内容复制以防发贴失败的完美修改
此修改为防止网站超时或者是其他的原因导致会员发送写好帖子内容却在点发表时,因发送不成功，导致内容丢失,前功尽弃。修改后,发表前内容将被同时复制到系统剪贴板,只要使用粘贴,即可找回帖子内容.具体修改办法如下:
1、快速回复的修改,打开后台风格模板总管理page_dispbbs temp(0),找到
var cookiesstr=readCookie(\'mofaface_\'+ topicid);
if (cookiesstr ==null){
createCookie(\'mofaface_\'+ topicid,MagicID,365)
DispMagicEmot(MagicID,350,500)
}
}
</script>
在</script>上面添加下面代码
function CopyBody()
{
IframeID.focus();
IframeID.document.execCommand(\'selectAll\');
IframeID.document.execCommand(\'copy\');
alert("你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容！")
}
2、然后找到
<form id="Dvform" name="Dvform" action="savepost.asp?action=sre&method=fastreply&BoardID={post/postinfo/@boardid}" onkeydown="ctlent();" onsubmit="Dvbbs_CopyData(\'Body\');" method="post">
修改为下面代码,红色为添加部分
<form id="Dvform" name="Dvform" action="savepost.asp?action=sre&method=fastreply&BoardID={post/postinfo/@boardid}" onkeydown="ctlent();" onsubmit="CopyBody(); Dvbbs_CopyData(\'Body\');" method="post">
3、主题发布的修改,打开后台风格模板总管理page_post temp(0),找到
<form name="Dvform" method="post" action="{$toaction}" onsubmit="Dvbbs_CopyData(\'Body\');return Checkpostdata();">
修改为下面代码,
<form name="Dvform" method="post" action="{$toaction}" onsubmit="CopyBody(); Dvbbs_CopyData(\'Body\');return Checkpostdata();">
4、找到
function showtitle()在上面增加
function CopyBody()
{
IframeID.focus();
IframeID.document.execCommand(\'selectAll\');
IframeID.document.execCommand(\'copy\');
alert("你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容！")
}
OK!修改完成!

--  作者：追梦无极限
--  发布时间：2007-07-08 22:25:16
--
友情连接图标紧凑的修改方法
进入页面模板(page_index)界面风格管理，在template.html(0)中查找一下代码：
<xsl:if test="count(BoardList/bbslink/link[@islogo=0]) mod 6 !=0"><br /></xsl:if>
<hr style="width:98%;"/>
<div style="padding:10px;line-height:40px;">
<xsl:for-each select="BoardList/bbslink/link[@islogo=1]">
<div style="float:left;width:16%;text-align : left;height:40px;" title="{@boardname}
{@readme}"> <a href="{@url}" target="_blank" ><img border="0" src="{@logo}" height="31" width="88" alt="{@boardname}
{@readme}" /></a></div><xsl:if test="(position() mod 6)=0 "><br /></xsl:if>
</xsl:for-each>
将其修改为：
<xsl:if test="count(BoardList/bbslink/link[@islogo=0]) mod 10 !=0"><br /></xsl:if>
<hr style="width:98%;"/>
<div style="padding:10px;line-height:33px;">
<xsl:for-each select="BoardList/bbslink/link[@islogo=1]">
<div style="float:left;width:10%;text-align : left;height:33px;" title="{@boardname}
{@readme}"> <a href="{@url}" target="_blank" ><img border="0" src="{@logo}" height="31" width="88" alt="{@boardname}
{@readme}" /></a></div>
</xsl:for-each>

--  作者：追梦无极限
--  发布时间：2007-07-08 22:28:58
--

修改方法：
用记事本打开Dv_GetCode.asp文件，把上面几行的个别数值修改为（红色为修改后的，其他的不变）：
Const nMaxSaturation = 100   \' 最大色彩饱和度
Const nBlankNoisyDotOdds = 0\' 空白处噪点率
Const nColorNoisyDotOdds = 0 \' 有色处噪点率
Const nCharCount = 4      \' 产生的字符个数
Const nPixelWidth = 20     \' 单个字符位图的宽度
Const nPixelHeight = 20       \' 单个字符位图的高度
Const nColorHue = 220      \' 显示验证码的色调(-1表示随机色调, -2表示灰度色调)
Const nAngleRandom = 0         \' 角度随机量
Const nLengthRandom = 0        \' 长度随机量(百分比)

--  作者：追梦无极限
--  发布时间：2007-07-08 22:30:44
--

上面是8.0验证码看不清楚的修改方法，忘记说标题了！
以上未加说明的，都是本站测试过正在使用的！

--  作者：追梦无极限
--  发布时间：2007-07-08 22:32:20
--
今天暂时添加这么多，以后每天逐渐增加各种插件等！

--  作者：追梦无极限
--  发布时间：2007-07-14 12:25:35
--
论坛基本设置
1.如何取消发帖时要输入验证码的问题:
进入后台--->版面(分类)添加 | 管理-->高级设置-->发贴相关--->发贴是否采用验证码---->选择不采用就OK~
2.如何取消论坛阳光广告问题:
进入后台--->基本设置---->[论坛短信设置] ----->把不要的广告关了就是,再到---->广告管理更改你要的广告内容~
3.如何修改上传文件大小:
回:后台------>用户组添加 | 管理------->上传权限设置(上传文件大小限制 )
4.新注册用户20分钟内发帖修改方法:
后台:用户组添加 | 管理----->编辑权限---->发帖权限----->新注册用户多少分钟后才能发言:---->
5.如何打开html等标签:
后台:版面(分类)添加 | 管理----->高级设置----->帖子内容显示相关--->HTML代码解析/Flash标签等好多
6.如何修改用户上传个数和大小:
后台:用户组添加 | 管理----->管理----->编辑权限--->上传权限设置
7.如何修改小字报
回:前台(后台也一样)点前面的广播就进入管理了,删除也在那里，点消息后下面有个直接删除.修改.是手动删除,说明:要修改请点公告标题就可以~
8.如何设置MAIL发送注册信息
基本设置----->发送注册信息邮件（选打开）----->邮件选项----->发送邮件组件（JMAIL）----->SMTP Server地址（smtp.163.com，看你自己的是什么） ----->邮件登录用户名（你的用户名如：123456）----->邮件登录密码
9.版权地方的修改
后台风格总管理 main_style Dvbbs.mainhtml(8) 这里定义了论坛底部的所有内容

--  作者：追梦无极限
--  发布时间：2007-07-14 12:31:21
--

删除论坛阿里巴巴广告
1、找到inc/DV_clsmain.asp，将：
If Forum_Setting(30) = "1" Then Dim Endtime Endtime = Timer() Tmp = Replace(Tmp,"{$runtime}","<br />页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒, "&SqlQueryNum&" 次数据查询<br />"& CaCheInfo) End If Tmp = Replace(Tmp,"{$runtime}","") Dim Alibaba_Ad If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then Alibaba_Ad = "网上贸易创造奇迹! <a href = ""http://china.alibaba.com"" title = ""从网民、网友时代进入“网商”时代"" target=_blank>阿里巴巴</a> <a href = ""http://www.alibaba.com"" title= ""Online Marketplace of Manufacturers & Wholesalers"" target = ""_blank"">Alibaba</a><BR><BR>" End If Tmp = Replace(Tmp,"{$powered}",Alibaba_Ad & "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a> <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & Forum_Version & "</a>") If Dvbbs.Forum_ChanSetting(3)="0" Then Tmp = Replace(Tmp,"{$alipaymsg}","<td width=""2%""></td><td align=right valign=bottom><a href=""https://www.alipay.com"" target=_blank><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=0 alt=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可*、便捷""></a></td>") Else Tmp = Replace(Tmp,"{$alipaymsg}","") End If Tmp = Replace(Tmp,"{$Footer_ads}",Forum_ads(1)) Tmp = Replace(Tmp,"{$copyright}",Forum_Copyright) Response.Write Tmp End Sub
替换为：
If Forum_Setting(30) = "1" Then Dim Endtime Endtime = Timer() Tmp = Replace(Tmp,"{$runtime}","<br />页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒, "&SqlQueryNum&" 次数据查询<br />"& CaCheInfo) End If Tmp = Replace(Tmp,"{$powered}", "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a> <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & Forum_Version & "</a>") Tmp = Replace(Tmp,"{$Footer_ads}",Forum_ads(1)) Tmp = Replace(Tmp,"{$copyright}",Forum_Copyright) Response.Write Tmp End Sub
2、在后台模板里main_style的Dvbbs.mainhtml(8)找到{$alipaymsg}，并删除

--  作者：追梦无极限
--  发布时间：2007-07-30 21:59:47
--

论坛联盟导航栏

<div class="mainbar" id="topbar_menu">
<div style="float:right;">
<div class="menudiv1"><a target="_blank" href="http://www.izhen.cn/" style="color:red">河南论坛联盟</a></div>
<div class="menudiv1"><a href="http://www.aybbs.cn/" target="_blank" style="color:blue">安阳论坛</a></div>
<div class="menudiv1"><a href="http://www.pybbs.cn/" target="_blank" style="color:blue">濮阳论坛</a></div>
<div class="menudiv1"><a href="http://bbs.0376.net/" target="_blank" style="color:blue">信阳论坛</a></div>
<div class="menudiv1"><a href="http://www.xxluntan.com/" target="_blank" style="color:blue">新乡论坛</a></div>
<div class="menudiv1"><a href="http://bbs.ly0379.com/" target="_blank" style="color:blue">洛阳论坛</a></div>
<div class="menudiv1"><a href="http://www.52yj.com/" target="_blank" style="color:blue">延津论坛</a></div>
<div class="menudiv1"><a href="http://www.fengqiu.org/bbs/" target="_blank" style="color:blue">封丘论坛</a></div>
<div class="menudiv1"><a href="http://www.hnlankao.com/" target="_blank" style="color:blue">兰考在线</a></div>
<div class="menudiv1"><a href="http://www.zzbbs.cn/" target="_blank" style="color:blue">郑州都市</a></div>
<div class="menudiv1"><a href="http://www.455000.net/bbs/" target="_blank" style="color:blue">安阳信息港</a></div>
<div class="menudiv1"><a href="http://www.aigs.cn/bbs/" target="_blank" style="color:blue">光山论坛</a></div>
<div class="menudiv1"><a href="http://www.sin78.com/" target="_blank" style="color:blue">许昌论坛</a></div>
<div class="menudiv1"><a href="http://www.nanyangbbs.com/bbs/" target="_blank" style="color:blue">南阳论坛</a></div>
<div class="menudiv1"><a href="http://www.zhoukoubbs.com/bbs/" target="_blank" style="color:blue">周口BBS</a></div>
<div class="menudiv1"><a href="http://www.jy391.com/" target="_blank" style="color:blue">济源论坛</a></div>
<div class="menudiv2"> </div>
</div>
</div>

--  作者：追梦无极限
--  发布时间：2007-07-30 22:07:58
--

首页加背景动画
然后在后台模板管理，main_style的界面风格设置里面，Dvbbs.mainhtml(2)
<body topmargin="0" leftmargin="0">
改为：
<body topmargin="0" leftmargin="0" onLoad="window.status=plus_status;">
<DIV id=Layer0
style="z-index: 0; left: 50; visibility: visible; width: 771; position: absolute; top: 50; height: 539">
<OBJECT
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5 ,0,0,0
height=639 width=739 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
<param name="_cx" value="17992">
<param name="_cy" value="9260">
<param name="FlashVars" value="-1">
<param name="Movie" value="背景地址">
<param name="Src" value="背景地址">
<param name="WMode" value="Transparent">
<param name="Play" value="-1">
<param name="Loop" value="-1">
<param name="Quality" value="High">
<param name="SAlign" value>
<<param name="Menu" value="-1">
<param name="Base" value>
<param name="AllowScriptAccess" value="always">
<param name="Scale" value="ShowAll">
<param name="DeviceFont" value="0">
<param name="EmbedMovie" value="0">
<param name="BGColor" value>
<param name="SWRemote" value>
<embed src="背景地址" quality="high" wmode="transparent" width="642" height="480" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi? P1_Prod_Version=ShockwaveFlash" ;;;;>
</OBJECT>
本站未使用过！

--  作者：追梦无极限
--  发布时间：2007-07-30 22:12:48
--

公告滚动显示修改动网默认风格分页面模板(page_index)界面风格管理
template.html(3)找到
<xsl:variable name="marquee" select="0"/>
<xsl:variable name="maxposition" select="5"/>
<xsl:variable name="show" select="1"/>
把0设为1就可以了
在tem0 sigline后</xsl:if></xsl:if>加
<tr><td><font color="#EC5C2D"><b>本站申明：</b></font><font color="#EC5C2D">本文由[<xsl:value-of select="@username"/>]原创发表，[<xsl:value-of select="@username"/>]与《开封论坛》享有相关权利；<br/>其他任何单位或者个人使用、转载或引用本文时必须征得 [<xsl:value-of select="@username"/>] 与〖开封论坛〗的同意；<br/>发贴者承担一切因本文发表而直接或间接导致的民事或刑事法律责任；<br/>本论坛的管理员和版主有权不事先通知发贴者而删除本文！ </font><br/></td></tr>
<br/><font color="#FF0000">——[开封论坛]提醒您：看帖不忘回帖，你的回复是对楼主最大的支持！</font>
<div align="center"><TR>
      <TD height="38" align="center" valign="middle"> <input type="button" name="Submit2" onClick=\'copyToClipBoard()\'
value="点击复制本文网址，发给QQ/MSN好友一起分享"> <script language="javascript">
   function copyToClipBoard(){
    var clipBoardContent="";
    clipBoardContent+=document.title;
    clipBoardContent+="\\n";
    clipBoardContent+=this.location.href;
    window.clipboardData.setData("Text",clipBoardContent);
    alert("复制成功，请粘贴到你的QQ/MSN上于您的好友一起分享");
}
</script></TD>
    </TR></div>

--  作者：追梦无极限
--  发布时间：2007-07-30 22:17:51
--

第一步：增加注册必填项目
    动网默认风格分页面模板(page_login)界面风格管理template.html(13) 找到：
<B>用户名</B>：<BR>注册用户名长度限制为{$NameLimLength}－{$NameMaxLength}字节</TD>
<TD width="60%" class=tablebody1><INPUT maxLength="{$NameMaxLength}" size=30 name=name></TD>
</TR>
{$getcode}
    在下面加入：
<TR>
<TD class=tablebody1><B>用户名倒填项</B>：<BR><font color="red">为防止暴力注册，请将你的用户名倒填一下</font><br>如“<font color="blue">开封论坛</font>”填为：“<font color="blue">坛论封开</font>”，否则无法通过注册哦！</TD>
<TD class=tablebody1>
<input type="text" name="username_che" size="30">
</TD>
</TR>
第二步：倒填检测项修改（reg.asp文件）
    用记事本打开reg.asp文件，找到：
\'防止填写QQ号码为非数字类型 2005-3-22 Dv.Yz
If Isnumeric(Request.Form("OICQ")) Then
Qq = Int(Request.Form("OICQ"))
Else
Qq = ""
End If
    在下面加入：
\'防暴力用户名倒填判断检测代码结束（联星论坛原创方法http://www.liengsing.com/bbs/）
dim username_che,rosLen,name_D,koomv_name
If Request.form("username_che")="" Then
   Response.redirect "showerr.asp?ErrCodes=<li>未来的开封论坛精英，不好意思，请您填写好用户名倒填项，否则无法注册哦！&action=OtherErr"
Else
   koomv_name=Request.form("username_che")
   rosLen=Len(koomv_name)
   do while rosLen<>0
      name_D=name_D+mid(koomv_name,rosLen,1)
         if rosLen=0 then
            exit do
         else
            rosLen=rosLen-1
         end if
   loop
   username_che=name_D
      If username_che<>username Then
         Response.redirect "showerr.asp?ErrCodes=<li>未来的开封论坛精英，你倒填的用户名没有通过系统验证，为了锻炼你的逆向思维，请继续！&action=OtherErr"
      End If
End If

--  作者：追梦无极限
--  发布时间：2007-07-30 22:28:23
--

! 在帖子内容上面加翻页
·后台 - 风格界面模板总管理 - 分页面模板(page_dispbbs) - template.html(0)
·查找 <div style="float:right;">您是本帖的第 <b><xsl:value-of select="post/postinfo/@hits"/></b> 个阅读者 </div>
·替换为
<div style="height:26px;float:right;">
<xsl:choose>
  <xsl:when test="/post/postinfo/@skin=\'0\'">
    <xsl:call-template name="PageList">
    <xsl:with-param name="Page" select="/post/postinfo/@star"/>
    <xsl:with-param name="m" select="10"/>
    <xsl:with-param name="MaxRows" select="/post/setting/@pagesize"/>
    <xsl:with-param name="CountNum" select="/post/postinfo/@child+1"/>
    <xsl:with-param name="PageStr">dispbbs.asp?boardid=<xsl:value-of select="/post/postinfo/@boardid"/>&replyid=<xsl:value-of select="/post/postinfo/@replyid"/>&id=<xsl:value-of select="/post/postinfo/@topicid"/>&page=<xsl:value-of select="/post/postinfo/@page"/>&skin=<xsl:value-of select="/post/postinfo/@skin"/></xsl:with-param>
    <xsl:with-param name="v" select="1"/>
    <xsl:with-param name="pv">Star</xsl:with-param>
    <xsl:with-param name="target"></xsl:with-param>
    <xsl:with-param name="Forum_AllTopNum" select="0"/>
    </xsl:call-template>
  </xsl:when>
  <xsl:otherwise><span id="showpagelist">
  </span>
  </xsl:otherwise>
</xsl:choose>
   <span id="showclose"> </span>
</div>
<div style="float:right;">您是本帖的第 <b><xsl:value-of select="post/postinfo/@hits"/></b> 个阅读者 </div>
! 在帖子列表上面加翻页
·演示地址：http://www.moranhs.com/index.asp?boardid=4
·后台 - 风格界面模板总管理 - 分页面模板(page_index) - template.html(1)
一、查找下面的代码 - 删除
<xsl:variable name="CountNum">
<xsl:choose>
  <xsl:when test="/xml/@topicmode != 0"><xsl:value-of select="/xml/@modecount"/></xsl:when>
  <xsl:otherwise><xsl:value-of select="/xml/boarddata/@topicnum"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
二、查找
<div class="main" style="margin-top:4px;height:28px;line-height:28px;">
·替换为
<div class="main" style="margin-top:4px;height:28px;line-height:28px;">
<xsl:variable name="CountNum">
<xsl:choose>
              <xsl:when test="/xml/@topicmode != 0"><xsl:value-of select="/xml/@modecount"/></xsl:when>
              <xsl:otherwise><xsl:value-of select="/xml/boarddata/@topicnum"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<div style="float:right;">
<xsl:call-template name="PageList">
<xsl:with-param name="Page" select="/xml/@page"/>
<xsl:with-param name="m" select="10"/>
<xsl:with-param name="MaxRows" select="/xml/forum_setting/@pagesize"/>
<xsl:with-param name="CountNum" select="$CountNum"/>
<xsl:with-param name="PageStr">?boardid=<xsl:value-of select="xml/boarddata/@boardid"/>&action=<xsl:value-of select="/xml/@action"/>&topicmode=<xsl:value-of select="/xml/@topicmode"/></xsl:with-param>
<xsl:with-param name="v" select="1"/>
<xsl:with-param name="pv">page</xsl:with-param>
<xsl:with-param name="target"></xsl:with-param>
<xsl:with-param name="Forum_AllTopNum" select="count(xml/toptopic/row)"/>
</xsl:call-template>
</div>
<div style="float:right;"></div>