📄 user_book.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
						<td width="10%" height="34" align="center" valign="middle" bgcolor="#F7F7F7">
						<a href="user_bookjieedit.asp?id=<%=rs4("id")%>">修改</a></td>
					</tr>
					<%
      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs4.MoveNext
   Loop
%>
<%End If
Rs4.Close
Set  Rs4=Nothing
%>
				</table>
				</td>
			</tr>
		</table>
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
			<tr>
				<td height="24" align="center"><%
Response.Write ShowPage("user_book.asp?info=jie_list&id="&id&"",CurrentPage,Num,MaxPerPage,True,True," 条纪录")
%></td>
			</tr>
		</table>
		<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
			<tr align="center"  bgcolor="#F7F7F7">
				<td height="34" colspan="2">【<a href="user_book.asp?info=zhang_list&id=<%=b_id%>">返回分卷列表</a>】</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub jjgg_edit()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
%>
<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4"><font color="#FFFFFF">管理我更新的作品公告和简介</font></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4">
		<table width="100%" align="center" cellspacing="0">
			<form action="user_booksave.asp?info=book_jjgg_edit" method="post" name="jjform">
				<%
set rsab=server.createobject("adodb.recordset")
sqlab="select list_userid,list_all,list_news,list_name from [list_book] where id="&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%> <%
if rsab("list_userid")<>userID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
%>
				<tr align="center" valign="middle">
					<td height="24" colspan="6" class="style1"><b><%=rsab("list_name")%></b></td>
				</tr>
				<tr>
					<td width="20%" height="25" align="right" valign="middle">内容介绍：<br>
					(不能超过1500字)<br>
					</td>
					<td width="80%" colspan="3">
					<textarea name="list_all" cols="85" rows="9" class="form" id="list_all"><%=rsab("list_all")%></textarea></td>
				</tr>
				<tr>
					<td width="20%" height="25" align="right" valign="middle">作品公告：<br>
					(不能超过1500字)<br>
					</td>
					<td width="80%" colspan="3">
					<textarea name="list_news" cols="85" rows="8" class="form" id="list_news"><%=rsab("list_news")%></textarea></td>
				</tr>
				<tr align="center" valign="bottom">
					<td height="25" colspan="4">
					<input type="hidden" name="id" value="<%=id%>">
					<input type="submit" class="button" value="确认修改"> 　 
					<input type="reset" class="button" value="重 置"></td>
				</tr>
			</form>
		<%end if
		rsab.close
set rsab=nothing
%>
		</table>
		</td>
	</tr>
</table>
<%end sub%>
<%Sub zhang_list()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("adodb.recordset")
sql="select id,list_class,list_name,list_userid 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
classid=rs("list_class")
list_name=rs("list_name")
b_id=rs("id")
rs.close
set rs=nothing

set rs2=server.createobject("adodb.recordset")
sql2="select * from list_type where typeid="&classid
rs2.open sql2,conn,1,1
list_tpye=rs2("list_tpye")
rs2.close
set rs2=nothing
%><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"><%=list_name%></span></td>
					</tr>
					<tr align="right" bgcolor="#F7F7F7">
						<td height="20" colspan="4" valign="middle" bgcolor="#F7F7F7">
						所属类型：<span class="style3"><%=list_tpye%></span>　　<a href="user_book.asp?info=zhang_add&id=<%=b_id%>">添加分卷</td>
					</tr>
					<%
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if                 

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="25" colspan="3" valign="middle">
						<span class="style3">暂无任何分卷，请添加！</span></td>
					</tr>
<%else
   Rs1.PageSize=MaxPerPage
   Allpage=Rs1.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs1.RecordCount
   Rs1.MoveFirst
   Rs1.AbsolutePage=CurrentPage
   i=0
 Do While Not Rs1.Eof%>
					<tr bgcolor="#F7F7F7">
						<td width="63%" height="25" align="center" valign="middle" bgcolor="#F7F7F7">
						<a href="user_book.asp?info=jie_list&id=<%=rs1("list_cookid")%>">
						<%=rs1("list_cookname")%></a></td>
						<td width="10%" align="center" bgcolor="#F7F7F7">
						<a href="user_book.asp?info=zhang_edit&id=<%=rs1("list_cookid")%>">
						修改名称</a></td>
						<td width="18%" align="center" bgcolor="#F7F7F7">
						<a href="user_book.asp?info=jie_add&id=<%=rs1("list_cookid")%>">
						添加章节</a></td>
					</tr>
					<%
      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs1.MoveNext
   Loop
%>
<%End If
Rs1.Close
Set  Rs1=Nothing
%>
				</table>
				</td>
			</tr>
		</table>
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
			<tr>
				<td height="24" align="center">
<%Response.Write ShowPage("user_book.asp?info=zhang_list&id="&id&"",CurrentPage,Num,MaxPerPage,True,True," 条纪录")%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>

<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub zhang_add()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("adodb.recordset")
sql="select id,list_class,list_userid 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
classid=rs("list_class")
b_id=rs("id")
rs.close
set rs=nothing
%>
<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">
				<form action="user_booksave.asp?info=book_zhang_add" method="post" name="zform">
						<tr bgcolor="#F7F7F7">
							<td width="40%" height="25" 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="25" colspan="2">
							<input type="hidden" name="classid" value="<%=classid%>">
							<input type="hidden" name="b_id" value="<%=b_id%>">
							<input type="submit" class="button" value="添加分卷"> 　 
							<input type="reset" class="button" value="重置内容"> 【<a href="user_book.asp?info=book_list">返回作品列表</a>】</td>
						</tr>
				</form>
					</table>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub zhang_edit()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("ADODB.recordset")
sql="select list_cookname,list_bookid from list_cook where list_cookid="&id
rs.open sql,conn,1,1
list_cookname=rs("list_cookname")
b_id=rs("list_bookid")
rs.close
set rs=nothing

set rs3=server.createobject("adodb.recordset")
sql3="select list_userid from list_book where id="&b_id
rs3.open sql3,conn,1,1
if rs3("list_userid")<>userID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
rs3.close
set rs3=nothing
%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
	<tr bgcolor="#588fc7" height="30">
		<td colspan="4" class="head"><font color="#FFFFFF">修改分卷名称</font></td>
	</tr><tr>
		<td bgcolor="#F7F7F7">
		<form action="user_booksave.asp?info=book_zhang_edit" method="post" name="zeform">
			<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
				<tr bgcolor="#F7F7F7">
					<td width="40%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
					分卷名称：<br>
					</td>
					<td width="60%">
					<input name="list_cookname" type="text" id="list_cookname" value="<%=list_cookname%>"></td>
				</tr>
				<tr align="center" valign="bottom" bgcolor="#F7F7F7">
					<td height="25" colspan="2">
					<input type="hidden" name="id" value="<%=id%>">
					<input type="submit" class="button" value="确认修改"> 　 
					<input type="reset" class="button" value="重 置"></td>
				</tr>
				<tr align="center" bgcolor="#F7F7F7">
					<td height="25" colspan="2">【<a href="user_book.asp?info=zhang_list&id=<%=b_id%>">返回分卷列表</a>】</td>
				</tr>
			</table>
		</form>
		</td>
	</tr>
</table>
<%end sub%>
上一页 12
💿 文件大小 667 K
👤 上传用户 ccdn2615
📂 所属分类 VC书籍
🏷️ 相关标签

#家 #模块 #发布 #更新
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -