📄 user_book.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
dim UserID,UserName
UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='user_log.asp?info=in';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select ID,Name,LockUser,GOGXuser from [Userinfo] where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
GOGXuser=rsu("GOGXuser")
UserID=rsu("ID")
UserName=rsu("Name")
rsu.close
set rsu=nothing

if GOGXuser=0 then
	Response.Write ("<script>alert('操作错误!\n\n 没有更新员权限或更新权限被锁定。');history.back();</script>")
	Response.end
End If
Select Case request.querystring("info")
	Case "book_add"
		Call book_add()
	Case "book_list"
		Call book_list()
	Case "zhang_add"
		Call zhang_add()
	Case "zhang_list"
		Call zhang_list()
	Case "zhang_edit"
		Call zhang_edit()
	Case "jie_add"
		Call jie_add()
	Case "jie_list"
		Call jie_list()
	Case "jie_edit"
		Call jie_edit()
	Case "jjgg_edit"
		Call jjgg_edit()
	Case "view_go_cook"
		Call view_go_cook()
end select 
%>
<%Sub book_list()%>
<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 id,newviewname,list_tai,list_name 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_book.asp?info=zhang_list&id=<%=rsab("id")%>"><font color="#006600"><%=rsab("list_name")%></font></a></td>
				<td><%if rsab("newviewname")<>"" then response.write (rsab("newviewname")) else response.write ("暂无更新") end if%></td>
				<td align="center">
				<a title="点击修改或增加分卷" href="user_book.asp?info=zhang_list&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_book.asp?info=jjgg_edit&id=<%=rsab("id")%>">修改</a></td>
			</tr>
			<%
rsab.movenext
loop
rsab.close
set rsab=nothing
%><%end if%></table>
		</td>
	</tr>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub jie_add()
id=CheckSql(request("id"))
CheckSqlnum(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from list_cook where list_cookid="&id
rs.open sql,conn,1,1

b_id=rs("list_bookid")
set rs3=server.createobject("adodb.recordset")
sql3="select id,list_name,list_class,list_userid from list_book where id="&b_id
rs3.open sql3,conn,1,3
if rs3("list_userid")<>userID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
list_name=rs3("list_name")
classid=rs3("list_class")
book0id=rs3("id")
rs3.close
set rs3=nothing
%><%
set rs2=server.createobject("adodb.recordset")
sql2="select list_tpye from list_type where typeid="&classid
rs2.open sql2,conn,1,1
list_tpye=rs2("list_tpye")
rs2.close
set rs2=nothing
%> <%
dim c_id
c_id=rs("list_cookid")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select * from list_view where list_cookid="&c_id
rs4.open sql4,conn,1,3
%>
<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%" 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="center" bgcolor="#F7F7F7">
				<td height="20" colspan="4" valign="middle" bgcolor="#F7F7F7">所属类型：<span class="style3"><%=list_tpye%></span>&nbsp;&nbsp;&nbsp; 
				当前分卷：<span class="style3"><%=rs("list_cookname")%></span></td>
			</tr>
		</table>
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr>
				<td bgcolor="#F7F7F7">
				<script language="JavaScript">
var postminchars = parseInt('2');
var postmaxchars = parseInt('<%=viewsizeNum%>');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("CnEndWeb（终点）提醒：\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("CnEndWeb（终点）提醒：\n请完成标题或内容栏。");
return false;
} else if (theform.subject.value.length > 200) {
alert("CnEndWeb（终点）提醒：\n您的标题超过 200 个字符的限制。");
return false;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("CnEndWeb（终点）提醒：\n内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return false;
}			
theform.replysubmit.disabled = true;
return true;
}
</script>
<form action="user_booksave.asp?info=book_jie_add" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript" src="js/bbcode.js"></script>
					<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
						<tr bgcolor="#F7F7F7">
							<td width="15%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							章节名称：<br>
							</td>
							<td width="85%" colspan="3"><input name="subject" type="text" id="subject" size="40" class='form'></td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="26%" height="34" valign="middle" align="right">CnEndcode 代码：<br>
			<input onclick="chmode('2')" type="radio" checked value="2" name="mode"> 
			提示插入&nbsp;&nbsp;&nbsp;&nbsp;<br>
			<input onclick="chmode('0')" type="radio" value="0" name="mode"> 直接插入&nbsp;&nbsp;&nbsp;&nbsp;<br>
			<input onclick="chmode('1')" type="radio" value="1" name="mode"> 帮助信息&nbsp;&nbsp;&nbsp;&nbsp;</td>
			<td width="74%" colspan="3"><!--#include file="../inc/ubbcode.asp"--></td>
		</tr>
                                            <tr bgcolor="#F7F7F7">
                                                <td width="15%" height="34" align="right" valign="top"><br><br>章节内容<a class="smalltxt" onclick="checklength(document.input)"> 
			[字数检查]</a>：<br></td>
							<td width="85%" colspan="3">
							<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 80%; WORD-BREAK: break-all" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"></textarea></td>
						</tr>
						<tr align="center" valign="bottom" bgcolor="#F7F7F7">
							<td height="34" colspan="4">
							<input type="hidden" name="b_id" value="<%=b_id%>">
							<input type="hidden" name="c_id" value="<%=c_id%>">
							<input type="submit" class="button" value="添加章节"> 　 
							<input type="reset" class="button" value="重置内容"> 【<a href=user_book.asp?info=zhang_list&id=<%=b_id%>>返回分卷列表</a>】</td>
						</tr>
					</table>
				</form>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub jie_list()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("adodb.recordset")
sql="select list_bookid,list_cookid,list_cookname from list_cook where list_cookid="&id
rs.open sql,conn,1,1
b_id=rs("list_bookid")
c_id=rs("list_cookid")
list_cookname=rs("list_cookname")
rs.close
set rs=nothing

set rs3=server.createobject("adodb.recordset")
sql3="select * from list_book where id="&b_id
rs3.open sql3,conn,1,3
if rs3("list_userid")<>userID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
classid=rs3("list_class")
list_name=rs3("list_name")
rs3.close
set rs3=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"><%
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if                 
set rs4=server.CreateObject("ADODB.recordset")
sql4="select * from list_view where list_cookid="&c_id
rs4.open sql4,conn,1,3
if rs4.eof and rs4.bof then
	response.write "<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 bgcolor=#F7F7F7>暂无任何内容</td></tr></table>"
else
%>
		<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="center" bgcolor="#F7F7F7">
						<td height="20" colspan="4" valign="middle" bgcolor="#F7F7F7">
						所属类型：<span class="style3"><%=list_tpye%></span>&nbsp;&nbsp;&nbsp; 
						当前分卷：<span class="style3"><%=list_cookname%></span>&nbsp;&nbsp;&nbsp;
						<a href="user_book.asp?info=jie_add&id=<%=c_id%>">
						添加章节</a></td>
					</tr>
					<%
   Rs4.PageSize=MaxPerPage
   Allpage=Rs4.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs4.RecordCount
   Rs4.MoveFirst
   Rs4.AbsolutePage=CurrentPage
   i=0
	Do While Not Rs4.Eof%>
					<tr bgcolor="#F7F7F7">
						<td width="50%" height="34" align="center" valign="middle" bgcolor="#F7F7F7">
						<a href="user_bookjieedit.asp?id=<%=rs4("id")%>"><%=rs4("view_type")%></a></td>
						<td width="10%" align="center" bgcolor="#F7F7F7">重新设置分卷</td>
12 下一页
💿 文件大小 667 K
👤 上传用户 ccdn2615
📂 所属分类 VC书籍
🏷️ 相关标签

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

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