当前位置：网站首页 > 资源显示

asp记录播放视频的时长的一种思路

发布时间：2020/1/8 11:05:28 / 浏览：614

VOD.ASP 用
<iframe src="logs.asp?logskey=<%=logskey%>&vid=<%=id%>&kcid=<%=kcid%>" height="0" width="0" scrolling="no" marginheight="0" frameborder="0" name="main" id="bbsre"></iframe>

然后 logs.asp 60秒自动刷新一次，如果为了提高精度，可以30秒刷一次，做记录，LOGS.ASP 见完整代码

这只是个大楷的解决思路而已，

===== 思考 ================

1：点击播放按钮，用JS 控制执行 logs.asp；

2 : 长时间不关闭播放页面，最大播放时长为本视频的时长；

3：如果是自己的独立开发的播放器，或者流媒体服务器，会不会有简单的自己统计的功能？

4：视频跳跃式选段播放，又如何统计播放时长？

完整代码（代码框可以往下拉高显示）：

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="refresh" content="60">
<title>日志统计</title>
</head>
<body>
<%
'60秒刷新记录一次 content="60"
dim logskey,vid,uid,kcid
kcid=sqlcheck(trim(request.QueryString("kcid")))
vid=sqlcheck(trim(request.QueryString("vid")))
logskey=sqlcheck(trim(request.QueryString("logskey")))
uid=request.Cookies("hszgz")("uid")
'-------------------------------------
if logskey="" or vid="" or uid="" then
response.Write("非法访问，参数错误")
response.End()
end if
'-------------------------------------
if request.Cookies("uid"&uid&"vod"&vid&"key")<>logskey then '不匹配
response.Write("密钥验证失败！")
response.End()
end if
'-------------------------------------
addvodlogs vid,uid,logskey,kcid
'--------- 记录函数
function addvodlogs(vid,uid,logskey,kcid)
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from vod_logs where logskey='"&logskey&"' and uid="&uid&" and cid="&vid&" order by id asc"
rs.open sql,conn,3,2
if rs.eof and rs.bof  then'没有，就添加
  rs.addnew
  rs("cid")=vid
  rs("uid")=uid
  rs("vip")=Request.ServerVariables("REMOTE_ADDR")
  rs("stime")=now()
  rs("kcid")=kcid
  rs("logskey")=logskey
  rs.update
else '有就更新最后时间
  rs("etime")=now()
  rs.update  
end if
rs.close
set rs=nothing
end function
'-----------
function sqlcheck(Str)
	if Instr(LCase(Str),"select ") > 0 or Instr(LCase(Str),"insert ") > 0 or Instr(LCase(Str),"delete ") > 0 or Instr(LCase(Str),"delete from ") > 0 or Instr(LCase(Str),"count(") > 0 or Instr(LCase(Str),"drop table") > 0 or Instr(LCase(Str),"update ") > 0 or Instr(LCase(Str),"truncate ") > 0 or Instr(LCase(Str),"asc(") > 0 or Instr(LCase(Str),"mid(") > 0 or Instr(LCase(Str),"char(") > 0 or Instr(LCase(Str),"xp_cmdshell") > 0 or Instr(LCase(Str),"exec master") > 0 or Instr(LCase(Str),"net localgroup administrators") > 0  or Instr(LCase(Str),"and ") > 0 or Instr(LCase(Str),"net user") > 0 or Instr(LCase(Str),"or ") > 0 then
		 Response.End
		 exit function
	end if
	'Str=Replace(Str,"_","")     '过滤SQL注入_ 微信里可以下划线
	Str=Replace(Str,"*","")     '过滤SQL注入*
	Str=Replace(Str," ","")     '过滤SQL注入空格
	Str=Replace(Str,chr(34),"") '过滤SQL注入"
	Str=Replace(Str,chr(39),"") '过滤SQL注入'
	Str=Replace(Str,chr(91),"") '过滤SQL注入[
	Str=Replace(Str,chr(93),"") '过滤SQL注入]
	Str=Replace(Str,chr(37),"") '过滤SQL注入%
	Str=Replace(Str,chr(58),"") '过滤SQL注入:
	Str=Replace(Str,chr(59),"") '过滤SQL注入;
	Str=Replace(Str,chr(43),"") '过滤SQL注入+
	Str=Replace(Str,"{","")     '过滤SQL注入{
	Str=Replace(Str,"}","")     '过滤SQL注入}
	sqlcheck=Str            '返回经过上面字符替换后的Str
end function
%>
</body>
</html>

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区