'最近发现老有人问及在线播放器的问题 '在下做了一个利用MS Media Player的组件的在线播放器, '并且可以随时下载MS最新有播放组件 '这是一个在线媒体播放器的代码 <html> <head> 在线Media Player </head> <body> <script language="VBScript"> sub setFullScreen(x) MediaPlayer.DisplaySize = x end sub sub Player_Click( Button, ShiftState, x, y ) if MediaPlayer.DisplaySize=3 then MediaPlayer.DisplaySize = 4 end if end sub </script> <p align="center"> <OBJECT ID="MediaPlayer" width=160 height=182 align=absmiddle border=0 classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95" codebase= "http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" standby="正在下载播放控件..." type="application/x-oleobject"> <PARAM NAME="FileName" VALUE="ftp://ftp.pcvr2000.net/pub/game/movie/WorldSoccer.mpg"> <PARAM NAME="ShowStatusBar" VALUE="True"> <PARAM NAME="ShowCaptioning" VALUE="True"> <PARAM NAME="ShowPositionControls" VALUE="True"> <EMBED type="application/x-mplayer2" pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/" SRC="demo.asx" name="MediaPlayer" |