耀华摄影◇ 行 政 中 心◇『 论坛站务 』 → 本站V8.2.0修改一览表


  共有25161人关注过本帖树形打印复制链接

主题:本站V8.2.0修改一览表

帅哥哟,离线,有人找我吗?
老蜜蜂
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
本站V8.2.0修改一览表  发帖心情 Post By:2008-2-11 15:50:07 [只看该作者]


二楼

1、论坛在线聊天


三楼

2、论坛发帖排行即时显示


四楼

3、首页Flash显示最新图片


五楼

4、当前在线提前显示、链接申请


六楼

5、快速发帖


七楼

6、2008新春风格


八楼

7、复制本页地址


九楼

8、隐去帖子内容显示发回帖者IP地址

9、8.2Rc1帖子内容中IP旁显示IP详细信息的修改方法


十二楼

10、醒目标题 for dvbbs 8.2.0


十三楼

11、论坛注册用户名改为中文注册


十四楼

12、论坛年龄的修改


十五楼

13、版主已阅


十六楼

14、失踪天数


十七楼

15、简单修改,右边栏加入天气预报


十九楼

16、简单的万年日历调用代码


二十楼

17、简单实现动网焦点图片每贴只调用一张图片


二十一楼

18、上传头像自适应大小


二十二楼

19、首页FLASH横幅效果(通用版)


二十三楼

20、修改 回复编辑框中的 回复标题和上传表单 默认为打开的


二十四楼

21、论坛文字 复制到版权的修改方式 8.2


二十五楼

22、上传附件回复可见

23、显示区版主修改

24、转生之炎

25、图片实现鼠标滚轮控制图片缩放

26、验证码的判断方式,满4位判断


二十六楼

27、发帖温馨提示

28、真正实现了把帖子顶上去,踩下去的功能

29、网站添加滚动工具条 返回顶部+QQ+回到底部 FOR动网V8.2.0

30、帖子编辑后自动上升的修改 for V8.2.0


二十七楼

31、相关主题功能正式测试版


二十八楼

32、去掉动网Dvbbs标题栏 [ 动网先锋 ] 的[ ]

 

三十楼

33、论坛改灰色代码

三十四楼

34、设置页面宽度方法

[此贴子已经被作者于2014-10-21 22:25:20编辑过]


蜜龍攝影
 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 15:56:21 [只看该作者]

1、论坛在线聊天

申明:这个插件不是我写的,我也从网上下载的,我只做了个整合与说明!


即时聊天插件(所有asp论坛)/2.8 18:00
版 本:完美版本

 

演示:http://www.364400.com
--------------------------------------

**********************特别注意**************************
此插件为绿色插件,不修改数据库,只需按以下操作设置即可。
此插件版权规原作者所有,我只是美化和调整其中一部分代码~~
**********************特别注意**************************

  ★★★使用方法如下★★★
  ------------------------

首先将chat文件夹拷贝到论坛根目录

****************1、设置管理员名字(可最多设两个管理员)****************

把editm.asp和sendm.asp里面的aaaa、bbbb、cccc和dddd改为你的论坛管理员名称~~(或指定的任何一个注册会员)
-------------------------------------------------
只有管理员才能对聊天内容进行修改或删除。
不过一般不需要你管,因为程序会自动刷新聊天记录,
而且到一定时间会自动清理一次!
程序启用了防灌水机制,必须每隔5秒钟才能发一条消息。
这个时间可以在pros.asp文件中设置。
当聊天记录达到30行会自动清除旧的聊天记录,依次更新
更多功能请下载回去慢慢体会,
当然,你也可以根据自己的需要适当修改代码。
-------------------------------------------------

****************2、设置刷新间隔时间****************

打开showmsg.asp,找到以下代码:
<meta http-equiv="Refresh" content="300;URL=showmsg.asp">
------------------------------------------------
其中的300为300秒,即每隔5分钟自动刷新一次,你可以
根据你的需要而设置。如果你不需要自动刷新,
请将这段代码标记为注释。
(建议使用此功能,推荐修改为180)

