📄 author_book.asp
字号:
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="Author_booksave.asp?info=book_zhang_add&b_id=<%=b_id%>" 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="b_id" value="<%=b_id%>">
<input type="submit" class="button" value="添加分卷">
<input type="reset" class="button" value="重置内容"> 【<a href="Author_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 * from list_book where id="&b_id
rs3.open sql3,conn,1,1
if rs3("list_Adminid")<>author_ID 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="Author_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="Author_book.asp?info=zhang_list&id=<%=b_id%>">返回分卷列表</a>】</td>
</tr>
</table>
</form>
</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="Author_booksave.asp?info=book_jjgg_edit" method="post" name="jjform">
<%
set rsab=server.createobject("adodb.recordset")
sqlab="select list_Adminid,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_Adminid")<>author_ID 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 view_go_cook()%>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "取消选定"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "全部选定";}}
</script>
<%
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
if id="" then
response.Redirect "author_logout.asp"
response.End
end if
set rs_s=server.createobject("adodb.recordset")
sql="select list_Adminid,list_name from list_book where id="&id&""
rs_s.open sql,conn,1,1
if not(rs_s.bof and rs_s.eof) then
else
response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
response.end
end if
if rs_s("list_Adminid")<>author_ID 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>
<form target="_BLANK" action="author_booksave.asp?info=view_go_cook_ok" method="post">
<tr bgcolor="#ffffff">
<td colspan="4">
<table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table width="100%" height="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td class="font" align="center" height="30" class="font">
<font face="隶书" size="3">《 <%=rs_s("list_name")%> 》</font></td>
</tr>
</table>
</td>
</tr>
</table>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#588FC7" bordercolorlight="#ffffff" style="border-right-color: #DFEFFF; border-bottom-color: #DFEFFF;border-left-color: #DFEFFF; border-top-color: #DFEFFF">
<tr>
<td height="30" colspan="4" align="center" headers="20" height="20" bgcolor="#588FC7" class="head">
<font color="#FFFFFF">[ 章节列表 ]</font></td>
</tr>
<%
set rsc=server.createobject("adodb.recordset")
sqlc="select list_cookid,list_cookname from list_cook where list_bookid="&id&" order by list_cookid"
rsc.open sqlc,conn,1,1
do while not rsc.eof%>
<tr height="26">
<td colspan="4" align="center" bgcolor="#DFEFFF"><%=rsc("list_cookname")%></td>
</tr>
<%
list_cookid=rsc("list_cookid")
set rs=server.createobject("adodb.recordset")
sql="select id,view_type from list_view where list_cookid="&list_cookid&" order by id"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
%>
<tr bgcolor="#ffffff">
<%
do while not rs.eof
i=i+1
%>
<td height="25">
<input type="checkbox" name="ID" value="<%=rs("id")%>">
<%=rs("view_type")%></td>
<%
if i mod 3 = 0 then
response.Write "</tr><Tr bgcolor=#ffffff>"
end if
rs.movenext
loop
%>
</tr>
<%
else
%>
<tr bgcolor="#ffffff">
<td height="30" align="center" colspan="3" class="font">
没有文章可供查询（可能已经删除）</td>
</tr>
<%end if%> <%rsc.movenext
loop
rsc.close
set rsc=nothing
%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="F5F5F5"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#588fc7">
<tr align="center">
<td height="35" class="head"><font color="#FFFFFF">将选中的章节移动至<select name="list_cookid">
<%
set rsc1=server.createobject("adodb.recordset")
sqlc1="select list_cookid,list_cookname from list_cook where list_bookid="&id&" order by list_cookid"
rsc1.open sqlc1,conn,1,1
%> <%do while not rsc1.eof %>
<option value="<%=rsc1("list_cookid")%>"><%=rsc1("list_cookname")%>
</option>
<%
rsc1.movenext
loop
%></select>分卷
<input type="hidden" name="b_id" value="<%=id%>">
<input class="button" type="button" value="全部选定" onclick="this.value=check(this.form.ID)">
<input class="button" type="submit" value="点击确认"></font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="999999"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="DCDCDC"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="F5F5F5"></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%
rsc1.close
set rsc1=nothing
rs_s.close
set rs_s=nothing
rs.close
set rs=nothing
end sub%><!-------------------------------------------------------------------------------------->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -