📄 admin_book.asp
字号:
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 title="最后更新：<%=rs4("view_date")%>" href="admin_book.asp?info=jieedit&b_id=<%=b_id%>&c_id=<%=c_id%>&id=<%=rs4("id")%>&Page=<%=CurrentPage%>">
<%=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")%>">
生成静态页</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")%>&Page=<%=CurrentPage%>">
修改</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=<%=CurrentPage%>">
删除</a></td>
</tr>
<% i=i+1
If i>=MaxBookPerPage 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,MaxBookPerPage,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 type="radio" name="view_IsVip" value="0" checked>
否</td>
</tr>
<tr>
<td height="22" class="alt2" align="right">CnEndcode 代码：<br>
<input onclick="chmode('2')" type="radio" value="2" name="mode" checked>
提示插入 <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 type="radio" name="view_lock" 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 type="radio" name="downpic" 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")
page=request.querystring("page")
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%>&Page=<%=Page%>" 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>
<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);">
<%if rs("view_get")<>0 then
if rs("view_SaveToTXT")=0 then
response.write htmlen(rs("view_ok2"))
else
viewFolder = SiteSystemPath&"HTML/"&b_id&"/"
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(server.mappath( viewFolder&rs("id")&".TXT")) = True Then '判断文件是否存在
content=replace(replace(FSOFileRead(viewFolder&rs("id")&".TXT"),"document.write('",""),"');","")
response.write htmlen(Content)
else
response.write"内容丢失,TXT文件丢失!"
end if
Set tfo = nothing
end if
else
if rs("view_ok")<>"" then
Set RsItem=server.CreateObject("adodb.recordset")
SqlItem="Select EquivType,readtype,readtype1,IsSaveFiles,CsType,CsString,CoType,CoString,CsType1,CsString1,CoType1,CoString1,ContType1,ContType2,CsType2,CsString2,CoType2,CoString2,JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr from Item Where ItemID=" & rs("ItemID")
RsItem.Open SqlItem,ConnItem,1,1
EquivType=RsItem("EquivType")
readtype=RsItem("readtype")
readtype1=RsItem("readtype1")
CsType=RsItem("CsType")
CsString=RsItem("CsString")
CoType=RsItem("CoType")
CoString=RsItem("CoString")
ContType1=RsItem("ContType1")
CsType1=RsItem("CsType1")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -