asp实现后台添加wma视频文件前台显示

<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>