在线情况
楼主
  • 头像
  • 级别
  • 徽章
  • 职务区版主
  • 声望+19
  • 积分10677
  • 经验309221
  • 文章10117
  • 注册2004-12-21
分组式UBB表情已提供,(如官方一样)可以后台管理程式
     因为这个涉及较多,如果后台可以管理,增加表情说明是个麻烦,所以如果后台管理,就暂时只能没有表情说明,如果这样还有人需要吗?
     呵,如果有人需要,我想可以做出来。

2005-03-03 16:35:01,代码提供如下:
[COLOR=red]2005-03-04[/COLOR],根据无法显示的测试,修正如下:
请同样修改aditannounce.asp同样的位置和方法.
另:修正象官方一样表情每组不同时,"更多……"位置不固定影响美观的问题。,主要是把兰色部分进行了移动。请酌情修改。

-----------------------------------
打开bbs/announce/announce2.asp和[COLOR=red]editannounce.asp[/COLOR],找到:

--------------------------------

           <tr>
                 <td bgcolor=<%=DEF_BBS_LightColor%> width="<%=DEF_BBS_LeftTDWidth%>" class=TBBG1>插入UBB表情,时间</td>
                 <td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
                        <%
                       Dim Temp_N
                       For Temp_N = 1 to DEF_UBBiconNumber%><a href="javascript:addcontent('[em<%=Right("0" & Temp_N,2)%>]','');"><img src="../images/UBBicon/em<%=Right("0" & Temp_N,2)%>.GIF" width="20" height="20" align="absmiddle" border=0></a>
                       <%Next%>
                       <a href="javascript:var d; d=new Date();addcontent(d.getYear()+'-'+rightStr('0'+(d.getMonth()+1),2)+'-'+rightStr('0'+d.getDate(),2)+' '+rightStr('0'+d.getHours(),2)+':'+rightStr('0'+d.getMinutes(),2)+':'+rightStr('0'+d.getSeconds(),2),'');" title=插入时间><b>T</b></a>
                       <a href="javascript:checklength();">长度</a>
                 </td>
           </tr><%End If

-------------------------------------

替换为下面代码:

---------------------------------------

           <tr>
                 <td bgcolor=<%=DEF_BBS_LightColor%> width="<%=DEF_BBS_LeftTDWidth%>" class=TBBG1>插入UBB表情,时间</td>
                 <td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
                       <table border="0" cellspacing="0" cellpadding="0"><tr><td>
                       <%
                       Dim A_count
                       A_count = Fix(DEF_UBBiconNumber/16)
                       if DEF_UBBiconNumber/16 > Fix(DEF_UBBiconNumber/16) Then A_count =  Fix(DEF_UBBiconNumber/16) + 1
                       Dim Temp_A
                       For Temp_A = 1 to A_count
                             Dim Temp_N,Lasticon_N,Firsticon_N,spanstyle
                             Firsticon_N = (Temp_A - 1) * 16 + 1
                             Lasticon_N = Temp_A * 16
                             If Temp_A = A_count then Lasticon_N = DEF_UBBiconNumber
                             If Temp_A = 1 Then spanstyle = "" Else spanstyle = " style='display:none'"
                             %>
                             <span name=Icon<%=Temp_A%> id=Icon<%=Temp_A%> <%=spanstyle%>> <%For Temp_N = Firsticon_N to Lasticon_N%><img src="../images/UBBicon/em<%=Right("0" & Temp_N,2)%>.GIF" style="cursor:hand" onclick="addcontent('[em<%=Right("0" & Temp_N,2)%>]','');" width="20" height="20" align="absmiddle" border=0  title=表情<%=Temp_N%> >
                             <%Next%></span><%Next%>
                       </td><td>
                                   <script language=javascript>
                                   var iconp = 1;
                                   var iconmp = <%=A_count%>;
                                   function IconPage()
                                   {
                                         eval("Icon" + iconp).style.display = "none";
                                         iconp ++ ;
                                         if(iconp>iconmp)iconp=1;
                                         eval("Icon" + iconp).style.display = "block";
                                   }
                                   </script>
                       </td></tr></table>
                       <img src=../images/null.gif width=2 height=4><br> <span style="cursor:hand" onclick="var d; d=new Date();addcontent(d.getYear()+'-'+rightStr('0'+(d.getMonth()+1),2)+'-'+rightStr('0'+d.getDate(),2)+' '+rightStr('0'+d.getHours(),2)+':'+rightStr('0'+d.getMinutes(),2)+':'+rightStr('0'+d.getSeconds(),2),'');">插入时间</span>
                       <span style="cursor:hand" onclick="checklength();">测试内容长度</span>
