<script LANGUAGE="javaScript">
var ERR_NonePlayer="荆州古城影视提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="荆州古城影视提示您:本片在线人数过多，服务器限制，请抢线或稍后观看！^_^";
var ERR_NotLocateServer="荆州古城影视提示您:服务器忙，请多试几次，或稍后观看！！^_^";
var ERR_UnkownError="荆州古城影视提示您:当前您所在的服务器在线人数过多，服务器限制，请换其它类的片子看看先;按F5抢线或稍后观看！^_^";
</script>
<script LANGUAGE="VBScript">
<%on error resume next
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n');
RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))
if not RealPlayerG2 and RealPlayer5 and RealPlayer4 then
if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then
window.location = "http://www3.skycn.com/soft/6404.html"
end if
end if
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 playerr.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="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="488" height="405">
<param name=_ExtentX value=12356>
<param name=_ExtentY value=8731>
<param name=AUTOSTART value=-1>
<param name=SHUFFLE value=0>
<param name=PREFETCH value=0>
<param name=NOLABELS value=0>
<param name='SRC' value='down_body.asp?id=<%=Rq("id")%>'>
<param name=CONTROLS value=ImageWindow>
<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>
</object>