<!-- #include file="include/config.asp" -->
<!-- #include file="../include/jk_emoney.asp" -->
<%
dim id,fid
id=trim(request.querystring("id"))
fid=trim(request.querystring("fid"))
if not(isnumeric(id)) or not(isnumeric(fid)) then call video_error("id")

dim rob_true,rob_size,rob_debug
rob_true=int(mid(web_dim(39),3,1))
rob_size=0
rob_debug=0 'Debug开关,可检验地址是否正确
rob_debug=int(mid(web_dim(39),2,1))

sql="select video.username,video.name,video.emoney,video.power,video.viewtype,video.tim,video.genre,video.isfree,video.server_id" & _
	",video_url.url,video_url.urlname,video_url.video_size from video_url inner join video on video_url.nameid=video.id" & _
	" where video.hidden=1 and video_url.id="&fid&" and video.id="&id
set rs=joekoe_cms.exec(sql,1)
if rs.eof then
  rs.close
  call video_error("id")
end if
dim power,emoney,vname,vtype,username,tim,genre,fname,furl,video_url,vserver,isfree
username=rs("username")
vname=rs("name")
power=rs("power")
emoney=int(rs("emoney"))
vtype=int(rs("viewtype"))
tim=rs("tim")
genre=rs("genre")
furl=rs("url")
fname=rs("urlname")
vserver=int(rs("server_id"))
isfree=rs("isfree")
rob_size=rs("video_size")
rs.close

if rob_size<>0 then rob_size=1

tit="影视欣赏"
if vtype=0 then call video_error("noplay")

call web_head(0,0,4,0,0)
'----------------------------影片播放 开始----------------------------
if not video_skin.video_free then response.write video_skin.chk_user_power(power,"播放")
dim play_true
if video_skin.video_free then
  play_true=true
else
  play_true=emoney_note(power,emoney,n_sort,id,2,"")
end if
if not play_true then
  call video_error("nopower")
end if
video_url=video_skin.video_server(vserver,0,furl)
if instr(video_url,"://")=0 then video_url=joekoe_cms.web_url&video_url
if rob_true=1 and genre<>"qt" and rob_debug=0 then
  session("play_video_url")=video_url
  session("play_video_genre")=genre
  video_url="geturl.asp"
end if
call video_play()
call video_end()
call joekoe_cms.exec("update video set counter=counter+1 where id="&id,0)
'----------------------------影片播放 结束----------------------------
call web_end(0,1)

sub video_play()
  if rob_debug=1 then response.write joekoe_cms.js_put("alert("""&video_url&""");window.close();",1)
  dim show_vs
%>
<body scroll=no status=no marginwidth=0 leftmargin=0 topmargin=0 oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">
<script language=javascript>
<!--Power By Cms.Ngbanyan.Com
function killErrors() { return true; }
window.onerror = killErrors;
<%
if genre<>"qt" then
  show_vs="<input type=button class=btn onclick=""javascript:fullscreen_"&genre&"();"" value='全屏播放'>&nbsp;&nbsp;"
  show_vs=show_vs&"<input type=button class=btn name=""g1"" onclick=""go_resize('+');"" value='宽银幕欣赏'"
  if rob_size=1 then show_vs=show_vs&" disabled"
  show_vs=show_vs&">&nbsp;&nbsp;<input type=button class=btn name=""g2"" onclick=""go_resize('-');"" value='小屏幕欣赏'"
  if rob_size=0 and int(mid(web_dim(39),4,1))=2 then show_vs=show_vs&" disabled"
  show_vs=show_vs&">&nbsp;&nbsp;"
%>
function go_resize(gs)
{
  var Left_size = (screen.width) ? (screen.width-480)/2 : 0;
  if (gs=="-")
  {
<%
	if int(mid(web_dim(39),4,1))=2 then
	  response.write "    window.resizeTo(480,530);"
	  response.write vbcrlf&"    window.moveTo(Left_size,0);"
	else
	  response.write "    eval('RPOCX.width=480');"
	  if genre="real" then response.write vbcrlf&"    eval('RP2.width=480');"
	end if
%>
    document.all.g2.disabled=true;
    document.all.g1.disabled=false;
  }
  else
  {
    Left_size = (screen.width) ? (screen.width-800)/2 : 0;
<%
	if int(mid(web_dim(39),4,1))=2 then
	  response.write "    window.resizeTo(800,530);"
	  response.write vbcrlf&"    window.moveTo(Left_size,0);"
	else
	  response.write "    eval('RPOCX.width=786');"
	  if genre="real" then response.write vbcrlf&"    eval('RP2.width=786');"
	end if
%>
    document.all.g1.disabled=true;
    document.all.g2.disabled=false;
  }
}
<%
	if rob_size=0 then
	  response.write "go_resize('-');"
	else
	  response.write "go_resize('+');"
	end if
end if
show_vs=show_vs&"<input type=button class=btn onclick=""go_err();"" value='报告错误'>&nbsp;&nbsp;<input type=button class=btn onclick=""window.close();"" value='关闭窗口'>"
%>
function go_err() { window.open("user_mail.asp?action=msg_write&accept=<%response.write web_dim(3)%>","error","width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes,menubar=yes,location=yes"); }
function os_key() { if(event.ctrlKey ==true || event.keyCode ==93 || event.shiftKey ==true) { return false; } }
document.onkeydown=os_key;
-->
</script>
<center>
<table cellspacing=1 cellpadding=1 width='100%' height='100%' align=center>
<tr height='20' valign=top><td class=td>&nbsp;影片名称：<%response.write vname%>&nbsp;─＞&nbsp;<%response.write fname%><marquee scrollamount=2 direction=left width='250'  onMouseOver=this.stop() onMouseOut=this.start()>
<span class="style5"><script language=javascript src='ads/ads_dianying.js'></script></span>
</marquee></td></tr>
<tr height='100%' align=center valign=top><td class=bg_td>
<table border=0 width='100%' height='100%' align=cnter>
<tr valign=top><td width="100%" align=center>
<%
select case genre
case "qt"
  video_skin.HtmlNums(17)
case "real"
  video_skin.HtmlNums(15)
  video_skin.HtmlRcod "web_name",joekoe_cms.web_name
  video_skin.HtmlRcod "web_uname",username
case else
  video_skin.HtmlNums(16)
end select
video_skin.HtmlRcod "video_url",video_url
video_skin.HtmlView(0)
%>
</td></tr>
<tr valign=top><td align=center><%response.write show_vs%></td></tr>
</table>
</td></tr>
<tr height='20' valign=top><td class=bg_tds align=center><font class=gray><a href='<%response.write joekoe_cms.web_url%>'><%response.write joekoe_cms.web_name%></a>&nbsp;&nbsp;发布人：<%response.write format_user_name(username,0,"")%>&nbsp;&nbsp;发布时间：<%response.write joekoe_cms.time_type(tim,3)%></font><br>影片播放较慢！请耐心等待！如果确实不能播放，请下载后观看！看后请自觉删除！<br>使用了全屏幕欣赏后，按Esc键返回原屏幕！所有电影来自网络！与『亿百网络』无关！</td></tr>
</table>
<%if int(mid(web_dim(39),4,1))<>2 and rob_size=0 and genre<>"qt" then response.write joekoe_cms.js_put("go_resize('-');",1)%>
</center>
</body>
</html>
<%
end sub
%>