swot分析内部因素:播放器代码错误

下面的:

Sub player_OnBuffering(lFlags,lPercentage)
if (lPercentage=100) then
StartPlay=false
if (FirstPlay) then
FirstPlay=false
end if
exit sub
end if
End Sub
Sub player_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString)
select case player.GetLastErrorRMACode()
case -2147221496
window.alert(ERR_FileNotFind)
case -2147221433,-2147221428,-2147221417,-2147217468
window.alert(ERR_NotLocateServer)
case else
window.alert(ERR_UnkownError)
end select
End Sub
</script>
<object id="r_player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="0" height="0">
<param name="_ExtentX" value="8361">
<param name="_ExtentY" value="1402">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="CONTROLS" value="StatusBar,ControlPanel">
<param name="CONSOLE" value="clip1">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<embed src="3942" width="0" height="0" autostart="-1" loop="-1" _extentx="3942" _extenty="3466" shuffle="0" prefetch="0" nolabels="-1" controls="StatusBar,ControlPanel" console="clip1" numloop="0" center="0" maintainaspect="0" backgroundcolor="#000000"></embed>
</object>
<SCRIPT language=VBS>
r_player.SetWantMouseEvents(true)
sub r_player_OnRButtonDown(MK_RBUTTON,xx,yy)
alert("请使用下面的控制面板进行操作！")
end sub
sub r_player_OnStateChange(oldStatus,newStatus)
select case newStatus
case 0
playStatus.value="停止播放"
playerstate.src="play/r8_c11_off.gif"
playbutton.src="play/r8_c11_on.gif"
case 1
playStatus.value="正在连接"
playerstate.src="play/m_linking.gif"
case 2
playStatus.value="正在载入"