骨感魚哥 发表于 2016-8-26 20:23:21

求助啊。。ASP代码问题 可以付费解决~

本帖最后由 骨感魚哥 于 2016-8-26 20:31 编辑

程序是MOVCMS可以付费解决~

http://www.dianying05.com/play/?play_4829_1_1.htmlMicrosoft VBScript 运行时错误 错误 '800a0009'下标越界: ''/apps/play.asp，行 210
<!DOCTYPE html><html xmlns="http://www.w3.org/1999/xhtml"><meta http-equiv="Content-Type" content="text/html; charset=gbk" /><div align="center"><head><!--#include file="../Include/QvodCms.Lable.asp"--><style type="text/css">body,html,div{background-color:#000;padding:0;margin:0;width:100%;height:100%;}.err{ color:#FFF}</style></head><body marginwidth="0" marginheight="0"><%a_ID=Request.QueryString("url"):a_If=Request.QueryString("a"):v1=Cstr(Request.ServerVariables("HTTP_REFERER")):Call PlaySn(v1)%><div id="player"><script type="text/javascript" src="/js/swf/player.js" charset="utf-8"></script><script type="text/javascript" src="http://apps.bdimg.com/libs/jquery/1.7.2/jquery.js" charset="utf-8"></script><script type="text/javascript">var is_mobile = navigator.userAgent.match(/iPad|iPhone|Android|Linux|iPod/i)!= null,play_url = re('/apps/?a_ID=<%=a_ID%>&a_If=<%=a_If%>'),ext= play_url.split("$$$");if(is_mobile){document.getElementById('player').innerHTML='<video width="100%" height="100%" autoplay="autoplay" controls="controls"><source src="'+ base64_decode(ext) +'" ></video>';}else{if(ext=='mp4'){var flashvars = {f:encodeURIComponent(base64_decode(ext)),s: 0,p: 1,c: 0,e: 1,h: 4,v:100};}        //普通模式else if(ext=='xml'){var flashvars = {f:encodeURIComponent(base64_decode(ext)),s:2,p:1,v:100};}        //普通模式else{var flashvars = {f: "/js/swf/m3u8.swf",a: encodeURIComponent(base64_decode(ext)),c: 0,s: 4,p: 1,lv: 0,e: 1,v:100};}//高速m3u8模式var params={bgcolor:'#000',allowFullScreen:true,allowScriptAccess:'always'};CKobject.embed('/js/swf/player.swf', 'player', 'ckplayer_a1', '100%', '100%',false, flashvars,params);}</script></div></body></html>
















































































































































































<%sub PlaySn(vs)        If vs="" then          Response.Write "<b class=err>Ref_Err</b>"          Response.End()        Else           V2=replaceStr(Split(Config(9),".")(1)&"."&Split(Config(9),".")(2),"/","")            V3=Instr(vs,v2)           If V3<1 Then Response.Write "<b class=err>Ref_Err</b>":Response.End()         End ifEnd Sub%>

西单女孩 发表于 2016-8-27 11:48:07

二次开发了 还是咋回事

logo设计专家 发表于 2016-8-27 11:52:02

数组出问题
看看是不是添加的数据漏掉了什么

骨感魚哥 发表于 2016-8-27 16:47:32

logo设计专家 发表于 2016-8-27 11:52
数组出问题
看看是不是添加的数据漏掉了什么

搞定了，原来是后台域名填错了。。~！
页: [1]
查看完整版本: 求助啊。。ASP代码问题 可以付费解决~