论坛一些美化的地方

蓝雨发表于 2007-6-13 14:06:00

完美在帖子中显示个人信息、登陆次数等的修改方法 首先修改dispbbs.asp 找到 Set Rs=Dvbbs.Execute(\"Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us erEP,userCP,Userbirthday,User***,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney ,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN (\"& postuseridlist &\")\") 修改为 Set Rs=Dvbbs.Execute(\"Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us erEP,userCP,Userbirthday,User***,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney ,UserTicket,UserAvaSetting,UserIsAva,userlogins From dv_user Where UserID IN (\"& postuseridlist &\")\") 然后后台风格模板 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]/@userpost\"/></div> <div>经验：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@userep\"/></div> <div>魅力：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@usercp\"/></div> <div>现金：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@userwealth\"/></div> <div>金币：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@usermoney\"/></div> <div>点券：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@userticket\"/>点</div> <div>登陆：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@userlogins\"/></div> <div>生日：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@userbirthday\"/></div> 就ok了 首页个人信息美化修改 动网默认的在首页显示的个人信息比较凌乱，看起来一点都不爽，所以只得自己动手了。 方法如下： 动网默认风格分页面模板(page_index)界面风格管理template.html(0) 找到： <div>注册：<xsl:value-of select=\"substring-before(BoardList/userinfo/@joindate,\' \')\" /> 登录 <xsl:value-of select=\"BoardList/userinfo/@userlogins\" /> 次 等级：<xsl:value-of select=\"BoardList/userinfo/@userclass\" /></div> <div>金钱：<xsl:value-of select=\"BoardList/userinfo/@userwealth\" /> 积分：<xsl:value-of select=\"BoardList/userinfo/@userep\" /> 魅力：<xsl:value-of select=\"BoardList/userinfo/@usercp\" /></div> <div>主题：<xsl:value-of select=\"BoardList/userinfo/@usertopic\" /> 文章：<xsl:value-of select=\"BoardList/userinfo/@userpost\" /> 精华：<xsl:value-of select=\"BoardList/userinfo/@userisbest\" /> 被删：<xsl:value-of select=\"translate(BoardList/userinfo/@userdel,\'-\',\'\')\" /></div> 改为： <div style=\"float:left;width:130px;height:15px;line-height:15px;\">注册：[<xsl:value-of select=\"substring-before(BoardList/userinfo/@joindate,\' \')\" />]</div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">等级：[<xsl:value-of select=\"BoardList/userinfo/@userclass\" />]</div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">登录：[<xsl:value-of select=\"BoardList/userinfo/@userlogins\" />] 次</div> <div style=\"float:left;width:130px;height:15px;line-height:15px;\">金钱：[<xsl:value-of select=\"BoardList/userinfo/@userwealth\" />] 元</div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">积分：[<xsl:value-of select=\"BoardList/userinfo/@userep\" />] 分</div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">魅力：[<xsl:value-of select=\"BoardList/userinfo/@usercp\" />] 点</div> <div style=\"float:left;width:130px;height:15px;line-height:15px;\">主题：[<xsl:value-of select=\"BoardList/userinfo/@usertopic\" />] 篇</div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">文章：[<xsl:value-of select=\"BoardList/userinfo/@userpost\" />] 篇</div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">精华：[<xsl:value-of select=\"BoardList/userinfo/@userisbest\" />] 篇<img src=\"skins/Default/isbest.gif\" align=\"absmiddle\"/></div> <div style=\"float:left;width:100px;height:15px;line-height:15px;\">被删：[<xsl:value-of select=\"translate(BoardList/userinfo/@userdel,\'-\',\'\')\" />] 篇</div> 鼠标指向超链接变换色彩的修改方法第一步 打开const.asp找到  上面插入一行： 第二步 新建记事本文件，把以下代码拷入，并重新命名记事本文件为：click_js.asp代码如下：<script language=\"javascript\"> var rate = 20; var obj; var act = 0; var elmH = 0; var elmS = 128; var elmV = 255; var clrOrg; var TimerID; if (navigator.appName.indexOf(\"Microsoft\",0) != -1 && parseInt(navigator.appVersion) >= 4) { Browser = true; } else { Browser = false; } if (Browser) { document.onmouseover = doRainbowAnchor; document.onmouseout = stopRainbowAnchor; } function doRainbow() { if (Browser && act != 1) { act = 1; obj = event.srcElement; clrOrg = obj.style.color; TimerID = setInterval(\"ChangeColor()\",100); } } function stopRainbow() { if (Browser && act != 0) { obj.style.color = clrOrg; clearInterval(TimerID); act = 0; } } function doRainbowAnchor() { if (Browser && act != 1) { obj = event.srcElement; while (obj.tagName != \'A\' && obj.tagName != \'BODY\') { obj = obj.parentElement; if (obj.tagName == \'A\' || obj.tagName == \'BODY\') break; } if (obj.tagName == \'A\' && obj.href != \'\') { act = 1; clrOrg = obj.style.color; TimerID = setInterval(\"ChangeColor()\",100); } } } function stopRainbowAnchor() { if (Browser && act != 0) { if (obj.tagName == \'A\') { obj.style.color = clrOrg; clearInterval(TimerID); act = 0; } } } function ChangeColor() { obj.style.color = makeColor(); } function makeColor() { if (elmS == 0) { elmR = elmV; elmG = elmV; elmB = elmV; } else { t1 = elmV; t2 = (255 - elmS) * elmV / 255; t3 = elmH % 60; t3 = (t1 - t2) * t3 / 60; if (elmH < 60) { elmR = t1; elmB = t2; elmG = t2 + t3; } else if (elmH < 120) { elmG = t1; elmB = t2; elmR = t1 - t3; } else if (elmH < 180) { elmG = t1; elmR = t2; elmB = t2 + t3; } else if (elmH < 240) { elmB = t1; elmR = t2; elmG = t1 - t3; } else if (elmH < 300) { elmB = t1; elmG = t2; elmR = t2 + t3; } else if (elmH < 360) { elmR = t1; elmG = t2; elmB = t1 - t3; } else { elmR = 0; elmG = 0; elmB = 0; } } elmR = Math.floor(elmR); elmG = Math.floor(elmG); elmB = Math.floor(elmB); clrRGB = \'#\' + elmR.toString(16) + elmG.toString(16) + elmB.toString(16); elmH = elmH + rate; if (elmH >= 360) elmH = 0; return clrRGB; } </script>把签名框起来在后台动网默认风格分页面模板(page_dispbbs)界面风格管理template.html(0)找到</div><xsl:if test=\"/post/userlist/user[@userid=$userid]/@usersign !=\'\' and @signflag =1\"> <div style=\"width:85%;overflow-x: hidden;\" id=\"sigline_{position()}\"> <img src=\"{/post/setting/@picurl}sigline.gif\" /> <xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@usersign\" disable-output-escaping=\"yes\"/> </div> 改为 </div> <xsl:if test=\"/post/userlist/user[@userid=$userid]/@usersign !=\'\' and @signflag =1\"> <div style=\"width:100%;overflow-x: hidden;\"> <fieldset style=\"padding: 10px;\"><legend>这是<xsl:value-of select=\"@username\"/>的签名，帅吧!</legend> <xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@usersign\" disable-output-escaping=\"yes\"/></fieldset> </div> 红色数是框的宽度。注册时将“填写详细资料”默认为打开在：动网默认风格分页面模板(page_login)界面风格管理template.html(13) 找到： <table cellpadding=3 cellspacing=1 align=center class=tableborder1 id=adv style=\"DISPLAY: none\" ><TR align=middle><Th colSpan=2 height=24 align=left>填写详细资料</TH></TR> 将色的代码删除掉即可。实现版主等级和发贴等级分离 版主不管发多少贴，等级总是版主，是不是有点乏味？此修改的目的就是让版主以上等级的用户的等级称号按照发贴数对应注册会员组的等级，但是不影响版主的权限。 修改方法： 1、修改savepost.asp。找到 If Not (Rs.Eof And Rs.Bof) Then If Rs(2)<>3 Then \'用户等级不按照文章升级，用户为系统或特殊或多属性组 UserClass=Rs(3) TitlePic=Rs(4) FoundGrade=True End If End If 修改为 If Not (Rs.Eof And Rs.Bof) Then If Rs(2)<>3 Then \'用户等级不按照文章升级，用户为系统或特殊或多属性组 \'UserClass=Rs(3) \'TitlePic=Rs(4) FoundGrade=True End If End If If FoundGrade Then \'如果属于系统或特殊或多属性组,则只更新UserClass和TitlePic而不更新GroupID Set Rs=Dvbbs.Execute(\"Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<=\"&UserPost&\" Order By MinArticle Desc,UserGroupID\") If Not (Rs.Eof And Rs.Bof) Then UserClass=Rs(0) TitlePic=Rs(1) \'GroupID=Rs(2) \'FoundGrade=True End If End If \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 2、修改login.asp。找到 If Not (rsUser.Eof And rsUser.Bof) Then If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then \'用户等级不按照文章升级，用户为系统或特殊或多属性组 \'UserClass=rsUser(3) \'TitlePic=rsUser(4) FoundGrade=True End If End If 修改为 If Not (rsUser.Eof And rsUser.Bof) Then If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then \'用户等级不按照文章升级，用户为系统或特殊或多属性组 \'UserClass=rsUser(3) \'TitlePic=rsUser(4) FoundGrade=True End If End If If FoundGrade Then \'如果属于系统或特殊或多属性组,则只更新UserClass和TitlePic而不更新GroupID Set rsUser=Dvbbs.Execute(\"Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<=\"&Article&\" Order By MinArticle Desc,UserGroupID\") If Not (rsUser.Eof And rsUser.Bof) Then UserClass=rsUser(0) TitlePic=rsUser(1) \'GroupID=rsUser(2) \'FoundGrade=True End If End If \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 3、按照上面的修改以后，当版主重登录的时候，等级称号和图片就开始按照发贴数变化了。但是在帖子用户信息里面，无法知道是不是版主，所以要修改模板page_dipbbs_html(0)。找到 <div>等级：<xsl:value-of select=\"/post/userlist/user[@userid=$userid]/@userclass\"/></div> 在前面加上： <xsl:if test=\"/post/userlist/user[@userid=$userid]/@usergroupid = \'3\'\"><div>职务：论坛版主</div></xsl:if> <xsl:if test=\"/post/userlist/user[@userid=$userid]/@usergroupid = \'2\'\"><div>职务：总版主</div></xsl:if> <xsl:if test=\"/post/userlist/user[@userid=$userid]/@usergroupid = \'1\'\"><div>职务：管理员</div></xsl:if> 修改完毕，如果你的论坛还有其它的非注册用户组的会员，参照修改3添加相应的区分。 贴子美化修改for　DVBBS7.1SP1 默认风格分页面模板(page_dispbbs)界面风格管理template.html(0) <FIELDSET style=\"padding: 10px;\"><LEGEND> <div style=\"line-height:22px;\"><div style=\"float:left;\"><img src=\"{/post/setting/@picurl}topicface/{@expression}\" alt=\"发贴心情\" /></div><xsl:value-of select=\"@topic\" disable-output-escaping=\"yes\"/></div></LEGEND> <xsl:if test=\"@parentid = 0\"> <xsl:if test=\"$mofaface !=\'\' and $mofaface !=\'0\'\"><div style=\"float:right;margin-right:20px;\"><a href=\"javascript:DispMagicEmot({$mofaface},350,500)\"><img src=\"dv_plus/tools/magicface/gif/{$mofaface}.gif\" border=\"0\" alt=\"\"/> 魔法表情 点击重放</a></div> <script type=\"text/javascript\" language=\"javascript\"> LoadMagicEmot(<xsl:value-of select=\"$mofaface\" />,<xsl:value-of select=\"/post/postinfo/@topicid\"/>); </script> </xsl:if> </xsl:if> <div style=\"{$bodystyle}margin-top:10px;word-wrap : break-word ;word-break : break-all ;\" onload=\"this.style.overflowX=\'auto\';\"> <xsl:choose> <xsl:when test=\"@parentid =0 and /post/postinfo/@getmoneytype=3\"><xsl:call-template name=\"checkgetmoney\" /></xsl:when> <xsl:otherwise><xsl:value-of select=\"@body\" disable-output-escaping=\"yes\"/></xsl:otherwise> </xsl:choose> </div></FIELDSET> 加强检查注册昵称，防止全数字及简单重复ID注册在Reg.asp第180行左右找到代码： If Dvbbs.forum_setting(78)=\"1\" Then 前面加入以下几行代码： \'＝＝＝加强检查注册昵称代码＝＝ If IsNumeric(username) then ErrCodes=ErrCodes+\"<li>不能使用纯数字ID进行注册，谢谢合作！\" End If For I=1 to Len(username) If left(Username,1)<>mid(Username,i,1) or asc(Left(Username,1))<0 Then I=0:Exit For Next If I>0 Then ErrCodes=ErrCodes+\"<li>昵称不能全部使用重复字符！\" End If \'＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 如果想在检测用户名称的时候就通知用户的话，请在第627左右找到代码： If ErrCodes<>\"\" Then Showerr() 再在前面插入这段检测的代码即可。 如何去除帖子后面的符合XHML规范的字样 打开Dv_ubbcode.asp 文件第十行左右可以看到： Rem 是否让管理员看到是贴子是否符合XHTML格式 Const showisxhtml=1 设置为0 ， 动网论坛首页去掉一搜、通行证的代码－－适合新手和懒人 <script language=\"JavaScript\"> function replaceText(){ var testStr=window.document.body.innerHTML testStr=testStr.replace(/(src=\\\"http:\\/\\/server.dvbbs.net\\/dvbbs\\/yisou.gif\\\")/g,\"style=DISPLAY:none\"); testStr=testStr.replace(/(name=keyword)/g,\"type=hidden\"); testStr=testStr.replace(/(type=submit value=搜一搜)/g,\"type=hidden\"); testStr=testStr.replace(/(name=passport)/g,\"type=hidden\"); testStr=testStr.replace(/(type=submit value=论坛通行证登录)/g,\"type=hidden\"); testStr=testStr.replace(/(通行证)/g,\"\"); testStr=testStr.replace(/( ：)/g,\"\"); window.document.body.innerHTML = testStr } replaceText() </script> 代码很简单，COPY到动网INDEX.ASP保存最后面就可以了~~ !!!!有红色代码会造成帖子列表左下角的“快速搜索”的文本输入框隐藏。请根据自己要求决定。7.1sp1精华帖子标题后（上）面加精华图章的修改方法 在新版的7.1.0sp1中测试后可以用 后台模板page_dispbbstemplate.html(0)中找到如下代码： <img src=\"{/post/setting/@picurl}topicface/{@expression}\" alt=\"发贴心情\" /></div><xsl:value-of select=\"@topic\" disable-output-escaping=\"yes\"/> 在其后面加入以下代码即可： <xsl:choose><xsl:when test=\"@isagree!=\'\' or /xml/postinfo/@TopicUseTools!=\'\' or /xml/postinfo/@getmoneytype!=\'0\' or @IsUpload=\'2\' or @IsUpload=\'3\' or @isbest=\'1\'\"><div style=\"position:absolute;width:5px; height:30px; z-index:1; top: 340; left:350 ;\"><xsl:if test=\"@isbest=\'1\'\"><img src=\"Skins/Default/jhtz.gif\" border=\"0\" title=\"蓝雨论坛的精华帖子\" align=\"absmiddle\"/><xsl:text disable-output-escaping=\"yes\" ></xsl:text></xsl:if></div> </xsl:when></xsl:choose> 注：代码中，图章图片“jhtz.gif”必须是透明背景的 *.gif 格式，其存放位置和鼠标经过图章图片时的提示文字“蓝雨论坛的精华帖子”需自己设置。红色数字为图章显示的位置 防止微软ANI光标漏洞挂马的临时解决办法 <div style=\"MARGIN-TOP: 10px; FONT-SIZE: 9pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 0px; LINE-HEIGHT: normal; WORD-WRAP: break-word;\">inc/dv_ubbcode.asp文件大约563行，找到<div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\">If (style_a<>\"xss\" and InStr(style_b,\"expression\")=0 and InStr(style_a,\"script\")=0) Then</div>改为<div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\">If (style_a<>\"xss\" and InStr(style_b,\"expression\")=0 and InStr(style_a,\"script\")=0 And style_a<>\"cursor\") Then</div>说明：屏蔽style样式中的cursor属性，避免被破坏分子利用</div>
[此贴子已经被作者于2007-6-13 14:07:38编辑过]

蓝雨发表于 2007-6-16 18:33:00

自己看看

页: [1]

蓝雨动力's Archiver

论坛一些美化的地方