上一篇
下一篇
Audio Player调试成功，听歌了！
作者:小锋 日期:2007-09-30
来听歌吧！来自“sweetbox”的《Don't push me》
音乐播放器（当前文件：sweetbox-Don't push me）在别人的BLOG上看到款不错的播放器，想移植过来，看了些网上的教程，可是很多都不详细，而且设置不了自动播放，这让我很郁闷，干脆自己研究，总结出网上的给出的代码只是单纯的音乐添加，而且不能设置参数，最后我在代码添加了一处正则表达，来获取设置参数，下面把代码放出来，便于以后查看,需要此帮助的可以给我留言，这个代码是针对PJBLOG的！
程序代码Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
tmpStr3=strMatch.SubMatches(2)
strContent = Replace(strContent,strMatch.Value,"<div class=""UBBPanel""><div class=""UBBTitle""><img src=""images/music.gif"" style=""margin:0px 2px -3px 0px"" alt=""迷你音乐播放器""/> 音乐播放器（歌曲："&tmpStr3&"）</div><div class=""UBBContent""><object type=""application/x-shockwave-flash"" data=""images/audioplayer.swf"" width=""290"" height=""24"" id=""audioplayer1""><param name=""movie"" value=""images/audioplayer.swf"" /><param name=""FlashVars"" value=""playerID=1&autostart="&tmpStr2&"&bg=0xCDDFF3&leftbg=0x357DCE&lefticon=0xF2F2F2&rightbg=0x357DCE&rightbghover=0x4499EE&righticon=0xF2F2F2&righticonhover=0xFFFFFF&text=0x357DCE&slider=0x357DCE&track=0xFFFFFF&border=0xFFFFFF&loader=0x8EC2F4&soundFile="&tmpStr1&""" /><param name=""quality"" value=""high"" /><param name=""menu"" value=""false"" /><param name=""wmode"" value=""transparent"" /></object></div></div>")
Next
--------------------11月3日更新---------------------------------------
有人问具体的操作步骤，其实我也记得不是太清楚了，回忆了一下应该是这样的
先下载这个插件，然后释放到相应的目录下，然后
header.asp
在<script type="text/javascript" src="common/common.js"></script>
这个的前或者后面加上
<script type="text/javascript" src="common/audioplayer.js"></script>
打开 common 文件夹下的 ubbcode.asp 文件，在“-----------多媒体标签-----------”的上面加入以下代码：（也就是我这篇文章里的那段代码）
程序代码Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
tmpStr3=strMatch.SubMatches(2)
strContent = Replace(strContent,strMatch.Value,"<div class=""UBBPanel""><div class=""UBBTitle""><img src=""images/music.gif"" style=""margin:0px 2px -3px 0px"" alt=""迷你音乐播放器""/> 音乐播放器（歌曲："&tmpStr3&"）</div><div class=""UBBContent""><object type=""application/x-shockwave-flash"" data=""images/audioplayer.swf"" width=""290"" height=""24"" id=""audioplayer1""><param name=""movie"" value=""images/audioplayer.swf"" /><param name=""FlashVars"" value=""playerID=1&autostart="&tmpStr2&"&bg=0xCDDFF3&leftbg=0x357DCE&lefticon=0xF2F2F2&rightbg=0x357DCE&rightbghover=0x4499EE&righticon=0xF2F2F2&righticonhover=0xFFFFFF&text=0x357DCE&slider=0x357DCE&track=0xFFFFFF&border=0xFFFFFF&loader=0x8EC2F4&soundFile="&tmpStr1&""" /><param name=""quality"" value=""high"" /><param name=""menu"" value=""false"" /><param name=""wmode"" value=""transparent"" /></object></div></div>")
Next
程序代码发文章是用
{mp3=http://www.xxx.com/xxx.mp3,no}歌曲名字{/mp3}
用的时候把这个{}花括号换成[]
按这种格式写，想自动播放就吧no改成yes 以前别人发的这个插件是不可以设置自动播放的。
{mp3=http://www.xxx.com/xxx.mp3,no}歌曲名字{/mp3}
用的时候把这个{}花括号换成[]
按这种格式写，想自动播放就吧no改成yes 以前别人发的这个插件是不可以设置自动播放的。
11月15日更新，由于blog更新为最新的build05，所以顺便把播放器的代码更新了一下，解决同时播放不唯一的问题
程序代码re.Pattern = "\[mp3=(.[^\]]*)\,(.[^\]]*)\](.[^\[]*)\[\/mp3]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
tmpStr3=strMatch.SubMatches(2)
rndID2=Int(100000 * Rnd)
rndID="audioplayer"&rndID2
strContent = Replace(strContent,strMatch.Value,"<div class=""UBBPanel""><div class=""UBBTitle""><img src=""images/kmp.gif"" style=""margin:0px 2px -3px 0px"" alt=""迷你音乐播放器""/> 音乐播放器（歌曲："&tmpStr3&"）</div><div class=""UBBContent""><object type=""application/x-shockwave-flash"" data=""kmp/audioplayer.swf"" width=""290"" height=""24"" id="""&rndID&"""><param name=""movie"" value=""kmp/audioplayer.swf"" /><param name=""FlashVars"" value=""playerID="&rndID2&"&autostart="&tmpStr2&"&bg=0xCDDFF3&leftbg=0x357DCE&lefticon=0xF2F2F2&rightbg=0x357DCE&rightbghover=0x4499EE&righticon=0xF2F2F2&righticonhover=0xFFFFFF&text=0x357DCE&slider=0x357DCE&track=0xFFFFFF&border=0xFFFFFF&loader=0x8EC2F4&soundFile="&tmpStr1&""" /><param name=""quality"" value=""high"" /><param name=""menu"" value=""false"" /><param name=""wmode"" value=""transparent"" /></object></div></div>")
Next
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
tmpStr3=strMatch.SubMatches(2)
rndID2=Int(100000 * Rnd)
rndID="audioplayer"&rndID2
strContent = Replace(strContent,strMatch.Value,"<div class=""UBBPanel""><div class=""UBBTitle""><img src=""images/kmp.gif"" style=""margin:0px 2px -3px 0px"" alt=""迷你音乐播放器""/> 音乐播放器（歌曲："&tmpStr3&"）</div><div class=""UBBContent""><object type=""application/x-shockwave-flash"" data=""kmp/audioplayer.swf"" width=""290"" height=""24"" id="""&rndID&"""><param name=""movie"" value=""kmp/audioplayer.swf"" /><param name=""FlashVars"" value=""playerID="&rndID2&"&autostart="&tmpStr2&"&bg=0xCDDFF3&leftbg=0x357DCE&lefticon=0xF2F2F2&rightbg=0x357DCE&rightbghover=0x4499EE&righticon=0xF2F2F2&righticonhover=0xFFFFFF&text=0x357DCE&slider=0x357DCE&track=0xFFFFFF&border=0xFFFFFF&loader=0x8EC2F4&soundFile="&tmpStr1&""" /><param name=""quality"" value=""high"" /><param name=""menu"" value=""false"" /><param name=""wmode"" value=""transparent"" /></object></div></div>")
Next
在上面要加个对rndid2的定义
文章来自: 
引用通告: 
Tags: 评论: 4 | 引用: 0 | 查看次数: -
发表评论
谢谢!