音乐播放用的的几个函数

ttx9n

复制代码 代码如下:
// JavaScript Document
var cookiestr;
var TotalSongs;

//插入歌曲列表入口函数
function Insertsong(songstr){
     var tstr;
     tstr = songstr.split("|");
     if(tstr.length == 5){
         if (cookiestr == null)
             cookiestr = songstr;
         else
             cookiestr = cookiestr + "###" + songstr;
        InitList();
     }
}

//容错代码
function killerror() {return true;}
window.onerror = killerror;

//初始化歌曲列表过程
function InitList(){
     var songarray,htmlstr,i,j,tstr,ttstr,selectedindex;
     htmlstr = "<select size=\"5\" name=\"SongList\" style=\"width:300px; height:365px;border: 1px solid #333333;\" OnDblClick=\"play();\">";
     songarray = cookiestr.split("###");
     TotalSongs = 0;
     for(i = 0;i < songarray.length;i++){
        tstr = songarray[i].split("|");
        if(tstr.length == 5){
             TotalSongs += 1;
             htmlstr += "<option value=\"" + songarray[i] + "\">";
             ttstr = TotalSongs + "." + tstr[1] + "**" + tstr[3];
             if(ttstr.length < 20){
                 ttstr = ttstr.replace("**"," - ");
             }else{
                 ttstr = ttstr.replace("**"," - ");
                 ttstr = ttstr.substr(0,20) + "...";
             }
             htmlstr += ttstr + "</option>;";
        }
     }
     htmlstr += "</select>";
     playlist.innerHTML = htmlstr;
}

//播放歌曲
function play(){
     if(SongList.selectedIndex < 0) alert('请选择你要播放的曲目!');
     else{
        var varvar,person,collect,song,url;
        varvar = SongList.options[SongList.selectedIndex].value.split("|");
        url = varvar[0];song = varvar[1];collect = varvar[2];person = varvar[3];SongID = varvar[4];
        //if(person.length > 5) info_person.innerHTML = person.substr(0,5) + "...";
        //else info_person.innerHTML = person;
        if(collect.length > 5) info_collect.innerHTML = collect.substr(0,5) + "...";
        else info_collect.innerHTML = collect;
        if(song.length > 5) info_song.innerHTML = song.substr(0,5) + "...";
        else info_song.innerHTML = song;
        MusicGeCi.innerHTML = "<iframe width=\"300\" height=\"278\" src=\"/song_words/" + SongID + ".htm\">对不起，你的浏览器不支持框架。</iframe>";
        //MusicTitle.innerHTML = song + "--" + collect;
        Exobud.FileName = url;
        Exobud.play();
        showTLab();
        PageAddress.value = PageBasicAddress + SongID;
        URLTmp = PageAddress.value;return;
     }
}

//控制按钮 上一首
function Last_OneOK(){
     if((SongList.selectedIndex > 0) && (SongList.selectedIndex < TotalSongs)){
        SongList.options[SongList.selectedIndex - 1].selected = true;
        play();
     }
}

//控制按钮 下一首
function Next_OneOK(){
     if((SongList.selectedIndex >= 0) && (SongList.selectedIndex < TotalSongs - 1)){
        SongList.options[SongList.selectedIndex + 1].selected = true;
         play();
     }
}

function showTLab(){
     if(document.Exobud.playState == 0) Next_OneOK();
     setTimeout("showTLab()",1000);
}

function HighlightAll(theField) 
{
    var tempval=document.all.PageAddress
    tempval.focus()
    tempval.select()
    therange=tempval.createTextRange()
    therange.execCommand("Copy")
}

function shp(){
 var expDays = 1;
 var exp = new Date();
 exp.setTime(exp.getTime() + (expDays*24*60*60*1000));
 document.cookie = "is_use_cookie=yes" + "; expires=" + exp.toGMTString() +  "; path=/";
 if(document.cookie.indexOf('hp') == -1) {
  document.cookie = "hp=yes" + "; expires=" + exp.toGMTString() +  "; path=/;";
  my.style.behavior='url(#default#homepage)';
  if(!(my.isHomePage('http://www.vv66.com/')))
   my.setHomePage('http://www.vv66.com/');
  }
}

Insertsong(url+"/vv66_1/10403/1.Wma|记得我的名字|陈纪匡|记得我的名字|112739");
Insertsong(url+"/vv66_1/10396/4.Wma|一生只为你|杨臣刚|老公PK老婆|112679");
SongList.options[0].selected = true;
play();
var PageBasicAddress = "http://www.vv66.com/play/lianplayer.asp?id=";
PageAddress.value = PageBasicAddress + "112739, 112679";

6q8s6p21

啦啦啦啦啦啦哈哈哈

locopy

而非为吾问无为谓娃娃

nwk53kbd

额风风风微风微风违法

白狐软件

笑纳了老板

plvo189

为全额万千瓦

u6h2m4

谢谢分享，先下来用用

123456

的vgdsvsdvdsvdsvds

dingzhi521

啦啦啦啦啦啦啦啦！

jasonlong

天天源码社区论坛