<!--#include file="conn.asp" -->
<!-- #include file="bbsuser.asp" -->
<!--#include file="ftbbs_nav.asp" -->
<!--#include file="inc/publicfun.asp" -->
<%	
call FTBBS_HTML_MB
dim rssql,getstring
'******************************************
dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
wzrep = Application("FTBBSMB")(5,0)
defaulthome=Application("FTBBSMB")(31,0)
homepage=ft_home(defaulthome)
'+++++++++++++++++++++++++++
strsql="select * from ftbbs_favorites,bbstitle where ftbbs_favorites.bbstitleid = bbstitle.id and ftbbs_favorites.clubuser_name='"&request.cookies("name")&"' order by ftbbs_favorites.id desc"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,1
%>
<HTML><HEAD>
<title>我的收藏夹</title>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<script language=javascript src="inc/cookies.js"></script>
<script>
//载入上次cookies记录的样式
var stylecook = getCookie("STYLESHOW");
var style;
var strstyle;
if(stylecook=="")
{
 stylecook=1;
}
else
{
 stylecook++;
}
//style="style0"+stylecook;
style="main0"+stylecook+".css";
strstyle="<link href=\"css/"+style+"\"  rel=\"stylesheet\" type=\"text/css\"> ";
document.write(strstyle);
</script>
</HEAD>
</head>
<script language="JavaScript" src="inc/Main.js"></script>
<body>
<%
if request.cookies("ftbbstype")=1 then
  response.write headhtml
end if
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center" class="maintbbg">
  <tr>
    <td> 
      <table width="100%" border=0 cellpadding=2 cellspacing=1>
        <tbody>
		<%if request.cookies("ftbbstype")<>1 then%>
          <tr> 
            <td height="25" class="f12bg">&nbsp;<%=userinfo%></td>
          </tr>
		<%end if%>
          <tr>
            <td height="25" class="maintbtr3" align="left">&nbsp;<a href="<%=homepage%>">论坛首页</a> 
              >> 收藏夹</td>
          </tr>
        </tbody>
      </table>
	  <script src="listad.js"></script> 
     <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
          <td height=5 bgcolor="#FFFFFF"><spacer height="5" type="block"></td>
      </tr>
     </table>
      <table width="100%" border=0 cellpadding=2 cellspacing=1 class="maintbbg" align="center">
        <tbody>
          <tr align=middle class=f12> 
            <td width="5%" height="25" class="f12bg">选择</td>
            <td width="52%" class="f12bg" >论坛主题</td>
            <td width="10%" class="f12bg" >回复/点击</td>
            <td width="11%" class="f12bg" >作者</td>
            <td width="25%" class="f12bg" >最后更新</td>
          </tr>
<form name="selectform" method="post" action="delmyfavtories.asp" style="MARGIN-TOP: 0px;margin-bottom:0px">
    <input type="hidden" name="op" value="选择删除">
<input type="hidden" name="returnURL" value="myfavorties.asp?<%=Request.QueryString%>">
 <script language="JavaScript">
  <!--
  function select_pl_submit(optype){
	var f=document.forms["selectform"]
	f.op.value=optype
	f.submit()
  }
  //-->
  </script>
<%
if not rs.eof then
   wzpage = clng(request.querystring("page"))
   if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
   rs.PageSize=wzrep
   rs.AbsolutePage=wzpage
   wzpagecount=rs.PageCount
   wzcount=rs.RecordCount
  dim i,bgcolor
  for i = 0 to wzrep-1
    if rs.eof then exit for
	bbstitleid=rs("bbstitleid")
	indbdate=rs("redate")
	year1=right(year(indbdate),2)
	month1=right("0"&month(indbdate),2)
	day1=right("0"&day(indbdate),2)
	hour1=right("0"&hour(indbdate),2)
	minute1=right("0"&minute(indbdate),2)
	indbdate=year1&"-"&month1&"-"&day1&" "&hour1&":"&minute1
	titlecolor=rs("titlecolor")
	bbstitle=rs("title")
	
	if titlecolor<>"" then
	title="<font color="&titlecolor&">"&bbstitle&"</font>"
	else
	title=bbstitle
	end if
	
	reinfo=rs("reinfo")
	if instr(reinfo,"||")>0 then
	rearr=split(reinfo,"||")
	arrnum=UBound(rearr)
	reinfo=rearr(arrnum)
	end if
	if reinfo<>"" and instr(reinfo,",")>0 then
	reinfo=replace(reinfo,"|","")
	rearr=split(reinfo,",")
	replydate=rearr(0)
	replyuser="<font color=red>|</font><a class=map href=ftbbsmyinfo.asp?ftbbsuser="&rearr(1)&">"&rearr(1)&"</a>"
	replydate=right(year(replydate),2)&"-"&month(replydate)&"-"&day(replydate)&" "&hour(replydate)&":"&minute(replydate)
	else
	replydate=indbdate
	replyuser=""
	end if