*************3、做一个首页调用*************
请打开index.asp
找到下列代码
  Case "page"
   ParsePageNode sTokenName
  Case "forum_info"
   ParseInfoNode sTokenName
  Case "text_link","logo_link"
   ParseLinkNode sTokenName,LinkNode
  Case "ad"
   If sTokenName="forumtextad" Then
    If Dvbbs.Boardid=0 Then
     TPL_Echo GetForumTextAd(0)
在代码下面加入下列代码

'即时聊天代码开始
%><!-- #include file="chat/index.asp" --><%
response.write "<br>"
'即时聊天代码结束


*************4、强制增加即时聊天cookies*****************
首先打开论坛根目录
下的Login.asp找到(应该是倒数几行):

 select case usercookies
 case "0"
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
 case 1
  Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
 case 2
  Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
 case 3
  Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
 end select

用以下代码覆盖:------------>>>>可以实现和动网Cookie论坛同步

 select case usercookies
 case "0"
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  Response.Cookies("aspsky")("usercookies") = usercookies
 case 1
  Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  Response.Cookies("aspsky").Expires=Date+1
  Response.Cookies("aspsky")("usercookies") = usercookies
 case 2
  Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  Response.Cookies("aspsky").Expires=Date+31
  Response.Cookies("aspsky")("usercookies") = usercookies
 case 3
  Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
  Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  Response.Cookies("aspsky").Expires=Date+365
  Response.Cookies("aspsky")("usercookies") = usercookies
 end select

再找到下面的代码:

 Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath
 Response.Cookies(Dvbbs.Forum_sn)("username") = regname
 Response.Cookies(Dvbbs.Forum_sn)("userid") = Dvbbs.UserID
 Response.Cookies(Dvbbs.Forum_sn)("password") = TruePassWord
 Response.Cookies(Dvbbs.Forum_sn)("userclass") = userclass
 Response.Cookies(Dvbbs.Forum_sn)("userhidden") = userhidden

在下一行加上以下几行代码:

 '强制增加即时聊天Cookies代码开始
 Response.Cookies("aspsky").path = Dvbbs.cookiepath
 Response.Cookies("aspsky")("username") = regname
 Response.Cookies("aspsky")("userid") = Dvbbs.UserID
 Response.Cookies("aspsky")("password") = TruePassWord
 Response.Cookies("aspsky")("userclass") = userclass
 Response.Cookies("aspsky")("userhidden") = userhidden
 '强制增加即时聊天Cookies代码结束

然后打开logout.asp,找到(应该是倒数几行)

 Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
 Response.Cookies(Dvbbs.Forum_sn)("username")=""
 Response.Cookies(Dvbbs.Forum_sn)("password")=""
 Response.Cookies(Dvbbs.Forum_sn)("userclass")=""
 Response.Cookies(Dvbbs.Forum_sn)("userid")=""
 Response.Cookies(Dvbbs.Forum_sn)("userhidden")=""
 Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""

在下一行加上以下几行代码:

 '强制清除即时聊天Cookies代码开始
 Response.Cookies("aspsky").path=Dvbbs.cookiepath
 Response.Cookies("aspsky")("username")=""
 Response.Cookies("aspsky")("password")=""
 Response.Cookies("aspsky")("userclass")=""
 Response.Cookies("aspsky")("userid")=""
 Response.Cookies("aspsky")("userhidden")=""
 Response.Cookies("aspsky")("usercookies")=""
 '强制清除即时聊天Cookies代码结束

至此整个插件安装完毕,赶快刷新你的首页看看!!



 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 16:05:37 [只看该作者]

2、论坛发帖排行即时显示

 

进入后台,分页面模板(page_index)  template.html(0)

①在底部找到

<!---------------end 底部友情链接部分------------------->
<script type="text/javascript" language="JavaScript">
// 加载右边栏JS效果

  

