在线情况
楼主
  • 头像
  • 级别
  • 徽章
  • 积分6331
  • 经验19087
  • 文章892
  • 注册2004-04-11
论坛导航(跑马灯效果),为你论坛新加一道风景线
把下列红色代码加到[COLOR=blue]leadbbs/inc/Board_Popfun.asp[/COLOR]里面
即是[COLOR=blue]<img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><%If GBL_SiteHeadString = "" Then Response.Write "  "
                       If GBL_CHK_User <> "" Then
                             Select Case Hour(DEF_Now)
                             Case 0,1:Response.Write "凌晨"
                             Case 2,3,4:Response.Write "深夜"
                             Case 5,6,7,8,9,10:Response.Write "早上"
                             Case 11,12,13:Response.Write "中午"
                             Case 14,15,16,17:Response.Write "下午"
                             Case 18:Response.Write "黄昏"
                             Case 19,20,21,22,23:Response.Write "晚上"
                             End Select
                             Response.Write "好,<a href=" & DEF_BBS_HomeUrl & "User/LookUserInfo.asp>" & htmlEncode(GBL_CHK_User) & "</a> "[/COLOR]的上面
[COLOR=red]
<script language="JavaScript">
<!--
function statusMessageObject(p,d) {
this.msg = MESSAGE
this.out = " "
this.pos = POSITION
this.delay = DELAY
this.i = 0
this.reset = clearMessage
}
function clearMessage() {
this.pos = POSITION
}
var POSITION = 100
var DELAY = 5
var MESSAGE = "此效果请打开LeadBBS/inc/Board_Popfun.asp文件自行修改!"
var scroll = new statusMessageObject()
function scroller() {
for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) {
scroll.out += " "
}
if (scroll.pos >= 0)
scroll.out += scroll.msg
else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length)
window.status = scroll.out
scroll.out = " "
scroll.pos--
if (scroll.pos < -(scroll.msg.length)) {
scroll.reset()
}
setTimeout ('scroller()',scroll.delay)
}
function snapIn(jumpSpaces,position) {
var msg = scroll.msg
var out = ""
for (var i=0; i<position; i++)
{out += msg.charAt(i)}
for (i=1;i<jumpSpaces;i++)
{out += " "}
out += msg.charAt(position)
window.status = out
if (jumpSpaces <= 1) {
position++
if (msg.charAt(position) == ' ')
{position++ }
jumpSpaces = 100-position
} else if (jumpSpaces > 3)
{jumpSpaces *= .75}
else
{jumpSpaces--}
if (position != msg.length) {
var cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
} else {
window.status=""
jumpSpaces=0
position=0
cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
return false
}
return true
}
snapIn(100,0);
 -->
</script>[/COLOR]
[ 这个贴子最后由秋天在2004-10-26 3:37:36编辑过 ]
asp技术学习感谢您的参与
在线情况
2
  • 头像
  • 级别
  • 徽章
  • 积分6331
  • 经验19087
  • 文章892
  • 注册2004-04-11
[COLOR=red]欢迎使用『 蚂 蚁 洞 』论坛全插件版!如对此版本有什么疑问Q我:58769930,我会尽量帮助您[/COLOR]自己修改一下就可以了~~~~~```
asp技术学习感谢您的参与
在线情况
3
  • 头像
  • 级别
    • 积分202
    • 经验25955
    • 文章193
    • 注册2003-12-31
    第一个
    asp技术学习感谢您的参与
    在线情况
    4
    • 头像
    • 级别
      • 积分670
      • 经验38728
      • 文章707
      • 注册2004-03-28
      asp技术学习感谢您的参与
      在线情况
      5
      • 头像
      • 江湖相忘
      • 级别
        • 积分1409
        • 经验35625
        • 文章1270
        • 注册2004-03-18
        顶一下!
        asp技术学习感谢您的参与
        在线情况
        6
        • 头像
        • 级别
          • 积分44
          • 经验2730
          • 文章46
          • 注册2004-06-17
          d
          asp技术学习感谢您的参与
          在线情况
          7
          • 头像
          • 大叔
          • 级别
          • 徽章
          • 声望+2
          • 积分1018
          • 经验109690
          • 文章1014
          • 注册2004-01-13
          5
          asp技术学习感谢您的参与
          在线情况
          8
          • 头像
          • 级别
            • 积分113
            • 经验2393
            • 文章122
            • 注册2004-05-30
            see
            asp技术学习感谢您的参与
            在线情况
            9
            • 头像
            • 级别
              • 积分158
              • 经验6547
              • 文章172
              • 注册2004-07-01
              sgsg
              asp技术学习感谢您的参与
              在线情况
              10
              • 头像
              • 级别
                • 积分187
                • 经验3880
                • 文章188
                • 注册2004-04-16
                22
                asp技术学习感谢您的参与
                在线情况
                11
                • 头像
                • 级别
                  • 积分254
                  • 经验23020
                  • 文章273
                  • 注册2003-10-30
                  2
                  asp技术学习感谢您的参与
                  在线情况
                  12
                  • 头像
                  • 级别
                    • 积分543
                    • 经验25515
                    • 文章530
                    • 注册2003-06-27
                    看看!
                    asp技术学习感谢您的参与
                    Page created in 0.0195 seconds with 4 queries.