Cms 订阅所有【Cms】的日志

解决弹出影院拦截...

作者:cmscn 日期:2006-12-09

字体大小: 小 中 大

一、在影院的 模板管理中
HtmlNums(12)

把框中的原来的代码都换成

<script language=javascript>
<!--
function video_view(id,fid)
{
  if (note_emoney('在线收看此影片','{$v_emoney}','{$v_power}'))
  {
  open_win('video_player.asp?id='+id+'&fid='+fid,'video_player',600,430,'no');
  }
}
-->
</script>
  <tr>
  <td width='25%'><img src='{$picurl}small_plays.gif' border=0></td>
  <td width='75%'>{$nodown}{$friend}</td>
  </tr>
  <tr><td height=2></td><td></td></tr>
  <tr><td colspan=2 align=center width='100%' class=bw>
    <table border=0 width='98%' class=tf>
    <tr><td>
    {$body}
    </td></tr>
    </table>
  </td></tr>
=========================================================================
二、把下面代码自制后，另存为一个video_player.asp文件
源码如下：
======================================================
<!-- #include file="include/con_video.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(video_dim(3),3,1))
rob_size=0
rob_debug=0 'Debug开关,可检验地址是否正确
rob_debug=int(mid(video_dim(3),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,5,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,fid)
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="video_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 onclick=""javascript:fullscreen_"&genre&"();"" value='全屏播放'>  "
  show_vs=show_vs&"<input type=button name=""g1"" onclick=""go_resize('+');"" value='宽银幕欣赏'"
  if rob_size=1 then show_vs=show_vs&" disabled"
  show_vs=show_vs&">  <input type=button name=""g2"" onclick=""go_resize('-');"" value='小屏幕欣赏'"
  if rob_size=0 and int(mid(video_dim(3),4,1))=2 then show_vs=show_vs&" disabled"
  show_vs=show_vs&">  "
%>
function go_resize(gs)
{
  var Left_size = (screen.width) ? (screen.width-480)/2 : 0;
  if (gs=="-")
  {
<%
if int(mid(video_dim(3),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(video_dim(3),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 onclick=""go_err();"" value='报告错误'>  <input type=button 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=td0> 影片名称：<%response.write vname%> ─＞ <%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>  发布人：<%response.write format_user_name(username,0,"")%>  发布时间：<%response.write joekoe_cms.time_type(tim,3)%></font><br>影片播放较慢！请耐心等待！如果确实不能播放，请下载后观看！看后请自觉删除！<br>使用了全屏幕欣赏后，按Esc键返回原屏幕！所有电影来自网络！与本站无关！</td></tr>
</table>
<%if int(mid(video_dim(3),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
%>
=====================================完======================

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 7 | 引用: 1 | 查看次数: 869
发表评论
昵　称:
密　码: 游客发言不需要密码.
内　容:
验证码: 验证码
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.
字数限制 20 字 | UBB代码 关闭 | [img]标签 关闭