<Script language=javascript>
function vote_open(id,path)
{ window.open("vote.asp?id="+id+"&ppath="+path,"","height=100,width=200,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no,scrolling=no");
}
</Script>
<Script>
if (window != top) top.location.href = location.href;
//self.moveTo(0,0);
self.resizeTo(100%,600);
<Script language=javaScript>
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:播放本片人数已达1000人请按F5刷新抢线或换其它影片";
var ERR_NotLocateServer="播放器提示您:播放本片人数已达1000人请按F5刷新抢线或换其它影片";
var ERR_UnkownError="播放器提示您:播放本片人数已达1000人请按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://count.skycn.com/s0ftdownlOad.php?id=6404&url=http://js-http.skycn.net:8080/down/RealPlayer10-5GOLD_cn.exe"
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 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>
您当前的位置：美女频道 -> 图片中心 -> 美女写真 -> 文章内容
===
[
]
[返回上一页]
[打 印]
[收 藏]
