Asp adds a wma video file to the background for foreground display
Last Update:2018-12-08
Source: Internet
Author: User
To add a wma video file to the background using asp, the added video file is displayed on the foreground.
The implemented asp code is as follows:
Copy code The Code is as follows: <table border = 1 cellPadding = 4 cellSpacing = 0 width = 500 align = center>
<Tr>
<Td width = "236" align = center class = tdc1> </td>
</Tr>
<%
Lurl = "phage1.wma"
%>
<Tr>
<Td valign = middle>
<%
Select case Lcase (right (lurl, 4 ))
Case ". swf"
%>
<P align = center>
<Object classid = clsid: D27CDB6E-AE6D-11cf-96B8-444553540000 CODEBASE = http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 WIDTH = 541 HEIGHT = 374>
<Param name = movie VALUE = <% = lurl %> <param name = quality VALUE = high> <embed src = <% = lurl %> QUALITY = high PLUGINSPAGE = http://www.macromedia.com/shockwave/download/index.cgi? P1_Prod_Version = ShockwaveFlash TYPE = application/x-shockwave-flash WIDTH = 541 HEIGHT = 374> </EMBED>
</OBJECT>
<%
CASE ". mpg"
%>
<P align = center>
<Object align = middle classid = CLSID: 22d6f312-b0f6-11d0-94ab-0080c74c7e95 class = OBJECT id = MediaPlayer width = 500 height = 350>
<Param name = ShowStatusBar value =-1>
<Param name = Filename value = <% = replace (lurl, chr (32), "% 20", 1) %>
<Embed type = application/x-oleobject codebase = http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename = mp src = <% = replace (lurl, chr (32), "% 20", 1) %> width = 500 height = 100> </embed>
</Object>
<%
CASE ". mp3", ". mid", ". wma"
%>
<P align = center>
<Object align = middle classid = CLSID: 22d6f312-b0f6-11d0-94ab-0080c74c7e95 class = OBJECT id = MediaPlayer width = 500 height = 91>
<Param name = ShowStatusBar value =-1>
<Param name = Filename value = <% = replace (lurl, chr (32), "% 20", 1) %>
<Embed type = application/x-oleobject codebase = http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename = mp src = <% = replace (lurl, chr (32), "% 20", 1) %> width = 500 height = 91> </embed>
</Object>
<%
Case else
Select case Lcase (right (lurl, 3 ))
Case ". rm"
%>
<P align = center>
<OBJECT classid = clsid: CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class = OBJECT id = RAOCX width = 500 height = 350>
<Param name = src value = <% = lurl %> <param name = console value = Clip1>
<Param name = controls value = imagewindow> <param name = autostart value = true>
</OBJECT>
<Br>
<OBJECT classid = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height = 32 id = video2 width = 500>
<Param name = src value = <% = lurl %> <param name = autostart value =-1>
<Param name = controls value = controlpanel> <param name = console value = Clip1>
</OBJECT>
<%
Case ". ra"
%>
<P align = center>
<OBJECT classid = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height = 32 id = video2 width = 500>
<Param name = src value = <% = lurl %> <param name = autostart value =-1>
<Param name = controls value = controlpanel> <param name = console value = Clip1>
</OBJECT>
<%
Case else
%>
<P align = center>
<Embed name = player src = <% = lurl %> type = audio/x-pn-realaudio-plugin width = 300 height = 350 border = 0 autostart = 1> </embed>
<%
End select
End select %>
</Td>
</Table>