服务大厅-查看评论[华夏网·艺术论坛]

评论主题：动网论坛7.1SP1 CSS详解
评论对象：夏雪儿 | 2009/3/29 17:20:01
评论言论： 7.删除或屏蔽SP1首页“一搜”的方法
在动网默认风格分页面模板(page_index)界面风格管理template.html(0)，找到如下代码，将其屏蔽（建议屏蔽，如果需要再取消屏蔽就行了）或删除！！


如屏蔽此功能，只需在代码前面加上
补充：
使用此法屏蔽代码后，出现："查看新贴  热门话题  发贴排行  用户列表" *左显示，不太美观，无语找到了以下方法来解决此问题，就在下面的部分找到如下代码

<div style="float:left;padding:3px;height:28px;text-indent:24px;" >
<a href="query.asp?stype=3&pSearch=0&nSearch=0">查看新贴</a>
<font face="Wingdings" color="666666">v</font>
<a href="query.asp?stype=4&pSearch=0&nSearch=0">热门话题</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&orders=1">发贴排行</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&orders=7">用户列表</a>
</div>

将红色的那句改为：text-align :center;
即可实行居中了。
________________________________________

8.如何去掉主页底部阿里巴巴支付宝?
方法1：
inc/Dv_ClsMain.asp

找到

Dim Alibaba_Ad
If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = "<div>网上贸易创造奇迹! <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></div>"
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 " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<a href=""https://www.alipay.com "" target=""_blank"" title=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可*、便捷""><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=""0"" alt=""""></a>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If

中的If IsSqlDataBase = 0改成If IsSqlDataBase = 1
If Dvbbs.Forum_ChanSetting(3)="0" Then改成If Dvbbs.Forum_ChanSetting(3)="1" Then
方法2：
在inc/Dv_ClsMain.asp源代码中找到：

If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = "<div>网上贸易创造奇迹! <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></div>"
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 " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<a href=""https://www.alipay.com "" target=""_blank"" title=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可*、便捷""><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=""0"" alt=""""></a>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If

将其改为：

If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = ""
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 " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If
________________________________________

9.如何去除动网默认文字广告位“国内使用量最大的动网论坛”？
如何去除动网默认文字广告位“国内使用量最大的动网论坛”？
1.  首先到论坛跟目录下找到Loadservoces
2.  查找 xmlserverurl="http://server.dvbbs.net/dvbbs/Dv_xmlservices.asp "然后注释掉，别告诉我你不会注释！就是在前面加个‘
3.  然后找到 Application(Dvbbs.CacheName & "_TextAdservices").documentElement.appendChild( Application(Dvbbs.CacheName & "_TextAdservices").createNode(1,"text","")).text="<iframe src="""&Dvbbs_Server_Url&"dvbbs/DvDefaultTextAd.asp"" height=""23"" width=""100%"" marginwidth=""0"" marginheight=""0"" hspace=""0"" vspace=""0"" frameborder=""0"" scrolling=""no""></iframe>"
4.  也是把这句话注释掉，不用删除的
5.  然后更新一下缓存，OK
________________________________________

10.首页title里有"欢迎访问动网先锋论坛"怎么修改？
分页面模板(page_index) ->语言包->template.Strings(0)
________________________________________

11.完美在帖子中显示个人信息、登陆次数等的修改方法
首先修改dispbbs.asp 找到
Set Rs=Dvbbs.Execute("Select
userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us
erEP,userCP,Userbirthday,Usersex,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>
________________________________________

12.只允许游客看部分内容for 7.1sp1
1、修改dispbbs.asp文件
找到
InStr(Ubblists,",39,") > 0 Then
Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,0)
Else
Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,1)
End If
改成
If InStr(Ubblists,",39,") > 0 Then
If Dvbbs.userid=0 then
Node.selectSingleNode("@body").text = left(Node.selectSingleNode("@body").text,250)&"......<br><br><p></p>  <font color=#AAAAAA>您还没有登陆，欲知全文内容，请选择<a href=reg.asp><font color=red>[注册]</font></a>或者<a href=login.asp><font color=blue>[登陆]</font></a>。</font>"
Else
Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,0)
End if
Else
If Dvbbs.userid=0 then
Node.selectSingleNode("@body").text = left(Node.selectSingleNode("@body").text,250)&"......<br><br><p></p>  <font color=#AAAAAA>您还没有登陆，欲知全文内容，请选择<a href=reg.asp><font color=red>[注册]</font></a>或者<a href=login.asp><font color=blue>[登陆]</font></a>。</font>"
Else
Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,1)
End if
End If
2、修改TopicOther.asp文件
找到
Templist=Replace(Templist,"{$body}",SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1)))
改成
If Dvbbs.userid=0 then
Dvbbs.AddErrCode(6)
Dvbbs.Showerr()
Else
Templist=Replace(Templist,"{$body}",SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1)))
End if
修改结束
________________________________________

13.SP1浏览帖子表情分页
SP1浏览帖子表情分页
(page_post) template.html(0)
var ShowFacePage=0;
function show_post_face(n){
var CountLength=Forum_PostFace.length-2;
var j=1;
var page_size=18;//每页个数
var br=9; //换行个数
________________________________________

14.在7.1 sp1 帖子信息里面显示个人精华的方法
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>
ok 祝你成功。