ASP播放视频

首先说明一下，其实没有所谓的asp播放代码。所有多媒体都是用html来播放的。不过我们可以用asp函数整合多种媒体格式判断。下面是VB代码：

 

 

<%

'*****************************************

'适用版本：scscms V2.0

'功    能：多种影音播放器转换

'过 程 名：Showmediacontent(mediaurl,w,h)

'*****************************************

Function Showmediacontent(mediaurl,w,h)

        Dim mediacontent,Str

        Str=Lcase(mediaurl)

        If Instr(Str,".swf")<>0 Then

                mediacontent="<object codeBase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width="""&w&""" height="""&h&"""><param name=""movie"" value="""&mediaurl&"""><param name=""quality"" value=""high""><param name=""wmode"" value=""opaque""><embed src="""&mediaurl&""" quality=""high"" wmode=""transparent""  pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width="""&w&""" height="""&h&"""></embed></object>"

        ElseIf Instr(Str,".flv")<>0 Or Instr(Str,".mp4")<>0 Then

               Scs_script=Scs_script&"check_plugins('Flash');"&vbcrlf

                mediacontent="<object id=""vcastr3"" data=""/scs_img/flv.swf"" width="""&w&""" height="""&h&""" type=""application/x-shockwave-flash""><param name=""movie"" value=""/scs_img/flv.swf""/><param name=""allowFullScreen"" value=""true"" /><param name=""FlashVars"" value=""xml=<vcastr><channel><item><source>"&mediaurl&"</source></item></channel></vcastr>"" /></object>"& vbcrlf

ElseIf  Instr(Str,".avi")<>0 Or Instr(Str,".wmv")<>0 Or Instr(Str,".asf")<>0 Or Instr(Str,".mov")<>0 Or Instr(Str,".mpg")<>0 Or Instr(Str,".mpeg")<>0 Then

                mediacontent="<object classid=""CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" class=""object"" id=""MediaPlayer"" width="""&w&""" height="""&h&"""><param name=""wmode"" value=""Opaque""><param name=""ShowStatusBar"" value=""1""><param name=""AutoStart"" value="""&mediaurl&"""><param name=""Filename"" value="""&mediaurl&"""><embed type=""application/x-oleobject"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"" flename=""mp"" src="""&mediaurl&""" width="""&w&""" height="""&h&"""></embed></object>"

        ElseIf Instr(Str,".rm")<>0 Or Instr(Str,".ram")<>0 Then

               Scs_script=Scs_script&"check_plugins('RealPlayer');"&vbcrlf

                mediacontent="<object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" class=""object"" id=""RAOCX"" width="""&w&""" height="""&h-30&"""><param name=""autostart"" value=""true""><param name=""src"" value="""&mediaurl&"""><param name=""console"" value=""clip1""><param name=""controls"" value=""imagewindow""></object><br><object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" id=""video2"" width="""&w&""" height=""30""><param name=""autostart"" value=""true""><param name=""src"" value="""&mediaurl&"""><param name=""autostart"" value=""-1""><param name=""controls"" value=""controlpanel""><param name=""console"" value=""clip1""></object>"

ElseIf Instr(Str,".mp3")<>0 Or Instr(Str,".wav")<>0 Or Instr(Str,".mid")<>0 Or Instr(Str,".wma")<>0 Then

        mediacontent="<embed src="""&mediaurl&""" width='"&w&"' height='"&h&"' type='application/x-mplayer2' loop='-1' showcontrols='1' ShowDisplay='0' ShowStatusBar='1' autostart='1'></embed>"

        Else

        mediacontent="<img src="""&mediaurl&""" onload=""javascript:DrawImage(this);"" onclick=""window.open(this.src);"" alt='点击将在新窗口查看全图'>"

        End If

        Showmediacontent=mediacontent

End Function

'flv.swf 是专门播放flv与mp4格式的，需要下载。mediaurl:视频地址,w:视频宽度,h:视频高度

Response.write Showmediacontent("http://www.xxx.com/up/3.rm",400,300) '调用例子

%>