在其上面加入下面代码
<div class="mainbar3">
<ul>
<iframe src="plus_ph.asp" scrolling="no" frameborder = "0"  width="97%" height="126" align="center"></iframe>
</ul></div>

 

②下载下面文件解压打开修改论坛数据库链接后上传到论坛根目录


 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 16:16:38 [只看该作者]

3、首页Flash显示最新图片

 

进入后台,在风格界面的自定义标签管理

点击DV标签再点击show.tpl

①调整“调用记录条数:”为6

②在“版面查询设置:”里设置要显示图片的版块

 

③在分页面模板(page_index)  template.html(0)里底部找到 

<div class="page_right"><!--Div page_right -->
  <ul>
  <div class="tabtitle">

 

<div class="page_right"><!--Div page_right -->下面加入代码

<ul>{$label.dv/show}</ul>


 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 17:26:48 [只看该作者]

4、当前在线提前显示、链接申请

进入后台,在分页面模板(page_index)  template.html(0)里底部找到

 

<div class="mainbox">
   <div class="Menubox">
   <ul>
      <li id="too1" onclick="setTab('too',1,4)" class="hover">当前在线<span>({$pub.forum_online})</span></li>
      <li id="too2" onclick="setTab('too',2,4)">友情链接</li>
      <li id="too3" onclick="setTab('too',3,4)">申请链接</li>
      {$biruser.begin}
      <li id="too4" onclick="setTab('too',4,4)">今天过生日的用户(共{$biruser_list.sum}人)</li>
      {$biruser.end}
   </ul>
   </div>
   <div class="Contentbox">
    <div id="con_too_1">
     <div class="count">
      <ul>
      <li>当前在线:{$pub.forum_online}人(会员:{$pub.forum_useronline} / 访客:{$pub.forum_guestonline}) | 最高在线:{$pub.forum_maxonline} 人 | 建站时间:{$pub.forum_createtime}</li>
      <li><span id="showstr"><a href="online.asp?action=1&amp;boardid=0" target="hiddenframe"><font id="ifOnlineStr">显示详细列表</font></a></span> | <a href="boardstat.asp?reaction=online">查看在线用户位置</a></li>
      <li>在线图例:<img src="{$pub.forum_picurl}usergroup_0.gif" alt="管理员" /> 管理员  ‖ <img src="{$pub.forum_picurl}usergroup_5.gif" alt=""/> 超级版主  ‖ <img src="{$pub.forum_picurl}usergroup_1.gif" alt="" /> 版主  ‖ <img src="{$pub.forum_picurl}usergroup_2.gif" alt="" /> 贵宾  ‖ <img src="{$pub.forum_picurl}usergroup_3.gif" alt="" /> 注册用户  ‖ <img src="{$pub.forum_picurl}usergroup_4.gif" alt="" /> 客人</li>
      </ul>
     </div>
     <div style="line-height:18px;text-align:left;display:none;" id="onlinetr">在线数据加载中…</div>
     <iframe style="border:0px;width:0px;height:0px;" src="{$page.online_asp}" name="hiddenframe"></iframe>
    </div>
    <div id="con_too_2" style="display:none">
     <div class="friendlink">
      <ul>      
       {$logo_link.begin}
       <li style="width:{$logo_link.width};float:left;"><a href="{$logo_link.url}" target="_blank" title="{$logo_link.readme}"><img src="{$logo_link.logo}" border="0" alt="{$logo_link.readme}" width="88" height="31" /></a></li>{$logo_link.br}
       {$logo_link.end}
       <li style="height:0px;line-height:0px;margin:0px;">&nbsp;</li>
       {$text_link.begin}
       <li style="width:{$logo_link.width};float:left;"><a href="{$text_link.url}" target="_blank" title="{$text_link.readme}">{$text_link.boardname}</a></li>{$text_link.br}
       {$text_link.end}      
      </ul>
      <div style="clear:both"></div>
     </div>
    </div>
    <div id="con_too_3" style="display:none">
     <div class="friendlink">
      <ul>      
