全屏显示
********************************************************
________________________________________________________
<SCRIPT LANGUAGE="vbScript">
dim i
sub redirectPage()
if MediaPlayer21.FileName<>"" and i<>1 then
MediaPlayer21.DisplaySize=3
call mediaplayer21.pause
call mediaplayer21.play
end if
end sub
sub play()
if MediaPlayer21.FileName<>"" then
MediaPlayer21.DisplaySize=0
i=0
call mediaplayer21.play
end if
end sub
sub pause()
if MediaPlayer21.FileName<>"" and i<>1 then
call mediaplayer21.pause
end if
end sub
sub stopp()
if MediaPlayer21.FileName<>"" then
call mediaplayer21.stop
MediaPlayer21.CurrentPosition=0
i=1
end if
end sub