BOBOp2p播放器

<% '=================================================================================================================== '软件名称：云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ：489234,2813712 '程序版权：云网互动科技有限公司 '程序开发：云网互动科技有限公司 '官方网站：http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息； ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== Function bytes2BSTR(vIn) dim i strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function function GetSource(url) //取得url页面的数据. dim oXmlHttp,oStream set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") oXmlHttp.open "GET",url,false oXmlHttp.send() GetSource = bytes2BSTR(oXmlHttp.responseBody) end function Set RS=Server.CreateObject(YWNT_TMS_RS) SQL="select P2PUrl from YWNT_TMS_Sever Where ID="&SeverID Rs.open sql,Conn,1,1 If Not RS.Eof Then IF Instr(RS("P2PUrl"),"|")<>0 Then SP2PUrl=split(RS("P2PUrl"),"|") Else SP2PUrl=RS("P2PUrl") End if End If RS.Close Set RS = Nothing Set RS=Server.CreateObject(YWNT_TMS_RS) SQL="select P2PUrl from YWNT_TMS_P2PUrl Where ID="&UrlID Rs.open sql,Conn,1,1 If Not RS.Eof Then P2PUrl=RS("P2PUrl") End If RS.Close Set RS = Nothing IF Instr(P2PUrl,"?")<>0 then httpurl = P2PUrl bobourl=httpurl Else httpurl = SP2PUrl(1) &"/"& P2PUrl bobourl = GetSource("http://"&SP2PUrl(0)&"/.h2b?httpurl2bobo?http://" & httpurl) End IF%>

影片：<%=MovieName%> |

<%call connclose()%>