用flash播放器播放，应该如何做。分不够再加。请给个例子，有源码最好。
非常感谢
------解决方案--------------------
<%
Set rsa = server.CreateObject("adodb.recordset")
sql = "select top 1 * from pf_movie where pf_movie_near=true order by pf_movie_order asc"
rsa.Open sql, conn, 1, 1
Do While Not rsa.EOF
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="340" height="255" id="FLVPlayer">
<param name="movie" value="FLVPlayer_Progressive.swf" />
<param name="salign" value="lt" />
<param name="quality" value="high" />
<param name="scale" value="noscale" />
<param name="FlashVars" value="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rsa("pf_uploadfile")%>&autoPlay=false&autoRewind=false" />
<embed src="FLVPlayer_Progressive.swf" flashvars="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rsa("pf_uploadfile")%>&autoPlay=false&autoRewind=false" quality="high" scale="noscale" width="340" height="255" name="FLVPlayer" salign="LT" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
<%
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>