[COLOR=blue]<span style="cursor:hand" onclick="IconPage();"><U>更多表情...</U></span>[/COLOR]
           </td>
           </tr><%End If

————————————————————————————————————

保存,上传,现在你可以在论坛后台进入“论坛参数设置”--
    比如:你要增加到68个表情,
    首先改变“插入UBB表情”后的数字,修改为你现在你要增加到的表情个数68。
    然后,在bbs/images/UBBicon/加入形如:em46.GIF为文件名的图片,现在,你应该有em01.gif-em68.gif,68个图标,中间不要有缺少的。
   这样设置后,68个表情就会以每组16个(比较合适版面,如果你实在想改,也是可以的。)的规则显示5组。考虑到匀称,最好数量是16的倍数。
    需要说明的是:这样修改以后,暂不能实现每个图标都有各自的说明。
    不知道SPIDER是不是这样做官方LB的,呵呵。
[ 这个贴子最后由wensui在2005-3-4 7:52:06编辑过 ]
asp技术学习感谢您的参与
在线情况
2
  • 头像
  • spo万岁!
  • 级别
  • 徽章
  • 职务区版主
  • 声望+26
  • 积分25252
  • 经验434447
  • 文章25189
  • 注册2004-04-02
好,希望提供,楼主辛苦了!
asp技术学习感谢您的参与
在线情况
3
  • 头像
  • 级别
  • 徽章
  • 职务区版主
  • 声望+19
  • 积分10677
  • 经验309221
  • 文章10117
  • 注册2004-12-21
嘻嘻,偶还没有做,只是有一个思路,还解决不了后台加说明的问题。只能象原来一样管理显示个数。
asp技术学习感谢您的参与
在线情况
4
  • 头像
  • 级别
  • 徽章
  • 职务论坛版主
  • 声望+19
  • 积分8016
  • 经验326678
  • 文章8315
  • 注册2004-09-20
高手
asp技术学习感谢您的参与
在线情况
5
  • 头像
  • 级别
    • 积分588
    • 经验51289
    • 文章539
    • 注册2004-11-03
    8错,支持!
    asp技术学习感谢您的参与
    在线情况
    6
    • 头像
    • 级别
      • 积分204
      • 经验48316
      • 文章211
      • 注册2004-03-03
      支持
      asp技术学习感谢您的参与
      在线情况
      7
      • 头像
      • “名”重要脸也重要
      • 级别
      • 徽章
      • 积分1320
      • 经验120953
      • 文章1315
      • 注册2004-10-21
      能有当然好啦,支持先..
      asp技术学习感谢您的参与
      在线情况
      8
      • 头像
      • landyhan
      • 级别
        • 积分1330
        • 经验52775
        • 文章1252
        • 注册2003-08-26
        支持。。。。。。。。
        asp技术学习感谢您的参与
        在线情况
        9
        • 头像
        • 级别
          • 积分472
          • 经验23436
          • 文章450
          • 注册2004-03-21
          能提供吗,想早点看到。
          asp技术学习感谢您的参与
          在线情况
          10
          • 头像
          • 级别
          • 徽章
          • 职务区版主
          • 声望+19
          • 积分10677
          • 经验309221
          • 文章10117
          • 注册2004-12-21
          会尽快搞出来的
          asp技术学习感谢您的参与
          在线情况
          11
          • 头像
          • 级别
          • 徽章
          • 职务区版主
          • 声望+19
          • 积分10677
          • 经验309221
          • 文章10117
          • 注册2004-12-21
          已经提供了。如果不介意没有说明,可以使用
          asp技术学习感谢您的参与
          在线情况
          12
          • 头像
          • 级别
          • 徽章
          • 职务论坛版主
          • 声望+19
          • 积分8016
          • 经验326678
          • 文章8315
          • 注册2004-09-20
          厉害哦
          asp技术学习感谢您的参与
          Page created in 0.0469 seconds with 6 queries.