You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
92 lines
4.4 KiB
Plaintext
92 lines
4.4 KiB
Plaintext
6 years ago
|
<%
|
||
|
|
'
|
||
|
|
'视频公共调用页面
|
||
|
|
'page ID:video_min.asp
|
||
|
|
'
|
||
|
|
|
||
|
|
Agent = Request.ServerVariables("HTTP_USER_AGENT")
|
||
|
|
playtype = 1 '统一采用播放器
|
||
|
|
If InStr(Agent, "Firefox") > 0 Or InStr(Agent, "Opera") > 0 Or InStr(Agent, "WebKit") > 0 Then
|
||
|
|
playtype = 2
|
||
|
|
End If
|
||
|
|
If (Video_Width = 0 Or Video_Width = 0) Then
|
||
|
|
Video_Width = 315
|
||
|
|
End If
|
||
|
|
If (Video_height = 0 Or Video_height = "") Then
|
||
|
|
Video_height = 251
|
||
|
|
End If
|
||
|
|
|
||
|
|
If (IsEmpty(Video_Sqe) Or Video_Sqe = "") Then '是否直接输出
|
||
|
|
|
||
|
|
Video_Sqe = False
|
||
|
|
|
||
|
|
End If
|
||
|
|
|
||
|
|
If (IsEmpty(Video_RelType) Or Video_RelType = "" Or IsEmpty(Video_RelSn) Or Video_RelSn = "") Then
|
||
|
|
Video_exist = False
|
||
|
|
Else
|
||
|
|
'修改绑定产品编码,用户反馈在新的关系表为F
|
||
|
|
Select Case Video_RelType
|
||
|
|
Case "CM"
|
||
|
|
Video_RelType = "F"
|
||
|
|
End Select
|
||
|
|
'Video_RelType = 1'关联产品类型 城市 路线等 沿用韩特飞的数值
|
||
|
|
'Video_Lang = 1'语种 只cht用 默认1
|
||
|
|
'Video_RelSn = 1'线路或者文章id
|
||
|
|
%>
|
||
|
|
<%
|
||
|
|
'新的视屏绑定产品信息查询 替换上方内容 -start
|
||
|
|
vmin_sql=" "&_
|
||
|
|
" select top 1 bp_pii_sn from mc_productsbind where bp_pii_servicetype='"&Video_RelType&"' and bp_mc_type=1 " &_
|
||
|
|
" and bp_pii_servicesn in("&Video_RelSn&") and isnull(deleteflag,0)=0 "
|
||
|
|
'-end
|
||
|
|
|
||
|
|
Set rel_vrs = server.CreateObject("adodb.recordset")
|
||
|
|
|
||
|
|
'新的视屏信息查询 替换上方内容 -start
|
||
|
|
If vTIl="" Then
|
||
|
|
vmin_sql = " select top 1 vi.vi_sn,(case isnull(vi.vi_filename,'') when '' then (select top 1 bv_videolocation+bv_videofilename from MC_VideoResolutionBind where bv_vi_sn= ("&vmin_sql&") order by MC_VideoResolutionBind.addtime desc) else vi_location+vi.vi_filename end) as CV_Path,(vi_tmplocation+vi_originalpic) as CV_ImageUrl,case isnull((vi_adpicpath+vi_adurl),'') when '' then 'http://www.chinahighlights.com/image/ch-video/ad_pause.jpg' else 'http://mediafile.chinahighlights.com/UploadVideo'+vi_adpicpath+vi_adpicname end as CV_AdImageUrl,case isnull(vi_adurl,'') when '' then 'http://www.chinahighlights.com/redirect.asp?url=http://www.chinahighlights.com/forms/tailormadetours.htm%26t=32038%26sourc='+(select top 1 vi2_name from videoinfo2 where vi2_vi_sn=("&vmin_sql&") order by vi2_lgc) else vi_adurl end as CV_AdUrl from videoinfo vi where vi_sn= ("&vmin_sql&") and isnull(vi.DeleteFlag,0)=0" '加载条件查询
|
||
|
|
Else
|
||
|
|
Video_RelType=9
|
||
|
|
vmin_sql=" SELECT Top 1 vi.vi_sn, (case isnull(vi.vi_filename,'') when '' then (select top 1 bv_videolocation+bv_videofilename from MC_VideoResolutionBind where bv_vi_sn= (select top 1 vi2_vi_sn from videoinfo2 where vi2_lgc=1 and vi2_name='"&vTIl&"') order by addtime desc) else vi_location+vi.vi_filename end) as CV_Path,(vi_tmplocation+vi_originalpic) as CV_ImageUrl,case isnull((vi_adpicpath+vi_adurl),'') when '' then 'http://www.chinahighlights.com/image/ch-video/ad_pause.jpg' else 'http://mediafile.chinahighlights.com/UploadVideo'+vi_adpicpath+vi_adpicname end as CV_AdImageUrl,case isnull(vi_adurl,'') when '' then 'http://www.chinahighlights.com/redirect.asp?url=http://www.chinahighlights.com/forms/tailormadetours.htm%26t=32038%26sourc='+'"&vTIl&"' else vi_adurl end as CV_AdUrl"&_
|
||
|
|
" FROM VideoInfo vi INNER JOIN VideoInfo2 ON VI_SN = VI2_VI_SN "&_
|
||
|
|
" WHERE (VI2_LGC = 1) AND VI2_Name = N'"&vTIl&"' "&_
|
||
|
|
" AND isnull(vi.DeleteFlag,0)=0 "
|
||
|
|
End If
|
||
|
|
'-end'
|
||
|
|
|
||
|
|
'response.Write(vmin_sql)
|
||
|
|
'新的视屏查询 替换数据库连接字符串为conn
|
||
|
|
rel_vrs.open vmin_sql, conn, 1, 1
|
||
|
|
'-end
|
||
|
|
|
||
|
|
'Vodurl 参数值 new
|
||
|
|
Vodurl = "/UploadVideo"
|
||
|
|
'-end
|
||
|
|
|
||
|
|
If rel_vrs.recordcount > 0 Then
|
||
|
|
Video_exist = True
|
||
|
|
%>
|
||
|
|
<div class="videoBlock embed-responsive embed-responsive-4by3">
|
||
|
|
<div class="embed-responsive-item">
|
||
|
|
<div id="video" style="position:relative;width:<%=Video_Width%>px;height:<%=Video_height%>px;float: left;">
|
||
|
|
<%
|
||
|
|
vfile = "http://mediafile.chinahighlights.com"&Vodurl&rel_vrs("CV_Path") '视频地址
|
||
|
|
vimg = "http://mediafile.chinahighlights.com"&Vodurl&rel_vrs("CV_ImageUrl") '初始图片地址
|
||
|
|
%>
|
||
|
|
<script type="text/javascript" src="http://www.chinahighlights.com/video/video_act.js" data="?v_width=<%=Video_Width%>&v_height=<%=Video_height%>&v_url=<%=vfile%>&v_image=<%=vimg%>" id="js_chtvideo" class="img-responsive mobileVideo"></script>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<%
|
||
|
|
Else
|
||
|
|
'Response.Write ("false")
|
||
|
|
Video_exist = False
|
||
|
|
End If
|
||
|
|
rel_vrs.Close
|
||
|
|
Set rel_vrs = Nothing
|
||
|
|
End If
|
||
|
|
%>
|
||
|
|
|
||
|
|
|