请问下面一段代码怎么修改才可以实现.QvodSetup播放器的调用.谢谢
<!-- #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
%>
