📄 admin_book.asp
字号:
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_isvip,view_lock,view_type from list_view where list_cookid="&c_id&" order by id desc"
'MySQL需要如下语句
conn.CursorLocation=3
rs4.open sql4,conn,1,1
if rs4.eof and rs4.bof then
response.write "<tr align=center><td colspan=7 align=center>暂无任何内容</td></tr><tr align=center>"
response.write "<td height=20 colspan=7 class=alt3>所属类型：<span class=style3>"&list_tpye&"</span> "
response.write "当前分卷：<span class=style3>"&list_cookname&"</span> "
response.write "<a href=admin_book.asp?info=zhanglist&b_id="&b_id&">返回分卷列表</a> "
response.write "<a href=admin_book.asp?info=jieadd&b_id="&b_id&"&c_id="&c_id&">添加章节</a></td></tr>"
else
%>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_works.asp?info=book_jie_listdel">
<tr align="center">
<td height="30" colspan="7" class="tcat"><span class="style2"><%=list_name%></span></td>
</tr>
<tr align="center">
<td height="20" colspan="7" class="alt3">所属类型：<span class="style3"><%=list_tpye%></span>
当前分卷：<span class="style3"><%=list_cookname%></span>
<a href="admin_book.asp?info=zhanglist&b_id=<%=b_id%>">返回分卷列表</a>
<a href="admin_book.asp?info=jieadd&b_id=<%=b_id%>&c_id=<%=c_id%>">添加章节</a>
<a href="admin_book.asp?info=jiemake&b_id=<%=b_id%>&c_id=<%=c_id%>">
<font color="#FF0000">章节排序</font></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 align="center" height="22">
<td class="alt2">
<input type="checkbox" name="checked" value="<%=rs4("id")%>"></td>
<td width="50%" class="alt1">
<a href="admin_book.asp?info=jieedit&b_id=<%=b_id%>&c_id=<%=c_id%>&id=<%=rs4("id")%>">
<%=rs4("view_type")%></a></td>
<td width="10%" class="alt2"><%if rs4("view_isvip")=1 then response.write "VIP章节" Else response.write "普通章节" end if%></td>
<td width="10%" class="alt1"><%if rs4("view_lock")=0 then%>已验证<%else%>未验证<%end if%></td>
<td width="10%" class="alt2">
<a href="admin_bookHTMLmake.asp?info=jiepage&b_id=<%=b_id%>&id=<%=rs4("id")%>">
HTML生成</a></td>
<td width="10%" class="alt1">
<a href="admin_book.asp?info=jieedit&b_id=<%=b_id%>&c_id=<%=c_id%>&id=<%=rs4("id")%>">
修改</a></td>
<td width="10%" class="alt2">
<a href="admin_works.asp?info=book_jie_del&id=<%=rs4("id")%>&b_id=<%=b_id%>&c_id=<%=c_id%>&page=<%=Page%>">
删除</a></td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs4.MoveNext
Loop%><tr>
<td height="20" align="center" colspan="7" class="alt3">
<input name="info" type="hidden" value="book_jie_listdel">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
<%End If
Rs4.Close
Set Rs4=Nothing%>
<tr>
<td height="25" align="center" colspan="8" class="alt2"><%Response.Write ShowPage("admin_book.asp?info=jielist&b_id="&b_id&"&c_id="&c_id&"",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr>
</table>
<br>
<div align="center">
<div id="bback">
<a href="admin_book.asp?info=zhanglist&b_id=<%=b_id%>">...::: 点 此 返 回 :::...</a></div>
</div>
<%
end sub
Sub jieadd()
c_id=request.querystring("c_id")
b_id=request.querystring("b_id")
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" height="25" colspan="7">添 加 章 节</td>
</tr>
<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;
}
function announcement() {
$('announcement').innerHTML = '<marquee style="filter:progid:DXImageTransform.Microsoft.Alpha(startX=0, startY=0, finishX=10, finishY=100,style=1,opacity=0,finishOpacity=100); margin: 0px 8px" direction="left" scrollamount="2" scrolldelay="1" onMouseOver="this.stop();" onMouseOut="this.start();">' +
$('announcement').innerHTML + '</marquee>';
$('announcement').style.display = 'block';
}
function $(id) {
return document.getElementById(id);
}
</script>
<form action="admin_works.asp?info=book_jie_add&b_id=<%=b_id%>&c_id=<%=c_id%>" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript" src="../js/bbcode.js"></script>
<tr>
<td colspan="4" class="alt3">
<div id="panx">
<table width="98%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
<tr>
<td width="15%" height="22" align="right" valign="middle" class="alt2">
章节名称：<br>
</td>
<td width="35%" class="alt1">
<input name="subject" type="text" id="subject" size="30" class="form"></td>
<td width="15%" height="22" align="right" valign="middle" class="alt2">
是否为<font color="#FF0000">VIP章节</font>：<br>
</td>
<td width="35%" class="alt1">
<input type="radio" name="view_IsVip" value="1"> 是
<input name="view_IsVip" type="radio" value="0" checked>
否</td>
</tr>
<tr>
<td height="22" class="alt2" align="right">CnEndcode 代码：<br>
<input onclick="chmode('2')" type="radio" checked value="2" name="mode">
提示插入 <br>
<input onclick="chmode('0')" type="radio" value="0" name="mode">
直接插入 <br>
<input onclick="chmode('1')" type="radio" value="1" name="mode">
帮助信息 </td>
<td colspan="3" class="alt1">
<!--#include file="../inc/ubbcode.asp"--></td>
</tr>
<tr>
<td width="15%" class="alt2" align="right" valign="top">
<br>
<br>
章节内容：<br>
<a class="smalltxt" onclick="checklength(document.input)">
[字数检查]</a> </td>
<td width="85%" colspan="3" class="alt1">
<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 96%; HEIGHT: 350px" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"></textarea><br>
<input name="attach" type="hidden">
<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=Bookview" name="a" height="35" width="500">
</iframe></td>
</tr>
<tr>
<td width="15%" height="22" align="right" valign="middle" class="alt2">
是否通过验证：<br>
</td>
<td width="35%" class="alt1">
<input type="radio" name="view_lock" value="0" checked>
通过 <input name="view_lock" type="radio" value="1"> 不通过</td>
<td width="15%" height="22" align="right" valign="middle" class="alt2">
保存远程图片：<br>
</td>
<td width="35%" class="alt1">
<input type="radio" name="downpic" value="1"> 保存
<input name="downpic" type="radio" value="0" checked> 不保存</td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="添加章节">
<input type="reset" class="button" value="重置内容"></div>
</td>
</tr>
</form>
</table>
<br>
<div align="center">
<div id="bback">
<a href="admin_book.asp?info=zhanglist&b_id=<%=b_id%>">...::: 点 此 返 回 :::...</a></div>
</div>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub jieedit()
id=request.querystring("id")
c_id=request.querystring("c_id")
b_id=request.querystring("b_id")
set rs=server.createobject("adodb.recordset")
sql="select * from list_view where id="&id
rs.open sql,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" height="25" colspan="7">修 改 章 节</td>
</tr>
<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="admin_works.asp?info=book_jie_edit&b_id=<%=b_id%>&c_id=<%=c_id%>&id=<%=id%>" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript" src="../js/bbcode.js"></script>
<tr>
<td colspan="4" class="alt3">
<div id="panx">
<table width="98%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
<tr>
<td width="15%" height="22" align="right" valign="middle" class="alt2">
章节名称：<br>
</td>
<td width="35%" class="alt1">
<input name="subject" type="text" id="subject" size="30" value="<%=rs("view_type")%>" class="form"></td>
<td width="15%" height="22" align="right" valign="middle" class="alt2">
是否为<font color="#FF0000">VIP章节</font>：<br>
</td>
<td width="35%" class="alt1">
<input type="radio" name="view_IsVip" value="1" <%if rs("view_isvip")=1 then response.write " checked" end if%>>
是
<input name="view_IsVip" type="radio" value="0" <%if rs("view_isvip")=0 then response.write " checked" end if%>>
否</td>
</tr>
<tr>
<td height="22" class="alt2" align="right">CnEndcode 代码：<br>
<input onclick="chmode('2')" type="radio" checked value="2" name="mode">
提示插入 <br>
<input onclick="chmode('0')" type="radio" value="0" name="mode">
直接插入 <br>
<input onclick="chmode('1')" type="radio" value="1" name="mode">
帮助信息 </td>
<td colspan="3" class="alt1">
<!--#include file="../inc/ubbcode.asp"--></td>
</tr>
<tr>
<td width="15%" class="alt2" align="right" valign="top">
<br>
<br>
章节内容：<br>
<a class="smalltxt" onclick="checklength(document.input)">
[字数检查]</a><br>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -