'最近發現老有人問及線上播放器的問題
'在下做了一個利用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"
