playera.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

<!--#include file="Channel_Config.asp"-->
<!--#include file="playerb.asp"-->
<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

Dim DownloadUrl, FileExt
DownloadUrl = PE_Soft.GetDownloadUrl()
If DownloadUrl = "ErrorDownloadUrl" Then Response.End
Set PE_Soft = Nothing
FileExt = LCase(Mid(DownloadUrl, InStrRev(DownloadUrl, ".") + 1))
If InStr(DownloadUrl, "://") <= 0 Then
    DownloadUrl = "http://" & Trim(Request.ServerVariables("HTTP_HOST")) & DownloadUrl
End If
DownloadUrl=trim(DownloadUrl)'过滤地址空格符号

If operatingsystem="flash" then
	if instr(DownloadUrl,"56.com")>0 then
  	DownloadUrl=replace(DownloadUrl,"http://www.56.com/","")
	DownloadUrl=replace(DownloadUrl,".swf","") 
    ShowvodPlayer DownloadUrl,"552","452","56"
  elseif instr(DownloadUrl,"youku.com")>0 then
    DownloadUrl=replace(DownloadUrl,"http://player.youku.com/player.php/sid/","")
    ShowvodPlayer DownloadUrl,"488","415","youku"
  elseif instr(DownloadUrl,"ouou.com")>0 then
    DownloadUrl=replace(DownloadUrl,"http://dv.ouou.com/v/","")
    ShowvodPlayer DownloadUrl,"488","415","ouou"
  elseif instr(DownloadUrl,"tudou.com/v")>0 then
    ShowvodPlayer DownloadUrl,"800","600","todou"		
  else
    ShowvodPlayer DownloadUrl,"800","600","todou"
  end if	
Elseif operatingsystem="qvod" then	
   ShowqvodPlayer (DownloadUrl)
Elseif operatingsystem="BoBo" then	
   if instr(DownloadUrl,"59.45.60.131")>0 then
     DownloadUrl=GetSource("http://59.45.60.131/.h2b?httpurl2bobo?"&DownloadUrl) 
     if instr(DownloadUrl,"?")=0 then
	   DownloadUrl=replace(DownloadUrl,"59.45.60.131","59.45.60.132")
	   DownloadUrl=GetSource("http://59.45.60.132/.h2b?httpurl2bobo?"&DownloadUrl)
     end if
   end if  
   DownloadUrl=replace(DownloadUrl,"http://","")
   ShowboboPlayer (DownloadUrl)   
Elseif operatingsystem="rmvb" then	
   ShowRealPlayer (DownloadUrl)
Elseif operatingsystem="rm" then	
   ShowRealPlayer (DownloadUrl) 
Elseif operatingsystem="wmv" then	
   ShowMediaPlayer (DownloadUrl)
Elseif operatingsystem="asf" then	
   ShowMediaPlayer (DownloadUrl) 
Elseif operatingsystem="flv" then	
   ShowFlvPlayer (DownloadUrl)             
Else
  Select Case FileExt
  Case "wmv", "mpg", "asf", "mp3", "mpeg", "avi"
    ShowMediaPlayer (DownloadUrl)
  Case "rm", "ra", "ram", "rmvb"
    if instr(DownloadUrl,"59.45.60.131")>0 then
	  DownloadUrl=GetSource("http://59.45.60.131/.h2b?httpurl2bobo?"&DownloadUrl)
	  if instr(DownloadUrl,"?")=0 then
	   DownloadUrl=replace(DownloadUrl,"59.45.60.131","59.45.60.132")
	   DownloadUrl=GetSource("http://59.45.60.132/.h2b?httpurl2bobo?"&DownloadUrl)
      end if
	  ShowboboPlayer (DownloadUrl)    
	else 
	  ShowRealPlayer (DownloadUrl) 
	end if  
  Case "flv"
    ShowFlvPlayer (DownloadUrl)
  Case Else
    if instr(DownloadUrl,"?")>0 then
	  DownloadUrl=replace(DownloadUrl,"http://","")
	  ShowboboPlayer (DownloadUrl)
	elseif instr(DownloadUrl,"@")>0 then
	  DownloadUrl=replace(DownloadUrl,"http://@","")
	  Response.Redirect "http://vod.05809.com/?"&""&DownloadUrl&""
	else
     ShowvodPlayer (DownloadUrl)
    end if
  End Select  
End if
%>