|
|
|
|
|
|
|
 |
等级:  城镇农民 |
| 发贴: 1 |
| 积分: 3 |
| 经验: 3 |
| 体力: 170 |
| 货币: 0 金币 |
| 注册: 2008-01-28 |
|
|
|
 为什么我改了只后就只能下载不能播放了？？？宝丽通 |
下面是我改过的文件
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/config.asp"-->
<!--#include file="../include/function.asp"-->
<!--#include file="../include/checkplayer.asp"-->
<!--#include file="../include/md5.asp"-->
<%
'************HelixApp加密URL****************************************
CONST KEY = "101325" '加密因子，必须要和INI配置文件的要对应一样
'免费版--加密方法简单，注意时区和服务器时间对齐
Function UrlEnc_evaluate(orgurl , EncKey)
DIM ts
ts = DateDiff("s", "1970-1-1 8:0:0" , Now) 'unix time_t格式的时间，北京时间是东八区，所以这里是8:00,假如服务器时区是东6区，这里就是6:00
ts = ts xor EncKey
UrlEnc_evaluate = orgurl & "?pxd=" & ts
End Function
'正式版,绑定Real/IIS服务器的域名或者IP，就是360元和280元的。
Function UrlEnc_REAL(orgurl , EncKey)
dim ins
set ins = CreateObject("UrlEnc.BaseEnc")
dim EncUrl
UrlEnc_REAL = ins.UrlTsEnc( url , EncKey )
'UrlEnc = ins.WebUrlEnc( url , EncKey )
End Function
'正式版,绑定主页URL的域名或者IP,也就是800元的那种
Function UrlEnc_WEB(orgurl , EncKey)
dim ins
set ins = CreateObject("UrlEnc.BaseEnc")
dim EncUrl
UrlEnc_WEB = ins.WebUrlEnc( url , EncKey )
End Function
'************HelixApp加密URL****************************************
%>
<%
Set rs=Server.CreateObject("Adodb.recordset")
rs.open "select a.helixurl,b.url from showmov_server as a,showmov_url as b where a.id="& serverip &" and b.id="& urlid,conn,1,1
if rs.eof then
Response.Write("服务器或者影片地址错误")
Call Sendmsg("服务器或者影片地址错误","SMV系统",Serverip&"服务器或者影片地址错误urlid="&urlid,0)
Response.End()
else
helixurl=rs(0) & rs(1)
'helixurl="gridcast://www.showmov.com/"& rs(1) &"?source={"&rs(0)&":5315}&tracker={210.74.232.27:6388}&channelID={"& urlid &"}&channelName={秀影点播系统 当前点播人数为32424}&webPlayer={true}"
end if
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>正在收看《<%=title%>》</title>
<link href="../Images/default/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
}
-->
</style>
<script src="../js/xmlhttp.js"></script>
<script>
function exit()
{
function send()
{
if(window.XMLHttpRequest){ //IE7, Mozilla ,Firefox 等浏览器内置该对象
var xmlhttp = new XMLHttpRequest();
}else if(window.ActiveXObject){ //IE6、IE5
try{ xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e){ ; }
if( xmlhttp == null) try {
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e){; }
}
xmlhttp.open("POST","exit.asp",false);
xmlhttp.send();
//alert('s');
//document.bltplayer.stop();
var strResult = xmlhttp.responseText;
delete(xmlhttp);
}
send();
}
</script>
</head>
<body bgcolor="C0C0C0" scroll="no" onUnload="exit();">
<%
'//加密开始,这种方式就是在播放器里，直接调用影片地址的，所以这里修改完成后，必须要在播放代码中调用相应的加密后的地址
dim url '//定义变量
url = helixurl '//获取电影地址
'//选取相应的加密方法
EncUrl = UrlEnc_evaluate( url , key ) '//那种产品就在这里选择加密方式，免费版加密。
'EncUrl = UrlEnc_real( url , key ) '//那种产品就在这里选择加密方式，正式版,这种就是一般的绑定IP或绑定域名的360/280的。
'EncUrl = UrlEnc_WEB( url , key ) '//那种产品就在这里选择加密方式，正式版,绑定主页URL的域名或者IP,也就是800元的那种。
response.redirect ""&EncUrl&""
'//加密结束，必须要在播放代码中调用相应的加密后的地址，往下看，播放器那里还有要改
content=replace(content,"{fileurl}","geturl.asp?key="& md5(urlid & serverip & userip,32) &"&urlid="& urlid &"&sid="& serverip)
content=replace(content,"{EncUrl}",helixurl)
content=replace(content,"{urlid}",urlid)
content=replace(content,"{movid}",movid)
content=replace(content,"{server}",GetServerAddress(serverip,"helixurl"))
Response.Write(content)
conn.close
set conn=nothing
set content=nothing
%>
</body>
</html>
下面是没有改过的文件
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/config.asp"-->
<!--#include file="../include/function.asp"-->
<!--#include file="../include/checkplayer.asp"-->
<!--#include file="../include/md5.asp"-->
<%
Set rs=Server.CreateObject("Adodb.recordset")
rs.open "select a.helixurl,b.url from showmov_server as a,showmov_url as b where a.id="& serverip &" and b.id="& urlid,conn,1,1
if rs.eof then
Response.Write("服务器或者影片地址错误")
Call Sendmsg("服务器或者影片地址错误","SMV系统",Serverip&"服务器或者影片地址错误urlid="&urlid,0)
Response.End()
else
helixurl=rs(0) & rs(1)
'helixurl="gridcast://www.showmov.com/"& rs(1) &"?source={"&rs(0)&":5315}&tracker={210.74.232.27:6388}&channelID={"& urlid &"}&channelName={秀影点播系统 当前点播人数为32424}&webPlayer={true}"
end if
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>正在收看《<%=title%>》</title>
<link href="../Images/default/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
}
-->
</style>
<script src="../js/xmlhttp.js"></script>
<script>
function exit()
{
function send()
{
if(window.XMLHttpRequest){ //IE7, Mozilla ,Firefox 等浏览器内置该对象
var xmlhttp = new XMLHttpRequest();
}else if(window.ActiveXObject){ //IE6、IE5
try{ xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e){ ; }
if( xmlhttp == null) try {
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e){; }
}
xmlhttp.open("POST","exit.asp",false);
xmlhttp.send();
//alert('s');
//document.bltplayer.stop();
var strResult = xmlhttp.responseText;
delete(xmlhttp);
}
send();
}
</script>
</head>
<body bgcolor="C0C0C0" scroll="no" onUnload="exit();">
<%
content=replace(content,"{fileurl}","geturl.asp?key="& md5(urlid & serverip & userip,32) &"&urlid="& urlid &"&sid="& serverip)
content=replace(content,"{filepath}",helixurl)这里是宝丽通播放地址
content=replace(content,"{urlid}",urlid)
content=replace(content,"{movid}",movid)
content=replace(content,"{server}",GetServerAddress(serverip,"helixurl"))
Response.Write(content)
conn.close
set conn=nothing
set content=nothing
%>
</body>
</html>
|
|
| -------------------------------------------------------- |
|
|
|
2008-1-28 11:22:18
