版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、用動(dòng)易打造最新影視頻道，支持FLV以及迅雷聯(lián)盟要求：1：用動(dòng)易的下載頻道修改成為影視頻道2：支持最新的FLV格式3：支持“迅雷看看聯(lián)盟”的資源發(fā)布格式改造步驟：1：新建立一個(gè)影視頻道，目錄為 Video2：為頻道進(jìn)行分類，如：| 動(dòng)作片 | 愛情片 | 喜劇片 | 科幻片 | 恐怖片 | 卡通片 | 綜藝片 | 電視劇 | 3：修改頻道目錄下的 ShowSoftDown.asp 文件，使系統(tǒng)支持FLV以及“迅雷看看聯(lián)盟”的資源發(fā)布格式這里我要說(shuō)明下的是：我將 ShowSoftDown.asp 文件通過 動(dòng)易系統(tǒng)的“自定義頁(yè)面”發(fā)布，這樣就可以調(diào)用部分標(biāo)簽！算是一個(gè)小技巧吧，但是很實(shí)用，可以嘗試
2、下，呵呵此主題相關(guān)圖片如下： 4:獲取FLV文件的地址代碼： 土豆和幾個(gè)比較大的網(wǎng)站好像對(duì)文件做了保護(hù)，雖然提取了地址，但是并不能用，呵呵5：增加對(duì)FLV文件的判斷，Case "swf", "flv" FlvPlayer (DownloadUrl)具體的看代碼好了6：安裝FLV播放器：我的代碼是<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase=" width="450&quo
3、t; height="370"><param name="movie" value="flv.swf"><param name="quality" value="high"><param name="allowFullScreen" value="true" /><param name="FlashVars" value="vcastr_file=<%=strUrl%>
4、;&BarColor=0xFF6600&BarPosition=1&LogoText=&BufferTime=3&IsShowBar=1&IsAutoPlay=1" /><embed src="flv.swf" allowFullScreen="true" FlashVars="vcastr_file=<%=strUrl%>&BarColor=0xFF6600&BarPosition=1&LogoText=&BufferTime=3
5、&IsShowBar=1&IsAutoPlay=1" quality="high" pluginspage=" type="application/x-shockwave-flash" width="500" height="224"></embed></object>7：增加對(duì)“迅雷看看”的資源支持同樣增加判斷：Case Else '方法一可以解決下載地址中的中文名在另存為對(duì)框中的亂碼問題，但只能直接點(diǎn)擊
6、下載 'Response.write "<meta http-equiv='refresh' content=""0;url='" & DownloadUrl & "'"">" '方法二可以使用“目標(biāo)另存為”，但會(huì)有中文亂碼問題 'Response.Redirect DownloadUrl
7、 '方法三使用迅雷 XunleiPlayer (DownloadUrl)End Select8：迅雷的播放代碼：<iframe src=' frameborder='0' width='538' height='476'></iframe>注意 &coid=5934 是我的編號(hào)，修改成你的！這樣就可以了，呵呵其他的HTML代碼，根據(jù)自己的修改就行了：） FLV播放截圖FLV播放器下載地址：點(diǎn)擊下載迅雷看看播放截圖提下：要安裝 迅雷5 才能看得哦呵呵迅雷看看聯(lián)盟申請(qǐng)地址
8、：(責(zé)任編輯：admin)迅雷網(wǎng)視聯(lián)盟 = 2006組件版本和開源版都支持的 ：） = ShowSoftDown.asp 文件代碼！ !-#include file=CommonCode.asp- % '強(qiáng)制瀏覽器重新訪問=2006組件版本和開源版都支持的 ：）=ShowSoftDown.asp 文件代碼！<!-#include file="CommonCode.asp"-><%'強(qiáng)制瀏覽器重新訪問服務(wù)器下載頁(yè)面，而不是從緩存讀取頁(yè)面Response.Buffer = TrueResponse.Expires = -1Response.Ex
9、piresAbsolute = Now() - 1Response.Expires = 0Response.CacheControl = "no-cache"Dim DownloadUrl, FileExtDownloadUrl = PE_Soft.GetDownloadUrl()If DownloadUrl = "ErrorDownloadUrl" Then Response.EndSet PE_Soft = NothingFileExt = LCase(Mid(DownloadUrl, InStrRev(DownloadUrl, ".&qu
10、ot;) + 1)If InStr(DownloadUrl, ":/") <= 0 Then DownloadUrl = "http:/" & Trim(Request.ServerVariables("HTTP_HOST") & DownloadUrlEnd If%><html><head><title>鷹盟 >> 影視 >> 觀看頁(yè)面</title><meta http-equiv=&quo
11、t;Content-Type" content="text/html; charset=gb2312"><script type='text/javascript' language='JavaScript1.2' src='/js/stm31.js'></script><script src="$InstallDirJS/prototype.js"></script><script src="$InstallDirJS/scr
12、iptaculous.js"></script><script src="$InstallDirJS/checklogin.js"></script><link href='img/index.css' rel='stylesheet' type='text/css'><style type="text/css"><!-body,td,th font-size: 12px; color: #000000;
13、body background-color: #999999;a font-size: 12px; color: #000000;.pe_nr_copy color:#FFFFFF;a:link text-decoration: none;a:visited text-decoration: none; color: #000000;a:hover text-decoration: none; color: #CC0000;a:active text-decoration: none
14、; color: #000000;-></style></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">$MY_頻道_頂部<table width="1000" border="0" align="center" cellpadding="0" cellspacing="
15、0"> <tr> <td height="3"></td> </tr><tr> <td height="90" align="center" bgcolor="#FFFFFF" style="padding:3px;"><script language='javascript' src=
16、9;/AD/200712/2.js'></script></td> </tr> <tr> <td height="3"></td> </tr></table><table width="1000" border="0" align="center" cellpadding="0" cellspacing=&qu
17、ot;0" bgcolor="#000000"> <tr> <td height="114" align="center" background="img/bbg.gif" class="pe_nr_copy"> 復(fù)制本文地址給好友：<SCRIPT language=javascript type=text/javascript> function oCopy(obj)
18、0; obj.select(); js=obj.createTextRange(); js.execCommand("Copy") document.writeln ("<input id="thisweburl" class="pe_nr_copy_text" type="text" size="68" value=&qu
19、ot;" + location + "" onclick="oCopy(this);window.alert('復(fù)制完成，請(qǐng)將本頁(yè)推薦給你的朋友！')"/>") </SCRIPT></td> </tr> <tr> <td height="10"></td> </tr> <tr>
20、60; <td background="img/bg.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"> </td>
21、 <td align="center"><%Select Case FileExtCase "wmv", "mpg", "asf", "mp3", "mpeg", "avi" ShowMediaPlayer (DownloadUrl)Case "rm", "ra", "ram", &q
22、uot;rmvb" ShowRealPlayer (DownloadUrl)(責(zé)任編輯：admin)Case swf, flv FlvPlayer (DownloadUrl) Case Else '方法一可以解決下載地址中的中文名在另存為對(duì)框中的亂碼問題，但只能直接點(diǎn)擊下載 'Response.write meta http-equiv='refresh' content=0;url=' DownloadUrl ' ' Case "swf", "flv"
23、 FlvPlayer (DownloadUrl)Case Else '方法一可以解決下載地址中的中文名在另存為對(duì)框中的亂碼問題，但只能直接點(diǎn)擊下載 'Response.write "<meta http-equiv='refresh' content=""0;url='" & DownloadUrl & "'"">"
24、60; '方法二可以使用“目標(biāo)另存為”，但會(huì)有中文亂碼問題 'Response.Redirect DownloadUrl '方法三使用迅雷 XunleiPlayer (DownloadUrl)End Select%></td> <td align="center"> </td>
25、; </tr> </table></td> </tr> <tr> <td height="10"></td> </tr> <tr> <td height="114" align="center" background="img/bbg.
26、gif" class="pe_nr_copy"> 復(fù)制本文地址給好友：<SCRIPT language=javascript type=text/javascript> function oCopy(obj) obj.select(); js=obj.createTextRange(); js.execCommand("Copy") document.
27、writeln ("<input id="thisweburl" class="pe_nr_copy_text" type="text" size="68" value="" + location + "" onclick="oCopy(this);window.alert('復(fù)制完成，請(qǐng)將本頁(yè)推薦給你的朋友！')"/>") </SCRIPT></td>
28、; </tr></table>$MY_頻道_底部</body></html><%Function ShowMediaPlayer(strUrl)%><object id=MediaPlayer1 codeBase= type=application/x-oleobject height=370 width=450 classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT> <PARAM NAME="URL" value=
29、"<%=strUrl%>"><param name="AudioStream" value="-1"> <param name="AutoSize" value="0"> <param name="AutoStart" value="-1"> <param name="AnimationAtStart" value="-1"
30、;> <param name="AllowScan" value="-1"> <param name="AllowChangeDisplaySize" value="-1"> <param name="AutoRewind" value="0"> <param name="Balance" value="0"> <pa
31、ram name="BaseURL" value> <param name="BufferingTime" value="5"> <param name="CaptioningID" value> <param name="ClickToPlay" value="-1"> <param name="CursorType" value="0"&
32、gt; <param name="CurrentPosition" value="-1"> <param name="CurrentMarker" value="0"> <param name="DefaultFrame" value> <param name="DisplayBackColor" value="0"> <param name=
33、"DisplayForeColor" value="16777215"> <param name="DisplayMode" value="0"> <param name="DisplaySize" value="4"> <param name="Enabled" value="-1"> <param name="EnableCon
34、textMenu" value="-1"> <param name="EnablePositionControls" value="0"> <param name="EnableFullScreenControls" value="0"> <param name="EnableTracker" value="-1"> <param name="
35、;InvokeURLs" value="-1"> <param name="Language" value="-1"> <param name="Mute" value="0"> <param name="PlayCount" value="1"> <param name="PreviewMode" value="0&qu
36、ot;> <param name="Rate" value="1"> <param name="SAMILang" value> <param name="SAMIStyle" value> <param name="SAMIFileName" value> <param name="SelectionStart" value="-1"&
37、gt; <param name="SelectionEnd" value="-1"> <param name="SendOpenStateChangeEvents" value="-1"> <param name="SendWarningEvents" value="-1">(責(zé)任編輯：admin)param name=SendErrorEvents value=-1 param name=SendKey
38、boardEvents value=0 param name=SendMouseClickEvents value=0 param name=SendMouseMoveEvents value=0 param name=SendPlayStateChangeEvents value=-1 <param name="SendErrorEvents" value="-1"> <param name="SendKeyboardEvents" value="0">
39、 <param name="SendMouseClickEvents" value="0"> <param name="SendMouseMoveEvents" value="0"> <param name="SendPlayStateChangeEvents" value="-1"> <param name="ShowCaptioning" value="0"
40、;> <param name="ShowControls" value="-1"> <param name="ShowAudioControls" value="-1"> <param name="ShowDisplay" value="0"> <param name="ShowGotoBar" value="0"> <
41、;param name="ShowPositionControls" value="-1"> <param name="ShowStatusBar" value="-1"> <param name="ShowTracker" value="-1"> <param name="TransparentAtStart" value="-1"><param na
42、me="VideoBorderWidth" value="0"> <param name="VideoBorderColor" value="0"> <param name="VideoBorder3D" value="0"> <param name="Volume" value="70"> <param name="Windowl
43、essVideo" value="0"></object><%End FunctionFunction ShowRealPlayer(strUrl)%><object classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA' width='450' height='370'> <param name='CONTROLS' value='ImageWindow'>
44、 <param name='CONSOLE' value='Clip1'> <param name='AUTOSTART' value='-1'> <param name='src' value="<%=strUrl%>"></object><br><object classid='clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA' width
45、='450' height='60'> <param name='CONTROLS' value='ControlPanel,StatusBar'> <param name='CONSOLE' value='Clip1'></object><%End FunctionFunction FlvPlayer(strUrl)%><object classid="clsid:D27CDB6E-AE6D-11cf-9
46、6B8-444553540000" codebase=" width="450" height="370"><param name="movie" value="flv.swf"><param name="quality" value="high"><param name="allowFullScreen" value="true" /><param name=&quo
47、t;FlashVars" value="vcastr_file=<%=strUrl%>&BarColor=0xFF6600&BarPosition=1&LogoText=&BufferTime=3&IsShowBar=1&IsAutoPlay=1" /><embed src="flv.swf" allowFullScreen="true" FlashVars="vcastr_file=<%=strUrl%>&BarColor
48、=0xFF6600&BarPosition=1&LogoText=&BufferTime=3&IsShowBar=1&IsAutoPlay=1" quality="high" pluginspage=" type="application/x-shockwave-flash" width="500" height="224"></embed></object><%End FunctionFunction XunleiPl
49、ayer(strUrl)%><iframe src=' frameborder='0' width='538' height='476'></iframe><%End Function %> 詳細(xì)代碼見第二頁(yè)：請(qǐng)修改藍(lán)色部分的代碼為您的FLV播放器的路徑地址修改紅色的部分代碼為您的迅雷看看聯(lián)盟注冊(cè)授權(quán)碼ShowSoftDown.asp 文件代碼！-以下內(nèi)容只有回復(fù)后才可以瀏覽<!-#include file="CommonCode.asp"
50、;-><%'強(qiáng)制瀏覽器重新訪問服務(wù)器下載頁(yè)面，而不是從緩存讀取頁(yè)面Response.Buffer = TrueResponse.Expires = -1Response.ExpiresAbsolute = Now() - 1Response.Expires = 0Response.CacheControl = "no-cache"Dim DownloadUrl, FileExtDownloadUrl = PE_Soft.GetDownloadUrl()If DownloadUrl = "ErrorDownloadUrl" Then R
51、esponse.EndSet PE_Soft = NothingFileExt = LCase(Mid(DownloadUrl, InStrRev(DownloadUrl, ".") + 1)If InStr(DownloadUrl, ":/") <= 0 Then DownloadUrl = "http:/" & Trim(Request.ServerVariables("HTTP_HOST") & DownloadUrlEnd If%><ht
52、ml><head><title>鷹盟 >> 影視 >> 觀看頁(yè)面</title>(責(zé)任編輯：admin) meta http-equiv=Content-Type content=text/html; charset=gb2312 script type='text/javascript' language='JavaScript1.2'src='/js/stm31.js'/script script src=$InstallDirJS/prototype.js/script sc
53、ript s<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script type='text/javascript' language='JavaScript1.2' src='/js/stm31.js'></script><script src="$InstallDirJS/prototype.js"></script><scri
54、pt src="$InstallDirJS/scriptaculous.js"></script><script src="$InstallDirJS/checklogin.js"></script><link href='img/index.css' rel='stylesheet' type='text/css'><style type="text/css"><!-body,td,th font-size: 12
55、px;color: #000000;body background-color: #999999;a font-size: 12px;color: #000000;.pe_nr_copycolor:#FFFFFF;a:link text-decoration: none;a:visited text-decoration: none;color: #000000;a:hover text-decoration: none;color: #CC0000;a:active text-decoration: none;color: #000000;-></style></he
56、ad><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">$MY_頻道_頂部<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> &
57、lt;td height="3"></td> </tr> <tr> <td height="90" align="center" bgcolor="#FFFFFF" style="padding:3px;"><script language='javascript' src='/AD/200712/2.js'></script>
58、</td> </tr> <tr> <td height="3"></td> </tr></table><table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">
59、; <tr> <td height="114" align="center" background="img/bbg.gif" class="pe_nr_copy">復(fù)制本文地址給好友：<SCRIPT language=javascript type=text/javascript>function oCopy(obj) obj.select(); js=obj.createTextR
60、ange(); js.execCommand("Copy") document.writeln ("<input id="thisweburl" class="pe_nr_copy_text" type="text" size="68" value="" + location + "" onclick="oCopy(this);window.alert('復(fù)制完成
61、，請(qǐng)將本頁(yè)推薦給你的朋友！')"/>")</SCRIPT></td> </tr> <tr> <td height="10"></td> </tr> <tr> <td background="img/bg.gif"><table width="100%" border=&q
62、uot;0" cellspacing="0" cellpadding="0"> <tr> <td align="center"> </td> <td align="center"><%Select Case FileExt
63、Case "wmv", "mpg", "asf", "mp3", "mpeg", "avi" ShowMediaPlayer (DownloadUrl)Case "rm", "ra", "ram", "rmvb" ShowRealPlayer (DownloadUrl)Case "swf", "f
64、lv" FlvPlayer (DownloadUrl)Case Else '方法一可以解決下載地址中的中文名在另存為對(duì)框中的亂碼問題，但只能直接點(diǎn)擊下載 'Response.write "<meta http-equiv='refresh' content=""0;url='" & DownloadUrl & "'"">"&
65、#160; '方法二可以使用“目標(biāo)另存為”，但會(huì)有中文亂碼問題 'Response.Redirect DownloadUrl'方法三使用迅雷XunleiPlayer (DownloadUrl)End Select%></td> <td align="center"> </td>
66、60; </tr> </table></td> </tr> <tr> <td height="10"></td> </tr> <tr> <td height="114" align="center" background="img/bbg.gif"
67、class="pe_nr_copy">復(fù)制本文地址給好友：<SCRIPT language=javascript type=text/javascript>function oCopy(obj) obj.select(); js=obj.createTextRange(); js.execCommand("Copy") (責(zé)任編輯：admin) document.writeln (input id=thisweburl class=pe_nr
68、_copy_text type=text size=68 value= + location + onclick=oCopy(this);window.alert('復(fù)制完成，請(qǐng)將本頁(yè)推薦給你的朋友！')/) /SCRIPT/td /t document.writeln ("<input id="thisweburl" class="pe_nr_copy_text" type="text" size="68" value="" + location +
69、 "" onclick="oCopy(this);window.alert('復(fù)制完成，請(qǐng)將本頁(yè)推薦給你的朋友！')"/>")</SCRIPT></td> </tr></table>$MY_頻道_底部</body></html><%Function ShowMediaPlayer(strUrl)%><object id=MediaPlayer1 codeBase= type=application/x-oleobject
70、height=370 width=450 classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT> <PARAM NAME="URL" value="<%=strUrl%>"> <param name="AudioStream" value="-1"> <param name="AutoSize" value="0">&
71、#160; <param name="AutoStart" value="-1"> <param name="AnimationAtStart" value="-1"><param name="AllowScan" value="-1"> <param name="AllowChangeDisplaySize" value="-1"> <param
72、 name="AutoRewind" value="0"> <param name="Balance" value="0"> <param name="BaseURL" value> <param name="BufferingTime" value="5"> <param name="CaptioningID" value>
73、; <param name="ClickToPlay" value="-1"> <param name="CursorType" value="0"> <param name="CurrentPosition" value="-1"> <param name="CurrentMarker" value="0"> <param name=
74、"DefaultFrame" value> <param name="DisplayBackColor" value="0"> <param name="DisplayForeColor" value="16777215"> <param name="DisplayMode" value="0"> <param name="DisplaySize&qu
75、ot; value="4"> <param name="Enabled" value="-1"> <param name="EnableContextMenu" value="-1"> <param name="EnablePositionControls" value="0"> <param name="EnableFullScreenControl
76、s" value="0"> <param name="EnableTracker" value="-1"> <param name="InvokeURLs" value="-1"> <param name="Language" value="-1"> <param name="Mute" value="0">
77、; <param name="PlayCount" value="1"> <param name="PreviewMode" value="0"> <param name="Rate" value="1"> <param name="SAMILang" value> <param name="SAMIStyle" value
78、> <param name="SAMIFileName" value> <param name="SelectionStart" value="-1"> <param name="SelectionEnd" value="-1"> <param name="SendOpenStateChangeEvents" value="-1"> <p
79、aram name="SendWarningEvents" value="-1"> <param name="SendErrorEvents" value="-1"> <param name="SendKeyboardEvents" value="0"> <param name="SendMouseClickEvents" value="0"> &
80、lt;param name="SendMouseMoveEvents" value="0"> <param name="SendPlayStateChangeEvents" value="-1"> <param name="ShowCaptioning" value="0"> <param name="ShowControls" value="-1">
81、0; <param name="ShowAudioControls" value="-1"> <param name="ShowDisplay" value="0"> <param name="ShowGotoBar" value="0"><param name="ShowPositionControls" value="-1"> <param name="ShowStatusBar" value="-1"> <param name="ShowTracker" value="-1"> <param name="TransparentAtStart" value="
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024年物業(yè)買賣擔(dān)保合同
- 高職班主任工作計(jì)劃范文
- 七年級(jí)教學(xué)計(jì)劃三篇
- 心理健康工作計(jì)劃
- 師德規(guī)范學(xué)習(xí)心得體會(huì)
- 游藝機(jī)項(xiàng)目可行性研究報(bào)告
- 初中數(shù)學(xué)教師年度考核總結(jié)
- 幼兒園大班班會(huì)活動(dòng)教案
- 公司經(jīng)理述職報(bào)告三篇
- 小升初自我鑒定合集12篇
- 2023年婦科門診總結(jié)及計(jì)劃
- 方大重整海航方案
- 河北省秦皇島市昌黎縣2023-2024學(xué)年八年級(jí)上學(xué)期期末數(shù)學(xué)試題
- 礦山治理專項(xiàng)研究報(bào)告范文
- 國(guó)家開放大學(xué)2023年7月期末統(tǒng)一試《11124流行病學(xué)》試題及答案-開放本科
- 貨運(yùn)安全生產(chǎn)管理制度
- 幼兒園中班體育《我們愛運(yùn)動(dòng)》+課件
- 郭錫良《古代漢語(yǔ)》課件
- 外研版四年級(jí)英語(yǔ)下冊(cè)(一年級(jí)起點(diǎn))全冊(cè)完整課件
- 防止電力生產(chǎn)事故的-二十五項(xiàng)重點(diǎn)要求（2023版）
- 教研室主任崗位申請(qǐng)書
評(píng)論
0/150
提交評(píng)論