<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="UserSession.asp" -->
<!--#include file="UserConn.asp" -->
<!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" />
<title>我的收藏</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color:#333333;
}
#lltt{ padding-left:10px;}
a { color:#333;}
-->
</style>
<script src="UserDate.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='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>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F1F4F6" style="border:1px #ffffff solid;">
  <tr>
    <td height="25" colspan="4" bgcolor="#F1F4F6" id="lltt" style="color:#FF0000; font-weight:bold">今天是：<script language="javascript">CAL();</script> 我的帐号:<%=UserName%></td>
  </tr>
  <tr>
    <td width="48%" height="22" bgcolor="#FFFFFF"  id="lltt">影片名称</td>
    <td width="19%" bgcolor="#FFFFFF" align="center">影片状态</td>
    <td width="22%" bgcolor="#FFFFFF"  align="center">收藏人气</td>
    <td width="11%" bgcolor="#FFFFFF"  align="center">操作管理</td>
  </tr>
  <%
  Dim DataUrl
  reurl=Request.ServerVariables("Http_Referer")'来源地址
  page=QvodCms_CLng(Request.QueryString("page")):If page<=0 or page="" Then page=1'初始化分页参数
  pagelink="?"'分页路径
  Set rs = Server.CreateObject("adodb.recordset")
            sql = "select ufav from qvodcms_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,data_py from qvodcms_name where name_id in("&didd&")"
			   rss.Open sqll, Conn, 1, 1
			   if not(rss.eof and rss.bof) then
			   rss.pagesize=15'每页数据
	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 bgcolor="#FFFFFF">
    <td height="22" id="lltt"><a href="<%=GetDataLink(rss("class_id"),rss("name_id"),rss("data_py"))%>" 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="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:Call CloseConn()
  %>
  <tr>
    <td height="28" colspan="4" bgcolor="#FFFFFF"  id="lltt"><%=ShowPage(pagelink&Product,m, z, page, True, True, "个", False)%></td>
  </tr>
</table>
</body>
</html>

