user_bookbox.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#ffffff" border="0">
								<tr>
									<td>
									<table cellSpacing="1" cellPadding="3" width="100%" border="0">
										<tr>
											<td bgColor="#588fc7" colSpan="6" class="head">
											<font color="#FFFFFF"><b><%=UserName%> 的藏书架</b></font></td>
										</tr>
										<tr align="middle" bgColor="#588fc7">
											<td class="head">
											<font color="#FFFFFF">作品名称</font></td>
											<td class="head">
											<font color="#FFFFFF">作者</font></td>
											<td class="head">
											<font color="#FFFFFF">收藏日期</font></td>
											<td class="head">
											<font color="#FFFFFF">最近更新章节</font></td>
											<td class="head">
											<font color="#FFFFFF">章节书签</font></td>
											<td class="head">
											<font color="#FFFFFF">删除</font></td>
										</tr>
<%
'on error resume next
set rs=server.createobject("adodb.recordset")
sql="select * from [User_box] where UserID='"&UserID&"' order by id desc"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof%>
										<%
										dim list_bookid
										list_bookid=rs("list_bookid")
										set rs_u=server.createobject("adodb.recordset")
										sql_u="select id,list_name,list_user,newviewid,newviewname from [list_book] where id='"&list_bookid&"'"
										rs_u.open sql_u,conn,1,1
										if not (rs_u.bof and rs_u.eof) then%>
										<tr>
											<td align="middle" bgColor="#ffffff">
											<a href='look_book.asp?id=<%=rs_u("id")%>' target='_blank' style='color: #1A53FF; text-decoration: none; background-color: transparent' target='_blank'><%=rs_u("list_name")%></a></td>
											<td align="middle" bgColor="#dfefff">
											<%=rs_u("list_user")%></td>
											<td align="middle" bgColor="#ffffff">
											<%=rs("live_date")%></td>
<td align=middle bgColor=#dfefff >
<a style="color: #1A53FF; text-decoration: none; background-color: transparent" target="_blank" href="view_book.asp?id=<%=rs_u("newviewid")%>"><%if rs_u("newviewname")<>"" then%><%=rs_u("newviewname")%><%else response.write "暂无更新"
end if%></a>
</td>
											<td align="middle" bgColor="#ffffff"><%
if rs("list_viewid")<>"" then
										set rs_v=server.createobject("adodb.recordset")
										sql_v="select view_type from [list_view] where id='"&rs("list_viewid")&"'"
										rs_v.open sql_v,conn,1,1
										if not (rs_v.bof and rs_v.eof) then%>
<a style="color: #1A53FF; text-decoration: none; background-color: transparent" target="_blank" href="view_book.asp?id=<%=rs("list_viewid")%>"><%=rs_v("view_type")%></a>
<%else
 response.write "暂无书签"
End If
else
 response.write "暂无书签"
End If
%></td>
	<td align="middle" bgColor="#dfefff">
	<input class="stbtm" onclick="javascript:location.href='albbox.asp?action=del&id=<%=rs("id")%>'" type="submit" value="删除"></td>
										</tr>
										<%else
										End If%>
										<%rs.movenext
										 loop
										 %>
										<tr align="right">
											<td bgColor="#588fc7" colSpan="6" height="25" class="head">
											</td>
										</tr>
										<% else  %>
										<tr>
										    <td align="center" height="30" bgcolor="#FFFFFF" colspan="6">您还没有收藏任何作品~</td>
										</tr>
										<tr align="right">
											<td bgColor="#588fc7" colSpan="6" height="25" class="head">
											</td>
										</tr>
										<%End If
										rs.close
										set rs=nothing
										%>
									</table>
									</td>
								</tr>
						</table>