user_bookzhanglist.asp

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

<%if GOGXuser=0 then
	Response.Write ("<script>alert('操作错误!\n\n 没有更新员权限或更新权限被锁定。');history.back();</script>")
	Response.end
End If%><%
dim id
id=replace(trim(request("id")),"'","")
CheckSqlnum(id)
if id="" then
response.Redirect "user_logout.asp"
response.End
end if
id=int(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from list_book where id="&id
rs.open sql,conn,1,1
if rs("list_userid")<>UserID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
%><%
dim classid
classid=rs("list_class")
set rs2=server.createobject("adodb.recordset")
sql2="select * from list_type where typeid="&classid
rs2.open sql2,conn,1,1
%>
<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%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr>
				<td bgcolor="#F7F7F7">
				<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
					<tr align="center" bgcolor="#F7F7F7">
						<td height="40" colspan="4" valign="middle" bgcolor="#F7F7F7">
						<span class="style2"><%=rs("list_name")%></span></td>
					</tr>
					<tr align="right" bgcolor="#F7F7F7">
						<td height="20" colspan="4" valign="middle" bgcolor="#F7F7F7">
						所属类型：<span class="style3"><%=rs2("list_tpye")%></span></td>
					</tr>
					<%
dim b_id
b_id=rs("id")
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_bookid="&b_id
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
					<tr align="center" bgcolor="#F7F7F7">
						<td height="34" colspan="3" valign="middle">
						<span class="style3">暂无任何分卷，请添加！</span></td>
					</tr>
					<%else%><%
dim page
page=clng(request("page"))
rs1.pagesize=10
if page=0 then page=1
pages=rs1.pagecount
if page > pages then page=pages
rs1.Absolutepage=page

for j=1 to rs1.pagesize
%>
					<tr bgcolor="#F7F7F7">
						<td width="63%" height="34" align="center" valign="middle" bgcolor="#F7F7F7">
						<a href="user_bookjielist.asp?id=<%=rs1("list_cookid")%>">
						<%=rs1("list_cookname")%></a></td>
						<td width="10%" align="center" bgcolor="#F7F7F7">
						<a href="user_bookzhangedit.asp?id=<%=rs1("list_cookid")%>">
						修改名称</a></td>
						<td width="18%" align="center" bgcolor="#F7F7F7">
						<a href="user_bookjieadd.asp?id=<%=rs1("list_cookid")%>">
						添加章节</a></td>
					</tr>
					<%
rs1.movenext
if rs1.eof then exit for
Next
%>
				</table>
				</td>
			</tr>
		</table>
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
			<tr>
				<td height="24" align="center"><%
					if page<2 then
						response.write "首页 上一页&nbsp;"
					else
						response.write "<a href=user_bookzhanglist.asp?id="&id&"&page=1>首页</a>&nbsp;"
						response.write "<a href=user_bookzhanglist.asp?id="&id&"&page=" & page-1 & ">上一页</a>&nbsp;"
					end if
					if rs1.pagecount-page<1 then
						response.write "下一页 尾页&nbsp;"
					else
						response.write "<a href=user_bookzhanglist.asp?id="&id&"&page=" & (page+1) & ">"
						response.write "下一页</a> <a href=user_bookzhanglist.asp?id="&id&"&page="&rs1.pagecount&">尾页</a>"
					end if
						response.write "&nbsp;页次:<strong><font color=red>"&page&"</font>/"&rs1.pagecount&"</strong>页"
						response.write "&nbsp;共<b><font color='#FF0000'>"&rs1.recordcount&"</font></b>条记录<b>"&rs1.pagesize&"</b>共记录/页"
					%><%end if%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<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%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr>
				<td bgcolor="#F7F7F7">
				<form action method="post" name="myform" id="myform">
					<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
						<tr bgcolor="#F7F7F7">
							<td width="40%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							分卷名称：<br>
							</td>
							<td width="60%">
							<input name="list_cookname" type="text" id="list_cookname"></td>
						</tr>
						<tr align="center" valign="bottom" bgcolor="#F7F7F7">
							<td height="34" colspan="2">
							<input type="hidden" name="info" value="yes">
							<input type="submit" class="button" value="添加分卷"> 　 
							<input type="reset" class="button" value="重置内容"> 【<a href="javascript:onclick=history.go(-1)">返回作品列表</a>】</td>
						</tr>
					</table>
				</form>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<%
if request.form("info")="" then
else
if request.form("list_cookname")="" then
	response.write "<script language=javascript>alert('分卷名称不能为空!');history.back(-1);</script>"
	response.end
end if
dim dd_id,classid1
classid1=rs2("typeid")
dd_id=request.querystring("id")
set rs3=server.createobject("adodb.recordset")
sql3="select * from list_cook"
rs3.open sql3,conn,1,3
rs3.addnew
rs3("list_cookname")=trim(request.form("list_cookname"))
rs3("list_bookid")=dd_id
rs3("classid")=classid1
rs3.update
rs3.close
set rs3=nothing
response.write "<script language=javascript>alert(' 添加成功!');location.href='user_bookzhanglist.asp?id="&id&"';</script>"
end if
%> <%
rs2.close
set rs2=nothing
%> <%
rs1.close
set rs1=nothing
%><%
rs.close
set rs=nothing
%>