复制代码 'flv code If InStr(Ubblists,",43,")>0 Or sType=1 Then s=Dv_UbbCode_iS2(s,"flv",_ "<div id=magic><object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""$1"" height=""$2"" id=""magicplayer"">"&_ "<param name=""movie"" value=""magicplayer.swf?file=$3&autostart=true"" /><param name=""allowfullscreen"" value=""true""><param name=""quality"" value=""high"" />"&_ "<embed "& DV_UBB_TITLE &" src=""magicplayer.swf?file=$3&autoplay=true"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""$1"" height=""$2"">$3</embed></object></div>",_ "<div><object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""$1"" height=""$2"">"&_ "<param name=""movie"" value=""magicplayer.swf?file=$3&autoplay=true"" /><param name=""allowfullscreen"" value=""true""><param name=""quality"" value=""high"" />"&_ "<embed "& DV_UBB_TITLE &" src=""magicplayer.swf?file=$3&autoplay=true"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""$1"" height=""$2"">$3</embed></object></div>"& replace(Mtinfo,"$4","$3"),_ PostUserGroup,Cint(Board_Setting(9) * mt),"=*([0-9]*),*([0-9]*)") 'Dv7 RealPlayer自定义播放模式： s=Dv_UbbCode_iS2(s,"flv",_ "<div><object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""$1"" height=""$2"">"&_ "<param name=""movie"" value=""magicplayer.swf?file=$4&autoplay=$3"" /><param name=""allowfullscreen"" value=""true""><param name=""quality"" value=""high"" />"&_ "<embed "& DV_UBB_TITLE &" src=""magicplayer.swf?file=$4&autoplay=true"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""$1"" height=""$2"">$4</embed></object></div>",_ "<div><object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""$1"" height=""$2"">"&_ "<param name=""movie"" value=""magicplayer.swf?file=$4&autoplay=true"" /><param name=""allowfullscreen"" value=""true""><param name=""quality"" value=""high"" />"&_ "<embed "& DV_UBB_TITLE &" src=""magicplayer.swf?file=$4&autoplay=true"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""$1"" height=""$2"">$4</embed></object></div>"&_ Mtinfo,PostUserGroup,Cint(Board_Setting(9) * mt),"=*([0-9]*),*([0-9]*),*([0|1|true|false]*)") End If

复制代码 Dim Dv_ubb(55),i

复制代码 Dv_ubb(55)="[/flv]"

复制代码 For i=14 to 55

复制代码 case'flv':ubb='flv';au='';break;

复制代码 <select id="'+this.p.x.w+'_media_type" class="dveditborder" /><option value="">类型</option><option value="flv">flv</option><option value="swf">flash</option><option value="mp">mp3</option><option value="mp">wmv</option><option value="mp">avi</option><option value="mp">asf</option><option value="mp">mov</option><option value="rm">rm</option><option value="rm">rmvb</option><option value="rm">ram</option><option value="rm">ra</option></select>