返回论坛首页联系我们论坛帮助
>> 网页设计交流,相互学习,共同进步……
搜一搜更多此类问题 
泥客论坛(十几年前的回忆)泥客技术☆网页制作☆ → 动网修改方法大全!!!

您是本帖的第 17518 个阅读者
树形 打印
标题:
动网修改方法大全!!!
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
楼主
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

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

ip地址已设置保密
2004/1/17 13:09:57
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
2
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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">
最高日发贴:<font title="发生日期: [{$MaxPostDate}"><B>{$MaxPostNum}</B></font> 篇,发生时间:{$MaxPostDate}
</td></tr>

改为:
<tr><td>
最高日发贴:<font title="发生日期: [{$MaxPostDate}"><B>{$MaxPostNum}</B></font> 篇</td><td>建站天数:<b>{$BuildDayNum}</b> 天</td></tr>


ip地址已设置保密
2004/1/17 13:10:12
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
3
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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> 目前论坛上总共有 <B>{$onlinenum}</B> 人在线,其中注册会员 <B>{$ousernum}</B> 人,访客 <B>{$gusernum}</B> 人。
后面添加:
您是本站的第<script src=shida_count.asp?write=yes></script>位访客。

ip地址已设置保密
2004/1/17 13:10:25
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
4
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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;

ip地址已设置保密
2004/1/17 13:10:36
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
5
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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(页面跳转时显示的图片)

ip地址已设置保密
2004/1/17 13:10:47
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
6
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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(该文件设置了不用样式下快截方式的色彩)

ip地址已设置保密
2004/1/17 13:10:58
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
7
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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(该文件设置了不用样式下快截方式的色彩)


ip地址已设置保密
2004/1/17 13:11:09
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
8
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
8.让所有页面均调用计数器
分页面模板,(main_style),界面风格,Dvbbs.mainhtml(2)

<script language = "Javascript" src = "inc/Main.js"></script>
后面添加:
<script src=shida_count.asp></script>
文件支持:shida_count.asp(计数器文件)

ip地址已设置保密
2004/1/17 13:11:19
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
9
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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}》&#13;&#10;作者:{$username}&#13;&#10;发表于:{$dateandtime}&#13;&#10;最后发贴:{$body}...">{$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

ip地址已设置保密
2004/1/17 13:11:34
dmacro
帅哥哟,离线,有人找我吗?
头衔:环保局局长
等级:书记
威望:3893
文章:2234
积分:31176
注册:2003年7月2日
10
  QQ 点击这里发送电子邮件给dmacro 访问dmacro的主页

发贴心情
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)
把:
<span style="CURSOR: hand" onClick="window.external.AddFavorite(document.location.href, '{$title}')" onmousemove="status='收藏本页';" onmouseout="status='';" >收藏本页</span><br><a href="{$mailto}" target=_blank>联系我们</a><br><a href="boardhelp.asp?boardID={$boardid}">论坛帮助</a>
改为:
<span style="CURSOR: hand" onClick="window.external.AddFavorite(document.location.href, '{$title}')" onmousemove="status='收藏本页';" onmouseout="status='';" >收藏本页</span><br><a href="boardhelp.asp?boardID={$boardid}">论坛帮助</a><br>{$adminonline}

注意修改相关参数,并设置在线状态图片

ip地址已设置保密
2004/1/17 13:11:47

 14   10   1/2页      1   2   尾页 
Powered By Dvbbs Version 7.1.0 Sp1
页面执行时间 00.07813 秒, 4 次数据查询