playerb.asp

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

<%
Call CloseConn

Dim PE_Soft
Call CreateObject_Soft

Sub CreateObject_Soft()
    On Error Resume Next
    Set PE_Soft = Server.CreateObject("PE_Soft6.Soft")
    If Err Then
        Err.Clear
        Response.Write "对不起，你的服务器没有安装动易组件（PE_Soft6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
        Response.End
    End If
    PE_Soft.iConnStr = ConnStr
    PE_Soft.iSystemDatabaseType = SystemDatabaseType
    PE_Soft.CurrentChannelID = ChannelID
End Sub
%>
<%
function bytes2BSTR(vIn)
dim i,strReturn,ThisCharCode,NextCharCode
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("Microsoft.XMLHTTP") 
   oXmlHttp.open "GET",url,false
   oXmlHttp.send()
   GetSource = bytes2BSTR(oXmlHttp.responseBody)
end function 
%>