user_booklist.asp

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

<%if GOGXuser=0 then
	Response.Write ("<script>alert('操作错误!\n\n 没有更新员权限或更新权限被锁定。');history.back();</script>")
	Response.end
End If
%><table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">管理我更新的作品</font></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4">
		<table width="100%" align="center" cellspacing="0">
			<%
set rsab=server.createobject("adodb.recordset")
sqlab="select * from [list_book] where list_userid="&UserID&" order by id desc"
rsab.open sqlab,conn,1,1
if rsab.eof and rsab.bof then
%>
			<tr align="center" valign="middle">
				<td height="24" colspan="6" class="style1"><b>管理员没有设置任何作品归你进行更新,请直接联系管理员帮忙处理.</b></td>
			</tr>
			<%else%>
			<tr valign="middle">
				<td width="20%" align="center" height="24"><b>作品名称</b></td>
				<td width="40%" align="center"><b>最近添加或更新的章节</b></td>
				<td width="10%" align="center"><b>增加章节</b></td>
				<td width="10%" align="center"><b>写作状态</b></td>
				<td width="10%" align="center"><b>简介和公告</b></td>
			</tr>
			<%do while not rsab.eof%>
			<tr valign="middle">
				<td height="24">&nbsp;<a title="点击修改或增加分卷" href="user_bookzhanglist.asp?id=<%=rsab("id")%>"><font color="#006600"><%=rsab("list_name")%></font></a></td>
				<td><%
set rsvclass=server.createobject("adodb.recordset")
	sqlvclass="select id,list_cookid,view_type,view_size,view_date from [list_view] where view_id="&rsab("id")&" order by view_date desc"
	rsvclass.open sqlvclass,conn,1,1
	if rsvclass.eof and rsvclass.bof then
		response.write "暂无更新"
	else
dim list_cookid
list_cookid=rsvclass("list_cookid")
set rscclass=server.createobject("adodb.recordset")
sqlcclass="select list_cookname from [list_cook] where list_cookid="&list_cookid&""
rscclass.open sqlcclass,conn,1,1
if rscclass.eof and rscclass.bof then
	response.write "暂无更新"
else
%> <a target="_blank" href="view_book.asp?id=<%=rsvclass("id")%>" title="本章字数：<%=rsvclass("view_size")%>

更新日期：<%=rsvclass("view_date")%>"><%=rscclass("list_cookname")%>&nbsp;&nbsp;&nbsp;
				<%=rsvclass("view_type")%></a><%
rscclass.close
set rscclass=nothing
	end if
rsvclass.close
set rsvclass=nothing
end if
%></td>
				<td align="center">
				<a title="点击修改或增加分卷" href="user_bookzhanglist.asp?id=<%=rsab("id")%>">
				增加章节</a></td>
				<td align="center"><%if rsab("list_tai")="1" then response.write("转载中...") end if%>
				<%if rsab("list_tai")="2" then response.write("连载中...") end if%>
				<%if rsab("list_tai")="3" then response.write("出版中...") end if%>
				<%if rsab("list_tai")="4" then response.write("已暂停...") end if%>
				<%if rsab("list_tai")="5" then response.write("已停止...") end if%>
				<%if rsab("list_tai")="6" then response.write("已完成...") end if%></td>
				<td align="center"><a href="user_bookjjggedit.asp?id=<%=rsab("id")%>">修改</a></td>
			</tr>
			<%
rsab.movenext
loop
rsab.close
set rsab=nothing
%><%end if%></table>
		</td>
	</tr>
</table>