author_booklist.asp

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

<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>
                                        <tbody><%
set rsab=server.createobject("adodb.recordset")
sqlab="select * from [list_book] where list_Adminid="&author_ID&" 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>
                                            <td width="10%" align=center><b>作品评论</b></td>
                                        </tr>
                                        <%do while not rsab.eof%>
                                        <tr valign="middle">
                                            <td height=24>&nbsp;<a title="点击修改或增加分卷" href="author_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="author_view_go_cook.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="author_bookjjggedit.asp?id=<%=rsab("id")%>">修改</a></td>
											<td align=center>
											<a href="author_bookpinglun.asp?id=<%=rsab("id")%>">管理</a></td>
                                        </tr>
                                        <%
rsab.movenext
loop
rsab.close
set rsab=nothing
%><%end if%></tbody>
                                    </table>
								</td>
							</tr>
						</table>