☆网页制作☆-动网修改方法大全！！！[泥客论坛（十几年前的回忆）]

以文本方式查看主题

-  泥客论坛（十几年前的回忆）  (http://kesonic.com/bbs/index.asp)
--  ☆网页制作☆  (http://kesonic.com/bbs/list.asp?boardid=81)
----  动网修改方法大全！！！  (http://kesonic.com/bbs/dispbbs.asp?boardid=81&id=5253)

-- 作者：dmacro
-- 发布时间：2004/1/17 13:09:57

-- 动网修改方法大全！！！
1.使含子级版面的版块显示图片而非数字
分页面模板,(page_index),语言包,template.Strings(1)
改为:
<img src=skins/default/plus.gif alt=有{$child}个下属论坛>

-- 作者：dmacro
-- 发布时间：2004/1/17 13:10:12

--
2.首页显示建站天数
index.asp
TempStr=Replace(TempStr,"{$MaxPostDate}",Dvbbs.CacheData(13,0))
后面增加
TempStr = Replace(TempStr,"{$BuildDayNum}",datediff("d",Dvbbs.Forum_Setting(74),date()))
分页面模板,(page_index),界面风格,template.html(0)
<tr><td colspan="2">
最高日发贴：{$MaxPostNum} 篇，发生时间：{$MaxPostDate}
</td></tr>
改为：
<tr><td>
最高日发贴：{$MaxPostNum} 篇</td><td>建站天数：{$BuildDayNum} 天</td></tr>

-- 作者：dmacro
-- 发布时间：2004/1/17 13:10:25

--
3.首页美化
简洁模式下不显示版主
分页面模板,(page_index),界面风格,template.html(6)
删除
<TR><TD class=tablebody2 height=20 width=* colspan=3>版主：{$ShowMasters}
</td></tr>
列表模式下显示快截方式
分页面模板,(page_index),界面风格,template.html(5)
把{$child}替换为：
　　<a href=post.asp?action=new&boardid={$boardid}><img src=Skins/Default/mini_post.gif border=0 alt=发贴 width=14 height=14></a> <a href=post.asp?action=vote&boardid={$boardid}><img src=Skins/Default/mini_votes.gif border=0 alt=发起投票 width=14 height=14></a> <a href=query.asp?boardid={$boardid}><img src=Skins/Default/mini_query.gif border=0 alt=搜索 width=14 height=14></a> <a href=Query.asp?stype=6&boardid={$boardid}><img src=Skins/Default/isbest.gif border=0 alt=精华 width=14 height=14></a>
添加计数器首页显示，需要计数器文件支持
分页面模板,(page_index),界面风格,template.html(11)
 <TD width=100% vAlign=top class=tablebody1> 目前论坛上总共有 {$onlinenum} 人在线，其中注册会员 {$ousernum} 人，访客 {$gusernum} 人。
后面添加：
您是本站的第<script src=shida_count.asp?write=yes></script>位访客。

--  作者：dmacro
--  发布时间：2004/1/17 13:10:36

--
4.双击滚屏，单击停止
inc/main.js
在文件最后面加上：
//双击滚动，单击停止
var shida_top,timer;
function shida_stop() {timer=setInterval("shida_scrollwindow()",1);}
function shida_start(){clearInterval(timer);}
function shida_scrollwindow() {shida_top=document.body.scrollTop; window.scroll(0,++shida_top);
if (shida_top != document.body.scrollTop) shida_start();}
document.onmousedown=shida_start;
document.ondblclick=shida_stop;

-- 作者：dmacro
-- 发布时间：2004/1/17 13:10:47

--
5.页面跳转动画的实现
分页面模板,(main_style),界面风格,Dvbbs.mainhtml(2)
在
<script language = "Javascript" src = "inc/Main.js"></script>
后面添加：
<script language = "Javascript" src = "plus/js/adv.js"></script>
文件支持：plus/js/adv.js(修改该文件最后的参数可设置多个图片随机显示)，pic/loading/0.jpg(页面跳转时显示的图片)

-- 作者：dmacro
-- 发布时间：2004/1/17 13:10:58

--
6.默认模板下的左边快截方式及不同样式下不同色彩的实现
分页面模板,(main_style),界面风格,Dvbbs.mainhtml(2)
在
<script language = "Javascript" src = "inc/Main.js"></script>
后面添加：
<script language = "Javascript" src = "plus/js/shida.js"></script>
{$cssjs}
Dv_ClsMain.asp
把Response.Write mainhtml(2)修改为：
 if skinid=1 then
 Response.Write replace(mainhtml(2),"{$cssjs}","<script language = Javascript src = plus/js/menu.asp?cssid="&cssid&"></script>")
 else
 Response.Write replace(mainhtml(2),"{$cssjs}","")
 end if
文件支持：plus/js/shida.js(修改该文件中的参数可设置菜单中的项目)，plus/js/menu.asp(该文件设置了不用样式下快截方式的色彩)

-- 作者：dmacro
-- 发布时间：2004/1/17 13:11:09

--
7.默认模板下的左边快截方式及不同样式下不同色彩的实现
分页面模板,(main_style),界面风格,Dvbbs.mainhtml(2)
在
<script language = "Javascript" src = "inc/Main.js"></script>
后面添加：
<script language = "Javascript" src = "plus/js/shida.js"></script>
{$cssjs}
Dv_ClsMain.asp
把Response.Write mainhtml(2)修改为：
 if skinid=1 then
 Response.Write replace(mainhtml(2),"{$cssjs}","<script language = Javascript src = plus/js/menu.asp?cssid="&cssid&"></script>")
 else
 Response.Write replace(mainhtml(2),"{$cssjs}","")
 end if
文件支持：plus/js/shida.js(修改该文件中的参数可设置菜单中的项目)，plus/js/menu.asp(该文件设置了不用样式下快截方式的色彩)

-- 作者：dmacro
-- 发布时间：2004/1/17 13:11:19

--
8.让所有页面均调用计数器
分页面模板,(main_style),界面风格,Dvbbs.mainhtml(2)
在
<script language = "Javascript" src = "inc/Main.js"></script>
后面添加：
<script src=shida_count.asp></script>
文件支持：shida_count.asp(计数器文件)

-- 作者：dmacro
-- 发布时间：2004/1/17 13:11:34

--
9.显示12小时内的新主题
list.asp
Response.Write SQL(17,ti) 之后,Response.Write "\'));" 之前添加
Response.Write "\',\'"
if datediff("h",SQL(5,ti),now)<=12 then
 Response.Write "1"
 else
 Response.Write "0"
end if
分页面模板,(main_style),界面风格,template.html(6)
<a href="dispbbs.asp?boardID={$boardid}&ID={$topicid}&page={$page}" title="《{$atitle}》
作者：dmacro
发表于：2004/1/17 13:11:47
最后发贴：10.重要成员在线状态显示(本修改默认为三人)
根目录下新建：global.asa，或修改该文件相关部分，内容如下：
<script Language="VBscript" Runat="Server">
Sub Application_OnStart
Application("admin1")="<a href=messanger.asp?action=new&touser=开心就好 target=_blank><img src=pic/admin/admin10.gif title=\'开心就好　不在线　QQ:13111110\' border=\'0\'></a>"
Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin20.gif title=\'Savagegarden　不在线　QQ:940040\' border=\'0\'></a>"
Application("admin3")="<a href=messanger.asp?action=new&touser=维她命 target=_blank><img src=pic/admin/admin30.gif title=\'维她命　不在线　QQ:1054908\' border=\'0\'></a>"
end sub
</script>
login.asp
在If Dvbbs.ErrCodes<>"" Then Exit function后面加上：
adminonline(username)
在文件最后一个%>前面加上：
sub adminonline(str)
select case str
case "开心就好"
Application("admin1")="<a href=messanger.asp?action=new&touser=开心就好 target=_blank><img src=pic/admin/admin11.gif title=\'开心就好　在线　QQ:111924\' border=\'0\'></a>"
case "savagegarden"
Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin21.gif title=\'Savagegarden　在线　QQ:940040\' border=\'0\'></a>"
case "维她命"
Application("admin3")="<a href=messanger.asp?action=new&touser=维她命 target=_blank><img src=pic/admin/admin31.gif title=\'维她命　在线　QQ:1054908\' border=\'0\'></a>"
end select
end sub
logout.asp
找到：
 activeuser="delete from Dv_online where username=\'"&Session(Dvbbs.CacheName & "UserID")(5)&"\'"
 Conn.Execute activeuser,TempNum
在后面加上：
 adminonline(Session(Dvbbs.CacheName & "UserID")(5))
在最后一个%>前面加上：
sub adminonline(str)
select case str
case "开心就好"
Application("admin1")="<a href=messanger.asp?action=new&touser=开心就好 target=_blank><img src=pic/admin/admin10.gif title=\'开心就好　不在线　QQ:111924\' border=\'0\'></a>"
case "savagegarden"
Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin20.gif title=\'Savagegarden　不在线　QQ:940040\' border=\'0\'></a>"
case "维她命"
Application("admin3")="<a href=messanger.asp?action=new&touser=维她命 target=_blank><img src=pic/admin/admin30.gif title=\'维她命　不在线　QQ:1054908\' border=\'0\'></a>"
end select
end sub
Dv_ClsMain.asp
把：
If Trim(Forum_info(7))<>"" Then
TempStr = Replace(TempStr,"{$mailto}",Forum_Info(7))
 Else
 TempStr = Replace(TempStr,"{$mailto}","mailto:" & Forum_Info(5))
End If
替换为：
 TempStr = Replace(TempStr,"{$adminonline}",Application("admin1")&Application("admin2")&Application("admin3"))
模板主模块(Main_Style) ，界面风格，Dvbbs.mainhtml(4)
把：
收藏本页 <a href="{$mailto}" target=_blank>联系我们</a> <a href="boardhelp.asp?boardID={$boardid}">论坛帮助</a>
改为：
收藏本页 <a href="boardhelp.asp?boardID={$boardid}">论坛帮助</a> {$adminonline}
注意修改相关参数，并设置在线状态图片
...">{$title}
后面添加：
{$newarticle}
分页面模板,(main_style),界面风格,template.html(11)
找到：
function dvbbs_topic_list(str,TopicID,boardid,title,postusername,lastpost,Expression,postuserid,dateandtime,child,hits,votetotal,lastposttime,istop,isvote,isbest,locktopic,TopicMode,Mode){
修改为：
function dvbbs_topic_list(str,TopicID,boardid,title,postusername,lastpost,Expression,postuserid,dateandtime,child,hits,votetotal,lastposttime,istop,isvote,isbest,locktopic,TopicMode,Mode,newa){
在
lastpost=lastpost.split("$");
var JsTempStr_topicinfo=TempStr_topicinfo.split("||");
var JsTempStr_Page=TempStr_Page.split("||");
var JsTempStr_load=TempStr_load.split("||");
var BoardTopic=BoardTopicMode.split(" | ");
var TMode
后面添加：
if (newa==1){
str = str.replace(/{\\$newarticle}/gi,"<img src=plus/pic/new.gif border=0 alt=12小时内发布新主题标志 >");
}else{str = str.replace(/{\\$newarticle}/gi,"");}
文件支持：plus/pic/new.gif

-- 作者：dmacro
-- 发布时间：2004/1/17 13:11:47

--
10.重要成员在线状态显示(本修改默认为三人)
根目录下新建：global.asa，或修改该文件相关部分，内容如下：
<script Language="VBscript" Runat="Server">
Sub Application_OnStart
Application("admin1")="<a href=messanger.asp?action=new&touser=开心就好 target=_blank><img src=pic/admin/admin10.gif title=\'开心就好　不在线　QQ:13111110\' border=\'0\'></a>"
Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin20.gif title=\'Savagegarden　不在线　QQ:940040\' border=\'0\'></a>"
Application("admin3")="<a href=messanger.asp?action=new&touser=维她命 target=_blank><img src=pic/admin/admin30.gif title=\'维她命　不在线　QQ:1054908\' border=\'0\'></a>"
end sub
</script>
login.asp
在If Dvbbs.ErrCodes<>"" Then Exit function后面加上：
adminonline(username)
在文件最后一个%>前面加上：
sub adminonline(str)
select case str
case "开心就好"
Application("admin1")="<a href=messanger.asp?action=new&touser=开心就好 target=_blank><img src=pic/admin/admin11.gif title=\'开心就好　在线　QQ:111924\' border=\'0\'></a>"
case "savagegarden"
Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin21.gif title=\'Savagegarden　在线　QQ:940040\' border=\'0\'></a>"
case "维她命"
Application("admin3")="<a href=messanger.asp?action=new&touser=维她命 target=_blank><img src=pic/admin/admin31.gif title=\'维她命　在线　QQ:1054908\' border=\'0\'></a>"
end select
end sub
logout.asp
找到：
 activeuser="delete from Dv_online where username=\'"&Session(Dvbbs.CacheName & "UserID")(5)&"\'"
 Conn.Execute activeuser,TempNum
在后面加上：
 adminonline(Session(Dvbbs.CacheName & "UserID")(5))
在最后一个%>前面加上：
sub adminonline(str)
select case str
case "开心就好"
Application("admin1")="<a href=messanger.asp?action=new&touser=开心就好 target=_blank><img src=pic/admin/admin10.gif title=\'开心就好　不在线　QQ:111924\' border=\'0\'></a>"
case "savagegarden"
Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin20.gif title=\'Savagegarden　不在线　QQ:940040\' border=\'0\'></a>"
case "维她命"
Application("admin3")="<a href=messanger.asp?action=new&touser=维她命 target=_blank><img src=pic/admin/admin30.gif title=\'维她命　不在线　QQ:1054908\' border=\'0\'></a>"
end select
end sub
Dv_ClsMain.asp
把：
If Trim(Forum_info(7))<>"" Then
TempStr = Replace(TempStr,"{$mailto}",Forum_Info(7))
 Else
 TempStr = Replace(TempStr,"{$mailto}","mailto:" & Forum_Info(5))
End If
替换为：
 TempStr = Replace(TempStr,"{$adminonline}",Application("admin1")&Application("admin2")&Application("admin3"))
模板主模块(Main_Style) ，界面风格，Dvbbs.mainhtml(4)
把：
收藏本页 <a href="{$mailto}" target=_blank>联系我们</a> <a href="boardhelp.asp?boardID={$boardid}">论坛帮助</a>
改为：
收藏本页 <a href="boardhelp.asp?boardID={$boardid}">论坛帮助</a> {$adminonline}
注意修改相关参数，并设置在线状态图片