<!--#include file="../JaJa.Scnn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我的收藏</title>
<link href="images/cs.css" rel="stylesheet" type="text/css">
<script language="javascript" src="7f2a5997516c0c7e44afa5d41f6fe66f.js"></script>
<script src="../js/JaJa.Date.Js"></script>
<script type="text/javascript">
function kErr(){return true;}window.onerror = kErr;
//搜索关键词提示V2
var oKeyWordTips = new Kuaibo.KeyWordTips();
$(document).ready(function(){
	setFrameHeight();
	setInterval("setFrameHeight()",200);
	//Kuaibo.view.check();

	//搜索关键词提示V2
	oKeyWordTips.Init( $(".keywords_list"), $("#iWord") );
});

//复选表单全选事件 form：表单名
function CheckAll(form){
  var tagname=(arguments.length>1)?arguments[1]:'TR';
  for (var i=0;i<form.elements.length;i++){
    var e = form.elements[i];
    if (e.name != 'chkAll' && e.disabled == false && e.type == 'checkbox') {
      e.checked = form.chkAll.checked;
      if (e.checked){hL(e,tagname)};else{dL(e,tagname)};
    }
  }
}

function hL(E,tagname){
  while (E.tagName!=tagname) {E=E.parentElement;}
  E.className='tdbg2';
}
function dL(E,tagname){
  while (E.tagName!=tagname) {E=E.parentElement;}
  E.className='tdbg';
}
function favdel(id)
{
  if(confirm('删除后将不能恢复,确定要删除吗?'))
  {   
   window.location.href='../ui/JaJa_UserFav_save.asp?action=del&id='+id;
  }   
}
function exit()
{
  if(confirm('您确定要退出?'))
  {   
   window.location.href='login.asp?action=exit';
  }   
}
function html(id)
{
 window.open ('../html/'+id+'.html') 
}
</script>
</head>
<body id="iebar">
<%
Dim UserName,Uid,ujf,uvip,utime,ulc
UserName=Request.Cookies("qvodcms")("UserName")
Uid=PE_Clng(Request.Cookies("qvodcms")("Uid"))'会员ID
ujf=Request.Cookies("qvodcms")("Ujf")'会员积分
uvip=Request.Cookies("qvodcms")("Uvip")'vip状态
utime=Trim(Request.Cookies("qvodcms")("Utime"))'服务时间
ulc=Request.Cookies("qvodcms")("Ulc")'会员名称
upic=Request.Cookies("qvodcms")("UPic")'会员头像
if Len(UserName)<6 or UserName="" or Uid<0  or utime="" or uvip="" Then
REsponse.Write "<div align=center><BR><BR>请登陆后操作！</div>"
Response.End()
End if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" >
  <tr class="lefta">
    <td width="83%" height="26" background="images/cbg.gif" onClick="javascript:location.reload();" bgcolor="333333" class="leftbx" style="padding-left:8px;"><img src="images/ccong.gif" width="16" height="15"  align="absmiddle"> 我的收藏夹</td>
    <td width="17%" align="left" background="images/cbg.gif" bgcolor="333333" class="leftbx"></td>
  </tr>
  <tr class="lefta">
    <td colspan="2"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="" >
  <tr>
    <td width="48%" height="22" bgcolor="#191919"  id="lltt" style="padding-left:2px;"> 影片名称</td>
    <!--<td width="19%" bgcolor="#191919" align="center">状态</td>-->
    <td width="22%" bgcolor="#191919"  align="center">收藏</td>
    <td width="11%" bgcolor="#191919"  align="center">管理</td>
  </tr>
  <%
  Dim DataUrl
  JaJaPath = left(JaJapath,instrrev(JaJapath, "/")-1)'获取安装目录
  JaJaPath = left(JaJapath,instrrev(JaJapath, "/"))'获取安装目录
  page=PE_CLng(Request.QueryString("page")):If page<=0 or page="" Then page=1'初始化分页参数
  pagelink="?"'分页路径
  Set rs = Server.CreateObject("adodb.recordset")
            sql = "select ufav from jaja_user where uid="&uid&""
            rs.Open sql, Conn, 1, 1
			if Cint(len(rs("ufav")))>1 then
                ufavlist=rs("ufav")
                else
				Response.Write "<tr><td height=""25"" align=""center"" colspan=""4"">暂无收藏记录！</td></tr>"
                ufavlist="|123456790"
            End if
             temp=split(ufavlist,"|")
			  for j = 1 to ubound(temp)
			  did=did&","&temp(j)
			  next
		
			   didd=Replace(did,",123456790","123456790")
			    'Response.Write didd
			  'Response.End()
			   Set rss = Server.CreateObject("adodb.recordset")
			   sqll = "select data_name,name_id,class_id,data_reurl,data_fav from jaja_name where name_id in("&didd&")"
			   rss.Open sqll, Conn, 1, 1
			   if not(rss.eof and rss.bof) then
			   rss.pagesize=300'每页数据
	rss.AbsolutePage=page
	m=rss.recordcount     '总记录
	n=rss.PageCount       '总页数
	z=rss.pagesize        '每页数量
	i=0
	Do While Not rss.eof and i<rss.pagesize
	i=i+1
  %>
   <tr >
    <td height="22" id="lltt" style="padding-left:2px;"><a href="../Detailscs.asp?Name_Id=<%=rss("name_id")%>" target="_blank"><%=rss("data_name")%></a></td>
   <!-- <td align="center" class="mod_location"><%=rss("data_reurl")%></td>-->
    <td align="center" class="mod_location"><%=rss("data_fav")%></td>
    <td class="mod_location" align="center"><a href="../ui/JaJa_UserFav_save.asp?action=del&id=<%=rss("name_id")%>" onClick="return confirm('删除后将不能恢复,确定要删除吗?');">删除</a></td>
  </tr>
  <%
  rss.movenext:loop 
  End if
  rs.Close:rss.Close:set rs=nothing:Set rss=Nothing:Set conn=nothing
  %>
  <tr>
    <td height="28" colspan="4" id="lltt"><%'=ShowPage(pagelink&Product,m, z, page, True, True, "个", False)%></td>
  </tr>
</table></td>
  </tr>
</table>
</body>
</html>

  