%>
          <tr align=middle> 
            <td width="5%" height="28" class="maintbtr1">
<input type="checkbox" name="checkbox1" value="<%=bbstitleid%>">
            </td>
            <td width="52%"  align=left valign="middle" class="maintbtr2"> 
		    <%if rs("zhiye")="10" then%>
			  <img src="images/rar.gif" width="16" height="16" align="absmiddle">
			<%else%>	  
              <%if rs("sign")="1" then%>
              <img src="images/jian.gif" width="15" height="13" align="absmiddle"> 
              <%end if%>
              <%if rs("huati")="1" then%>
              <img src="images/jing.gif" width="15" height="13" align="absmiddle"> 
              <%end if%>
              <%if rs("P_display")="0" then%>
              <img src="images/suo.gif" width="12" height="13" align="absmiddle"> 
              <%end if%>
			<%end if%>
              <%if rs("P_display")<>"0" and rs("bbstop")<>1 and rs("sign")<>"1" and rs("huati")<>"1" and rs("zhiye")<>"10" and rs("picture")<>"" then%>
              <img src="images/<%=rs("picture")%>" width="19" height="19" align="absmiddle"> 
              <%end if%>
              <a class="f14" href="ftbbs.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank"><%=title%></a> 
              <%if rs("bbs_img_display")=1 and (right(rs("bbs_img"),3)="gif" or right(rs("bbs_img"),3)="jpg") then%>
              <font color=red>[图]</font> 
              <%end if%>
               <%
			  if rs("bbs_img_display")=1 then
              response.write "<img src=""images/picflag.gif"" width=""13"" height=""13"" align=""absmiddle"" alt=""附带图片"">" 
              end if
			  pagenum=Application("FTBBSMB")(6,0)
              k=rs("rep")/pagenum
			  if int(k)=k then
   			  page=k
			  else
   			  page=int(k)+1
			  end if
			  if page>1 then
			    response.write "["
			    for z=1 to page
				   if z>=4 and page>6 then
				      response.write "..<a href=ftbbs.asp?id="&rs("id")&"&page="&page&"><font color=red>"&page&"</font></a>"    
				      exit for
				   end if
				   if z=1 then
				   response.write "<a href=ftbbs.asp?id="&rs("id")&"&page="&z&"><font color=red>"&z&"</font></a> "
				   else
				   response.write " <a href=ftbbs.asp?id="&rs("id")&"&page="&z&"><font color=red>"&z&"</font></a>"
				   end if
				next
				response.write "]"
			  end if
			  %>
            </td>
            <td width="7%" class="maintbtr1"><%=rs("rep")%>/<%if rs("hit")>=500 then response.write "<font color=red>"&rs("hit")&"</font>" else response.write rs("hit") end if%>
            </td>
            <td width="9%" class="maintbtr3"> <a href="ftbbsmyinfo.asp?ftbbsuser=<%=rs("user_id")%>"><%=rs("user_id")%></a></td>
            <td width="16%" class="maintbtr3">
			<div align="left"><%response.write replydate&replyuser%></div>
			</td>
          </tr>		  
<%
rs.movenext
next
%>
</form>
          <tr valign="top"> 
            <td colspan="6" class="f12bg"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr> 
                  
                <td align="left" class="f12"> 
        <input name="button" type="button" onclick="selectAll()" value="全选"> 
        <input name="button" type="button" onclick="selectRev()" value="反选">
        <input name="button" type="button" onclick="select_pl_submit('选择删除')" value="将所选删除">
                </td>
                <td height="23" align="right" class="f12">&nbsp;共<font color=red><%= wzcount%></font>个主题 
                  <font color=red><%= wzrep%></font>条/页 共<font color=red><%= wzpagecount%></font>页 
                  <%= pagination(wzpagecount,userid)%> </td>
                </tr>
              </table></td>
          </tr>
<%else%>
          <tr class="maintbtr3"> 
            <td colspan=6 align=center height=25> 你还没有收藏任何贴子！ </td>
          </tr>
<%end if%>
        </tbody>
      </table>
    </td>
  </tr>
</table>
<!--#include file="inc/bbstail.htm"-->