【技巧】IE窗口标题栏完全修改大法(包含三个修改)
为便于大家使用，将singnore版主（版主嘛，当然排在前面*_^）和我做的两个修改综合在一起。主要包括：一、专区页面显示专区（不是专题）名称
以lb为例：leadbbs 极速asp - 论坛讨论区
二、版面页面显示专区名称 + 版面名称
以lb为例：leadbbs 极速asp - 论坛讨论区 -leadbbs专区
三、帖子页面显示帖子主题名称 + 专区名称 + 版面名称。
以lb为例：ie窗口标题栏完全修改大法(包含三个修改) - leadbbs 极速asp - 论坛讨论区 -leadbbs专区
如果还不够清楚，请版主在后面跟图片：）
修改办法：
一、专区页面显示专区（不是专题）名称
bbs/boards.asp,500多行,找到:
--------------------------------------
bbs_sitehead def_sitenamestring & " " & def_bbs_name,gbl_board_id,""
---------------------------------------
改为:
-------------------------------
bbs_sitehead def_sitenamestring & " " & def_bbs_name & " " & killhtmllabel(gbl_board_assortname),gbl_board_id,""
--------------------------------
就可以了.
二、版面页面显示专区名称 + 版面名称
bbs/board/board.asp，找到下面这行：在380行多处
bbs_sitehead def_sitenamestring & " " & def_bbs_name,gbl_board_id,""
替换为：
bbs_sitehead def_sitenamestring & " " & def_bbs_name & " " & killhtmllabel(gbl_board_assortname) & " " & killhtmllabel(gbl_board_boardname) ,gbl_board_id,""
三、帖子页面显示帖子主题名称
以下是百度有效收录的原则之一。
1. 给每个网页加上标题
网站首页的标题，建议您使用您的网站名称或公司名称，其它网页的标题建议与每个网页内容相关，内容不同的网页不用相同的标题。
leadbbs目前的announce.asp未免有些不足，在新版本推出之前可以暂且做如下修改：
在announce.asp中找到
temp = lmt_topicnamenohtml
替换成：
response.write "<title>"&htmlencode(lmt_topicnamenohtml)&" - "&killhtmllabel(def_sitenamestring)&" - "&killhtmllabel(def_bbs_name)&" - "&killhtmllabel(gbl_board_assortname)&" - "&killhtmllabel(gbl_board_boardname)&"</title>"
temp = lmt_topicnamenohtml
帖子窗口标题修改的另一种方法：
announce.asp，
bbs_sitehead def_sitenamestring & " " & def_bbs_name,0,getboardnavigatestring & " >> 查看帖子"
替换为：
bbs_sitehead def_sitenamestring & " " & def_bbs_name & " " &htmlencode(lmt_topicnamenohtml),0,getboardnavigatestring & " >> 查看帖子"
修改的样式顺序是这样的： 帖子名称 》论坛名称 》 区版块名称 》 版块名称 》
用官方论坛的样式: 论坛名称 》 区版块名称 》 版块名称》帖子名称 》
代码如下：
response.write "<title>" & def_sitenamestring & " " & def_bbs_name & " - " &htmlencode(gbl_board_assortname) & " - " & htmlencode(gbl_board_boardname) & " - " &htmlencode(lmt_topicnamenohtml) & "</title>"
temp = lmt_topicnamenohtml
四、为用户会员区的收件箱等加窗口标题
myinfobox.asp，mysendbox.asp,等等，
sitehead(def_sitenamestring & " - 用户会员区")
updateonlineuseratinfo gbl_board_id,"我的收件箱"
修改为：
sitehead(def_sitenamestring & " - 用户会员区 - 我的收件箱")
updateonlineuseratinfo gbl_board_id,"我的收件箱"
即可。依此类推……
announce2.asp 树型页面怎样改？
announce2.asp,查找:
bbs_sitehead
,有三处,将这三处第一个逗号以前的内容都替换为:
----------------
bbs_sitehead lmt_topicnamenohtml_temp & " " & def_sitenamestring & " " & def_bbs_name & " " & killhtmllabel(gbl_board_assortname)& " " & killhtmllabel(gbl_board_boardname)
---------------------------
记住:不要和逗号及逗号后面的代码换行,仍然要在同一行.
是这样的：
if request("submitflag")<>"" and form_parentid > 0 then
checkaccesslimit_timelimit
lmt_topicnamenohtml_temp = "回复：" & lmt_topicnamenohtml_temp
bbs_sitehead def_sitenamestring & " " & def_bbs_name,gbl_board_id," >> 回复帖子"
else
if lmt_topicnamenohtml_temp = "" then
checkaccesslimit_timelimit
if form_voteflag <> "" and form_parentid = 0 then
lmt_topicnamenohtml_temp = "发表新投票"
else
lmt_topicnamenohtml_temp = "发表新帖子"
end if
bbs_sitehead lmt_topicnamenohtml_temp & " " & def_sitenamestring & " " & def_bbs_name & " " & killhtmllabel(gbl_board_assortname)& " " & killhtmllabel(gbl_board_boardname),gbl_board_id," >> " & lmt_topicnamenohtml_temp
else
bbs_sitehead lmt_topicnamenohtml_temp & " " & def_sitenamestring & " " & def_bbs_name & " " & killhtmllabel(gbl_board_assortname)& " " & killhtmllabel(gbl_board_boardname),gbl_board_id," >> 查看帖子"
end if
end if
我的第一句没有改。
http://w.leadbbs.com/a/a.asp?b=200&id=1769398 谢谢大哥嘹
页:
[1]