<!--#include file="Include/QvodCms.Lable.asp"-->
<%
Dim player,PlaySv,PlaySvs,PlayJD,UserName,Uid,uvip
Dim NextUrl,NextPath:NextUrl="no":NextPath="no"
player=Split(Replace(NoSqlHack(Trim(Request.QueryString)),".html",""),"_")
If ubound(player)<>3 Then QvodCms_Err Err_UrlId
Data_Id=QvodCms_CLng(Replace(player(1),"id=",""))   '影片ID
PlaySvs=Trim(Replace(player(2),"&url",""))'播放服务组
PlayJD=QvodCms_CLng(Replace(player(3),"id=",""))'播放播集数ID
UserName=Request.Cookies("qvodcms")("UserName")'会员名
Uid=QvodCms_CLng(Request.Cookies("qvodcms")("Uid"))'会员ID
uvip=Request.Cookies("qvodcms")("Uvip")'vip状态
If isNul(uvip) Then uvip=Now()
If isNul(Data_Id) Or Not isNum(PlaySvs) Then QvodCms_Err Err_UrlId
If Not isNum(PlayJD) Then QvodCms_Err Err_UrlId
PlaySv=PlaySvs-1
If PlaySv<0 Then QvodCms_Err Err_UrlId Else PlaySv=PlaySv 
Lable_Cache = "Lable_Cache_PlayerCs"
If Cint(Config(19))=1 and CacheObj.ChkCache(Lable_Cache) Then
	Call LableObj.OpenPlayer(CacheObj.GetCache(Lable_Cache))
ElseIf Cint(Config(19))=1 and CacheObj.ChkCache(Lable_Cache)=False Then 
	Call Moban_Play_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"player_cs.html")
	Call CacheObj.SetCache(Lable_Cache,LableObj.Content)
	Call LableObj.OpenPlayer(LableObj.Content)
Else
	Call Moban_Play_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"player_cs.html")
	Call LableObj.OpenPlayer(LableObj.Content)
End If
Call OpenContent(LableObj.Content)
Set CacheObj = Nothing
Set LableObj = Nothing
Call CloseConn()
%>