想用asp来实现后台添加wma视频文件,前台显示所添加的这个视频文件。
可以实现的asp代码如下:
代码如下:
<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=http://www.popasp.com/>
</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=http://www.popasp.com/-1>
<param name=Filename value=http://www.popasp.com/>
<PARAM NAME=CONTROLS VALUE=http://www.popasp.com/imagewindow>
</OBJECT>
<br>
<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500>
<PARAM NAME=SRC VALUE=http://www.popasp.com/>
<PARAM NAME=CONTROLS VALUE=http://www.popasp.com/controlpanel>
</OBJECT>
<%
case ".ra"
%>
<p align=center>
<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500>
<PARAM NAME=SRC VALUE=http://www.popasp.com/>
<PARAM NAME=CONTROLS VALUE=http://www.popasp.com/controlpanel>
</OBJECT>
<%
case else
%>
<p align=center>
<embed name=player src=http://www.popasp.com/ type=audio/x-pn-realaudio-plugin width=300 height=350 border=0 autostart=1>
<%
end select
end select%>
</td>
</table>