数据开放平台:ASP在音乐下载中那个试听的功能是怎么实现的？

以下是我做的试听的页面，在另外一页传来一个歌曲ID，地址我已经存在数据库了，取出地址，就可以判断出是不是RM格式，如果是RM就是REALPLAY放，如果不是就用MEDIAPLAY放。

　　<%
　　dim sid,addstr,playrm,music_add
　　sid=Request("sid") '获取播放歌曲的ID'
　　playoff="true" '给播放开关附值'

　　if sid="" then playoff="false" '如果获取ID失败，即关闭播放器'

　　if sid<>"" then '获取成功'
　　set rsts=Server.createobject("adodb.recordset")
　　sqls="Select * from music where id="&sid

　　rsts.open sqls,conn,1,1
　　music_add=rsts("music_add") '获取文件地址'
　　add_str=right(trim(Rsts("music_add")),3) '获取扩展名'
　　if instr(add_str,"rm")>0 or instr(add_str,"ram")>0 then '判断是什么格式'
　　playrm=1 '为RM格式启动相应播放器'

　　else
　　playrm=0
　　end if
　　%>
　　<% if playrm=0 then %>
　　<object id="mplayer" width="460" height="68" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
　　codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
　　align="baseline" border="0" standby="Loading Microsoft Windows Media Player components..."
　　type="application/x-oleobject">
　　<param name="FileName" value="<%=music_add%>">
　　<param name="ShowControls" value="1">
　　<param name="ShowPositionControls" value="0">
　　<param name="ShowAudioControls" value="1">
　　<param name="ShowTracker" value="1">
　　<param name="ShowDisplay" value="0">
　　<param name="ShowStatusBar" value="1">
　　<param name="AutoSize" value="0">
　　<param name="ShowGotoBar" value="0">
　　<param name="ShowCaptioning" value="0">
　　<param name="AutoStart" value="1">
　　<param name="PlayCount" value="0">
　　<param name="AnimationAtStart" value="0">
　　<param name="TransparentAtStart" value="0">
　　<param name="AllowScan" value="0">
　　<param name="EnableContextMenu" value="1">
　　<param name="ClickToPlay" value="0">
　　<param name="InvokeURLs" value="1">
　　<param name="DefaultFrame" value="datawindow">

　　<embed src="<%=music_add%>" align="baseline" border="0" width="460" height="68"
　　type="application/x-mplayer2"
　　pluginspage="http://www.microsoft.com/isapi/redir.dll?prd=windows&sbp=mediaplayer&ar=media&sba=plugin&"
　　name="MediaPlayer" showcontrols="1" showpositioncontrols="0"
　　showaudiocontrols="1" showtracker="1" showdisplay="0"
　　showstatusbar="1"
　　autosize="0"
　　showgotobar="0" showcaptioning="0" autostart="1" autorewind="0"
　　animationatstart="0" transparentatstart="0" allowscan="1"
　　enablecontextmenu="1" clicktoplay="0" invokeurls="1"
　　defaultframe="datawindow">
　　</embed>
　　</object>

　　<%else%>

　　<embed name="rplayer" type="audio/x-pn-realaudio-plugin" src="<%=music_add%>"
　　controls="ControlPanel,StatusBar" width=460 height=68 border=0 autostart=true loop=true>
　　</embed>

　　<% end if

　　end if%>

插入媒体播放器代码，上网找一下就有了。