Rss & SiteMap
开封论坛 http://www.izhen.cn/dv
论坛走过了两年的历程,程序的升级已经历了几次,现首次公开各种美化及功能修改方法!
希望对建立论坛的朋友有所帮助,如有疑问,请QQ联系93612738,或者跟帖提出!
程序经历了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>
在这注意一下,如果调用资料多了有时候会部分表格断线,解决方法就是
动网默认风格分页面模板(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,你看着改吧!
[分享]取消超版能在版面设置基本信息权限!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
即可。
让置顶主题和一般主题贴分开显示
修改风格分页面模板(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; 部分就可以了
颜色自己改
模板管理首页 -----------分页面模板(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>
<!--精华图章添加结束-->
精华图章图片自行保存!
不同时间段发表的帖子显示不同的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请自行保存!
修改方法:
用记事本打开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 ' 长度随机量(百分比)
上面是8.0验证码看不清楚的修改方法,忘记说标题了!
以上未加说明的,都是本站测试过正在使用的!
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) 这里定义了 论坛底部的所有内容
删除论坛阿里巴巴广告
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},并删除
论坛联盟导航栏
<!-- 新增菜单开始 -->
<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>
<!-- 新增菜单结束 -->
首页加背景动画
然后在后台模板管理,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>
本站未使用过!
公告滚动显示修改动网默认风格分页面模板(page_index)界面风格管理
template.html(3)找到
<xsl:variable name="marquee" select="0"/><!--设置为1则移动公告-->
<xsl:variable name="maxposition" select="5"/><!--移动公告最多显示多少条-->
<xsl:variable name="show" select="1"/><!--方便不想显示公告的家伙,这里做了开关,设置为0则不显示公告-->
把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>
第一步:增加注册必填项目
动网默认风格分页面模板(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
! 在帖子内容上面加翻页
·后台 - 风格界面模板总管理 - 分页面模板(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>
Copyright ©2005-2023 [豫ICP备18042561号-1] Http://Www.izhen.CN™
联系电话:13937851927 本论坛所有发言均属个人观点,与开封论坛无关!拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论! |