<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$lstuserfav$$")%>
<html>
<title>收藏夹</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../css/lst.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"><tr><td height="31"><div class="titlebt">收藏夹</div></td></tr></table>
<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>

<table border="1" width="100%" id="table3" cellspacing="0" style="border-collapse: collapse" bordercolor="#F6F6F6" cellpadding="0">
<tr>
<td height="30" align="center" bgcolor="#F6F6F6"><b>用户ID</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>收藏产品名称</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>收藏时间</b></td>
<td height="30" align="center" bgcolor="#F6F6F6">操作</td>
</tr>
<%
sSql="select * from [LstFav] order by Id"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Response.Write ""
Else
Call PageNum(25)
for i=1 to mypage%>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF"><%=USERNAME(oRs("UserId"))%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><%=NEWSNAME(oRs("ProId"))%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("Saddtime")%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><a href="?action=delfav&Id=<%=oRs("Id")%>"><img src=../images/ico/del.gif></a></td>
</tr>
<%
oRs.MoveNext
Next
End If
%>
</table>

<table border="0" width="100%" cellspacing="3" cellpadding="3" bgcolor="#FFFFFF">
	<tr>
		<td align="center" height="30"><%Call PageUrl("?g=z",25)%></td>
	</tr>
</table>

		</td>
	</tr>
</table>
</body>
</html>
<%
'删除收藏夹
If action="delfav" then
		set ors=Server.CreateObject("ADODB.Recordset")
		sSql="delete * from [LstFav] WHERE Id = "&Id&" "
		ors.open sSql,oconn,1,3
		set ors=nothing
		call alert("删除成功!","lstuserfav.asp")
End if
%>