|
mdir
- 新手上路
- 10
- 10
-
2009-06-01
|
mdir
2009-09-23 12:04
|只看楼主
1#
t
T
前段时间在网上搜QVOD电影资源，看到有一个电影网站（网址忘记了）使用的是品络影视系统，他的电影网站的Qvod电影资源是含“|”这个符号的，我给他留言向他要movie.asp和play.asp两个文件，他不给，还说他所有的系统是自己开发的......... 没办法，一直以来我就只能添加http://开头的电影资源。（从七月份开始一直等品络影视系统3.0，可是两个月过去了还是什么音讯也没有。。。。。） 昨天在网上搜了下，终于搞定添加Qvod影片地址含“|”符号。 下面就把我的方法告诉大家，喜欢就顶下。 注：操作前请先备份movie.asp和play.asp这两个文件。1、保证你安装的是最新的品络影视系统2.0版（请从官方网上下载）下载地址： http://www.pinluo.com/download_cms.asp?get=vod2、把movie.asp文件 - <%Function url_(zt_url,zt_id,n,m,PL_type)
- 'PL_type也就是文件名，可选参数：down和play
- url_=""
- zt_url=replace(zt_url,chr(10),"")
- zt_url=replace(zt_url,chr(13),"#")
- zt_url=replace(zt_url,"##","")
- If Right(zt_url,1)="#" Then zt_url=Mid(zt_url,1,Len(zt_url)-1)
- a=split(zt_url,"#")
- b=ubound(a)
- for i=0 to b
- if i<9 then
- ii="0"&i+1
- else
- ii=i+1
- end if
- c=Split(a(i),"|")
- d=UBound(c)
- If d>0 Then
- For iii=0 To d
- url_=url_&"<a onclick=""OpenWindow('"&PL_type&".asp?film2="&film2&"&film1="&film1&"&PL_n="&i+1&"',500,380);"" href=""javascript:""><font color=#FFFF00>第"&ii&"-"&iii+1&"集</font></a> "&chr(13)
- Next
- Else
- If Left(a(i),2)="没有" Then
- If InStr(a(i),"$")>0 Then
- url_=url_&"<a style=""background:#FFF;"">"&Split(a(i),"$")(1)&"</a> "&chr(13)
- Else
- url_=url_&"第"&ii&"集暂缺"&chr(13)
- End If
- Else
- If InStr(a(i),"$")>0 Then
- url_=url_&"<a onclick=""OpenWindow('"&PL_type&".asp?film2="&film2&"&film1="&film1&"&PL_n="&i+1&"',500,380);"" href=""javascript:""><font color=#FFFF00>"&Split(a(i),"$")(0)&"</font></a> "&chr(13)
- Else
- url_=url_&"<a onclick=""OpenWindow('"&PL_type&".asp?film2="&film2&"&film1="&film1&"&PL_n="&i+1&"',500,380);"" href=""javascript:""><font color=#FFFF00>第"&ii&"集</font></a> "
- End If
- End if
- End If
- next
- End Function
- rst.close
- set rst=nothing%><%Function url_(zt_url,zt_id,n,m,PL_type)
- 'PL_type也就是文件名，可选参数：down和play
- url_=""
- zt_url=replace(zt_url,chr(10),"")
- zt_url=replace(zt_url,chr(13),"#")
- zt_url=replace(zt_url,"##","")
- If Right(zt_url,1)="#" Then zt_url=Mid(zt_url,1,Len(zt_url)-1)
- a=split(zt_url,"#")
- b=ubound(a)
- for i=0 to b
- if i<9 then
- ii="0"&i+1
- else
- ii=i+1
- end if
- c=Split(a(i),"|")
- d=UBound(c)
- If d>0 Then
- For iii=0 To d
- url_=url_&"第"&ii&"-"&iii+1&"集 "&chr(13)
- Next
- Else
- If Left(a(i),2)="没有" Then
- If InStr(a(i),"$")>0 Then
- url_=url_&""&Split(a(i),"$")(1)&" "&chr(13)
- Else
- url_=url_&"第"&ii&"集暂缺"&chr(13)
- End If
- Else
- If InStr(a(i),"$")>0 Then
- url_=url_&""&Split(a(i),"$")(0)&" "&chr(13)
- Else
- url_=url_&"第"&ii&"集 "
- End If
- End if
- End If
- next
- End Function
- rst.close
- set rst=nothing%>
这句改为 - '2009-9-22添加Qvod地址中带|取消自动分段
- if PL_movietype="qvod" then
- c=Split(a(i),"$$$")
- Else
- c=Split(a(i),"|")
- End if
- '2009-9-22添加结束
- 'c=Split(a(i),"|")
3、在play.asp文件 - <%elseif PL_movietype="swf" then
- %>
- <script language="JavaScript">
- function click(e) {
- if (document.all) {
- if (event.button==2||event.button==3) {
- oncontextmenu='return false';
- }
- }
- if (document.layers) {
- if (e.which == 3) {
- oncontextmenu='return false';
- }
- }
- }
- if (document.layers) {
- document.captureEvents(Event.MOUSEDOWN);
- }
- document.onmousedown=click;
- document.oncontextmenu = new Function("return false;")
- </script>
- <table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
- <tr>
- <td align="center">
- <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="100%" height="100%">
- <param name="movie" value="<%=rst("ipsip")%><%=movie_view(real)%>" />
- <param name="quality" value="high" />
- <param name="BGCOLOR" value="#000000" />
- <embed src="<%=rst("ipsip")%><%=movie_view(real)%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="100%" height="100%" bgcolor="#000000"></embed>
- </object>
- </td>
- </tr>
- </table>
在这一段的后面增加 - <%elseif PL_movietype="qvod" then%>
- <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td height="10" colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td width="37"><img src="http://vod.julanhp.cn/play/200908/player_03.gif" width="37" height="27" alt="" /></td>
- <td height="27" valign="middle" background="http://vod.julanhp.cn/play/200908/player_04.gif"><font color=#ffffff>无法播放请尝试：</font> <a href="#" onClick="window.location.reload();"><font color=#ffffff>刷新本页</font></a><font color=#ffffff>|<a href="#" onClick="alert('因为本站使用边看边下方式进行影片播放，会占用您硬盘空间，当硬盘空间不够将无法播放。\n\n您可以修改存储路径：打开Qvod Player播放器→工具→选项→修改默认接收文件保存路径[选择较大的硬盘]\n定期做好清理工作');"><font color=#ffffff>修改影片保存路径</font></a><font color=#ffffff>|</font><a href="#" onClick="alert('因为某些防火墙禁止了QVOD的传输，请在观看时退出防火墙。\n例如：卡巴斯基/金山毒霸/天网。');"><font color=#ffffff>关闭防火墙</font></a><font color=#ffffff>|</font><a href="/help/index.html?qvod" target="_blank"><font color=#ffffff>查看帮助</font></a><font color=#ffffff>|</font><a href="http://www.qvod.com/bbs/viewthread.php?tid=2582&extra=page%3D1" target="_blank"><font color=#ffffff>FireFox观看方法</font></a><font color=#ffffff>|</font><a href="http://59.49.12.14/download/XP_SP2_tcpPatch.exe" target="_blank"><font color=#ffffff>XP加速补丁</font></td>
- </tr>
- </table></td>
- <td height="10"><img src="http://vod.julanhp.cn/play/200908/player_02.gif" width="8" height="27" alt="" /></td>
- </tr>
- <tr>
- <td width="8" height="100%" background="http://vod.julanhp.cn/play/200908/player_08.gif"></td>
- <td width="100%" valign="top" bgcolor="#000000"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td width="959" height="27" background="http://vod.julanhp.cn/play/200908/player_10.jpg"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
- <tr>
- <td width="91%"><font color=#ffffff>影片：<%=rs("title")%></font></td>
- <td width="9%"><img src="http://vod.julanhp.cn/play/200908/player_17.gif" width="232" height="20" alt="" onClick="window.location.reload();"/></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="100%" align="center" valign="top">
- <!---<div id="ad">
- <iframe border=0 marginWidth=0 frameSpacing=0 marginHeight=0
- src="http://vod.julanhp.cn/ads.html" frameBorder=0 noResize width=100%
- scrolling=no height=100% vspale="0"></iframe></div>--->
- <% PL_play=PL_movietype
- PL_url=movie_view(real)%>
- <object classid="clsid:F3D0D36F-23F8-4682-A195-74C92B03D4AF" width="100%" height="100%" id="QvodPlayer" name="QvodPlayer" onError="{QvodPlayer.removeNode(true);self.location='http://vod.julanhp.cn/play/down_play.html'}">
- <PARAM NAME='URL' VALUE='<%=rst("ipsip")%><%=PL_url%>'>
- <PARAM NAME='put_viewframe' value="40073">
- <PARAM NAME='Autoplay' VALUE='1'>
- </object></td>
- </tr>
- </table></td>
- <td width="8" background="http://vod.julanhp.cn/play/200908/player_12.gif"></td>
- </tr>
-
- <tr>
- <td height="10" valign="top"><img src="http://vod.julanhp.cn/play/200908/player_20.gif" width="8" height="10" alt="" /></td>
- <td height="10" background="http://vod.julanhp.cn/play/200908/player_22.gif"></td>
- <td height="10" valign="top"><img src="http://vod.julanhp.cn/play/200908/player_24.gif" width="8" height="10" alt="" /></td>
- </tr>
- </table>
4、修改play.asp文件 - <%Function FSOFileRead(Template_Name)
- Dim objFSO,objCountFile,FiletempData
- Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
- Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True)
- If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll
- objCountFile.Close
- Set objCountFile=Nothing
- Set objFSO = Nothing
- End Function
- Function movie_view(v_url)'不生成播放页需要使用的函数
- n=request.querystring("PL_n")
- 'set rs=conn.execute("select url movieurl where nameid="&articleid&"")
- v_url=replace(v_url,chr(10),"")
- v_url=replace(v_url,chr(13),"#")
- v_url=replace(v_url,"##","")
- If Right(v_url,1)="#" Then v_url=Mid(v_url,1,Len(v_url)-1)
- v_a=Split(v_url,"#")
- v_b=UBound(v_a)
- If v_b>0 Then
- v_c=v_a(n-1)
- v_url_1=Split(v_c,"|")(v) '(v-1)
- Else
- v_d=Split(v_url,"|")
- v_e=UBound(v_d)
- If v_e>0 Then
- v_url_1=v_d(v-1)
- Else
- v_url_1=v_url
- End If
- End If
- If InStr(v_url_1,"$")>0 Then
- v_url_3=Split(v_url_1,"$")
- v_url_1=v_url_3(1)
- v_url_2=v_url_3(0)
- Else
- v_url_2=""
- End If
- movie_view=v_url_1
- End Function
- %>
把 v_url_1=Split(v_c,"|")(v) '(v-1) 修改为 - '2009-9-22添加内容 用于解决Qvod地址中含|不能播放的问题。
- If PL_movietype="qvod" Then
- '判断如果是QVOD资源就以 $$$ 作为分隔符
- v_url_1=Split(v_c,"$$$")(v)
- Else
- '其他资源依然以|作为分隔符
- v_url_1=Split(v_c,"|")(v) '(v-1)
- End if
- '2009-9-22添加结束
- 'v_url_1=Split(v_c,"|")(v)
把 v_d=Split(v_url,"|") 修改为 - '2009-9-22添加内容 用于解决Qvod地址中含|不能播放的问题。
- If PL_movietype="qvod" Then
- v_d=Split(v_url,"$$$")
- Else
- '其他资源依然以|作为分隔符
- v_d=Split(v_url,"|")
- '2009-9-22添加结束
- end if
- 'v_d=Split(v_url,"|")
5、完成，可以试下。我的网站： http://vod.julanhp.cn/两个文件下载：
附件:您所在的用户组无法下载或查看附件
|