<p class="link_on"><a href="z_link.asp">申请连接</a></p>      
      </ul>
      <div style="clear:both"></div>
     </div>
    </div>
    {$biruser.begin}
    <div id="con_too_4" style="display:none;">     
     <table>
      <tr><td>
       <ul style="border:1px solid #FFFFFF">
       {$biruser_list.begin}
       <li style="width:25%;float:left;"><img src="{$forum_info.pic_3}" alt="" />〖祝 <a href="dispuser.asp?name={$biruser_list.username}" title="祝{$biruser_list.age}岁生日快乐!" target="_blank">{$biruser_list.username}</a> 生日快乐〗</li>
       {$biruser_list.end}
       </ul>
      </td></tr>
     </table>      
    </div>
    {$biruser.end}
   </div>
</div><br />

 

将下载文件解压得到两个文件上传到论坛根目录下


 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 17:37:54 [只看该作者]

5、快速发帖

 

进入后台,在风格界面模板总管理 → 分页面模板((main_style) → template.html(6)找到下面代码

 </li>
 {$plusmenu}
 |&nbsp;
 {$manageinfo}
 <li class="m_li_top" style="display:inline;"><a href="logout.asp">退出</a></li>

在下面加上下面代码

<!--快速发帖开始-->
<select name="BoardJumpList2" id="BoardJumpList2" onChange="if(this.options[this.selectedIndex].value!='')if (ISAPI_ReWrite==1)location='index_'+this.options[this.selectedIndex].value+'.html'; else location='post.asp?action=new&amp;boardid='+this.options[this.selectedIndex].value;" ></select>
<script type="text/javascript" language="javascript">
BoardJumpListSelect('<xsl:value-of select="post/postinfo/@boardid"/>',"BoardJumpList2","快速发帖(请选择版区类别)....","",0);
</script>
<!--快速发帖结束-->


 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 17:40:02 [只看该作者]

6、2008新春风格

 

 

参照动网相关帖子,地址:http://bbs.dvbbs.net/dispbbs.asp?boardid=102&Id=1483587


 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 17:46:38 [只看该作者]

7、复制本页地址

进入后台,在风格界面模板总管理 → 分页面模板(page_dispbbs) → template.html(0)


查找<td style="text-align:right;" valign="bottom">

在后面加上下面代码:
<!--点击复制地址开始-->
<script language=javascript>
function std_playUrl(obj)
{
if(obj==null)
{
var ok=window.clipboardData.setData("Text",document.location.toString());
if(ok==true)alert("当前网址已被复制!");
}
else
{
var url=window.clipboardData.getData("Text");
if(url==null){alert("剪切板文本内容为空!");return false;}
var re1 = /^((http|https|ftp|rtsp|mms|pmn):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@\]\':+!]+)/ig;
var re2 = /([a-zA-Z0-9_][.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)/ig;
var t1=re1.test(url),t2=re2.test(url)
if(!t1&&!t2){alert("剪切板内容不是网址,请检查!");return false;}
if(confirm("确认要打开以下网址?\n\n"+url)){obj.href=(t1?"":"http://")+url;obj.target="_blank";return true}
return false;
}
}
document.write('&nbsp;<span style="border:dotted 1px;padding:2px">&nbsp;<a href=javascript:std_playUrl() title=复制本页URL>点击此处复制本页地址</a>&nbsp;&nbsp;</span>');
</script>
<!--点击复制地址结束-->


 回到顶部
帅哥哟,离线,有人找我吗?
老蜜蜂
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 蜜蜂国王
等级:管理员 帖子:12262 积分:5217 威望:4985 精华:6 注册:2003-11-18 21:57:24
  发帖心情 Post By:2008-2-11 17:55:11 [只看该作者]

8、隐去帖子内容显示发回帖者IP地址

 

进入后台,在风格界面模板总管理 → 分页面模板(page_dispbbs) → template.html(0)

查找

<td class="inforight" valign="top" style="line-height:120%"><b style="font-size:12px;line-height:15px;">{$bbslist.title}</b>&nbsp;&nbsp;<span class="font10" style="line-height:20px; "><img src="{$pub.forum_picurl}topicface/{$bbslist.topicface}" alt="发贴心情" /> Post By:{$bbslist.dateandtime}  {$bbslist.ip}</span>

 

将最后dateandtime}与</span>之间的代码 {$bbslist.ip}删除

 

9、8.2Rc1帖子内容中IP旁显示IP详细信息的修改方法

打开Dispbbs.asp
找:


Case "ip"
   If "1"=Dvbbs.GroupSetting(30) And (TrueMaster Or 3<>Dvbbs.UserGroupID) Then TPL_Echo " <a href=""TopicOther.asp?t=1&amp;boardid="&Dvbbs.Boardid&"&amp;userid="&GetPostUserID()&"&amp;ip="&G_ItemList(6, G_Floor)&"&amp;action=lookip"" title=""点击查看用户来源及管理"">"&G_ItemList(6, G_Floor)&"</a>"

  
改为:


 Case "ip"
    Dim ip,lookuseraddress
             ip=G_ItemList(6, G_Floor)
              lookuseraddress=lookaddress(replace(ip,"'",""))
   If "1"=Dvbbs.GroupSetting(30) And (TrueMaster Or 3<>Dvbbs.UserGroupID) Then TPL_Echo "&nbsp;Ip: <a href=""TopicOther.asp?t=1&amp;boardid="&Dvbbs.Boardid&"&amp;userid="&GetPostUserID()&"&amp;ip="&G_ItemList(6, G_Floor)&"&amp;action=lookip"" title=""点击查看用户来源及管理"">"&G_ItemList(6, G_Floor)&"</a>(<font color='#000fff'>"&lookuseraddress&"</font>)"
   


'注意:本部分可自己去设置自己修改成自己喜欢的样式(不会的就不要改了,因我也不是很会^ _ ^)  

再找:


Function Topic_Ads(n)

上面加(注意,是“上”,不是"下"):

'///////////////////////
Function lookaddress(sip)
 Dim str1,str2,str3,str4
 Dim num
 Dim irs,sql
 If isnumeric(left(sip,2)) Then
  If sip="127.0.0.1" Then sip="192.168.0.1"
  str1=left(sip,instr(sip,".")-1)
  sip=mid(sip,instr(sip,".")+1)
  str2=left(sip,instr(sip,".")-1)
  sip=mid(sip,instr(sip,".")+1)
  str3=left(sip,instr(sip,".")-1)
  str4=mid(sip,instr(sip,".")+1)
  If isNumeric(str1)=0 Or isNumeric(str2)=0 Or isNumeric(str3)=0 Or isNumeric(str4)=0 Then

  Else
   num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
   Dim adb,aConnStr,AConn
   adb = "data/ipaddress.mdb"
   aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
   Set AConn = Dvbbs.iCreateObject("ADODB.Connection")
   aConn.Open aConnStr
   sql="select country,city from dv_address where ip1 <="&num&" and ip2 >="&num
   Set irs=AConn.Execute(sql)
   If irs.eof And irs.bof Then
    lookaddress="未知IP信息"
   Else
    Do While Not irs.eof
     lookaddress=lookaddress & "&nbsp;&nbsp;" &irs(0) & irs(1)
    irs.movenext
    Loop
   End If
   irs.close
   Set irs=nothing
   AConn.Close
   Set AConn=Nothing
  End If
 Else
  lookaddress="未知IP信息"
 End If
End Function
'///////////////////////


'[修改完]


 回到顶部
帅哥哟,离线,有人找我吗?
踏雪无痕
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC |


加好友 发短信 独来独往
等级:管理员 帖子:23169 积分:5223 威望:2146 精华:50 注册:2003-11-18 12:28:12
  发帖心情 Post By:2008-2-11 20:00:15 [只看该作者]

蜜蜂辛苦了!向你敬礼!!

 回到顶部
总数 34 1 2 3 4 下一页