找回密码
 注册
查看: 2987|回复: 3
收起左侧

把贴子名放在论坛名前边

[复制链接]

5314

主题

8320

帖子

1万

积分

管理员

出售国内外虚拟空间

Rank: 10Rank: 10Rank: 10

积分
14665
帖子
8320
精华
67
体力
14665 点
蓝豆
2391 点
注册时间
2007-6-8

终身成就奖LY官方团队会员身份ID卡

发表于 2007-8-4 22:15:00 | 显示全部楼层 |阅读模式

效果:帖子标题-栏目名称-论坛名称
打开inc/Dv_ClsMain.asp文件,大概815行,找到以下语句:
Response.Write Replace(Replace(Replace(mainhtml(1),\"{$keyword}\",Replace(Forum_info(8),\"|\",\",\")),\"{$description}\",Forum_info(10))&vbNewLine,\"{$title}\",Forum_Info(0)&\"-\"&TitleStats)
把红色部分替换为:TitleStats&\"-\"&Forum_Info(0),即:
Response.Write Replace(Replace(Replace(mainhtml(1),\"{$keyword}\",Replace(Forum_info(8),\"|\",\",\")),\"{$description}\",Forum_info(10))&vbNewLine,\"{$title}\",TitleStats&\"-\"&Forum_Info(0))

增加以下修改,就可达到发问者需要的效果:帖子标题-栏目名称-论坛名称
修改处应该在上述修改上面12行处:
Public Sub head()
Nowstats=stats
If BoardID > 0 And ScriptName<>\"printpage.asp\" Then Stats=BoardType&\"-\"&Stats
改为
Public Sub head()
Nowstats=stats
If BoardID > 0 And ScriptName<>\"printpage.asp\" Then Stats=Stats&\"-\"&BoardType

出售国内或美国高性能虚拟空间,高速VPS以及服务器! 同时承接各种类型的网站制作,网站维护,支付宝交易安全放心!    联系QQ:6102031
懒得打字嘛,点击右侧快捷回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

网站公告上一条 /2 下一条

GMT+8, 2024-5-13 13:35 , Processed in 0.093750 second(s), 24 queries , Gzip On.

© 2006-2022 Powered by Discuz! X3.4

快速回复 返回顶部 返回列表