📄 admin_bookjian.asp
字号:
全部页面</option>
<option value="admin_bookHTMLmake.asp?info=look&b_id=<%=rs("id")%>">
作品资料页</option>
<option value="admin_bookHTMLmake.asp?info=index&b_id=<%=rs("id")%>">
作品目录页</option>
<option value="admin_bookHTMLmake.asp?info=all&b_id=<%=rs("id")%>">
全文阅读页</option>
<option value="admin_bookHTMLmake.asp?info=zhang&b_id=<%=rs("id")%>">
分卷阅读页</option>
<option value="admin_bookHTMLmake.asp?info=page&b_id=<%=rs("id")%>">
章节阅读页</option>
</select></div>
</div>
</td>
<td class="alt2">
<div class="select">
<div>
<select onchange="if(this.options[this.selectedIndex].value != '') {
window.location=(''+this.options[this.selectedIndex].value+'') }" class="form">
<option value>作品相关操作</option>
<option value="admin_book.asp?info=zhanglist&b_id=<%=rs("id")%>">
浏览作品分卷</option>
<option value="admin_book.asp?info=zhangadd&b_id=<%=rs("id")%>">
添加作品分卷</option>
<option value="admin_book.asp?info=zhangmake&b_id=<%=rs("id")%>">
作品分卷排序</option>
<option value="admin_book.asp?info=viewgocook&id=<%=rs("id")%>">
移动作品章节</option>
<option value="admin_book.asp?urltype=jianlist&info=bookedit&inf=<%=info%>&id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
修改作品资料</option>
<option value="admin_booklist.asp?info=删除&inf=<%=info%>&checked=<%=rs("id")%>&urltype=list&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
删除作品</option>
<option value>--------</option>
<option value="admin_vote.asp?info=add&cndb=book&id=<%=rs("id")%>">
添加作品调查</option>
<option value="admin_vote.asp?info=list&cndb=book&id=<%=rs("id")%>">
作品调查列表</option>
<option value="admin_pinglun.asp?info=book&id=<%=rs("id")%>">
作品评论管理</option>
<option value>--------</option>
<option value="admin_booklist.asp?info=采集&inf=<%=info%>&checked=<%=rs("id")%>&urltype=list&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
续采作品章节</option>
</select></div>
</div>
</td>
</tr>
<% i=i+1
If i>=MaxBookPerPage Then Exit Do
Rs.MoveNext
Loop
%><tr>
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="clid" value="<%=clid%>">
<input type="hidden" name="inf" value="<%=info%>">
<input type="hidden" name="Page" value="<%=CurrentPage%>">
<input type="hidden" name="urltype" value="listjian">
<td height="20" align="center" colspan="9" class="alt3">
<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="info" style="width: 45; height: 20">
<input class="button" type="submit" value="推荐" name="info" style="width: 45; height: 20">
<input class="button" type="submit" value="移动" name="info" style="width: 45; height: 20">
<%if ShowType=0 then
Response.Write "<input class=button type=submit value=更新采集 name=info style='width: 70; height: 20'>"
elseif ShowType=1 then
Response.Write "<input class=button type=submit value=更新采集 name=info style='width: 70; height: 20'>"
elseif ShowType=9 then
Response.Write "<input class=button type=submit value=采集 name=info style='width: 45; height: 20'>"
else
Response.Write "<input class=button type=submit value=采集 name=info style='width: 45; height: 20'>"
end if%>
<input class="button" type="submit" value="审核" name="info" style="width: 45; height: 20">
<input class="button" type="submit" value="静态生成" name="info" style="width: 70; height: 20">
<input class="button" type="submit" value="通过 VIP" name="info" style="width: 70; height: 20">
<input class="button" type="submit" value="生成全文TXT" name="info" style="width: 80; height: 20">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing%>
<tr align="center">
<td height="25" colspan="9" valign="middle" class="alt2"><%Response.Write ShowPage("admin_bookjian.asp?info=cjlists&inf="&info&"&cndb="&cndb&"&clid="&clid&"&styear="&styear&"&stmonth="&stmonth&"&stday="&stday&"",CurrentPage,Num,MaxBookPerPage,True,True," 个项目")%></td>
</tr>
</table>
<table border="0" width="100%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=1">转载状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=2">连载状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=3">出版状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=4">暂停状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=5">停止状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=6">完成状态作品</a>
</td>
</tr>
</table>
<%end Sub
Sub cjzjlist()
cndb=request.querystring("cndb")
if cndb="" then
cndb="all"
end if
clid=request.querystring("clid")
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
styear=request.querystring("styear")
stmonth=request.querystring("stmonth")
stday=request.querystring("stday")
Predate=styear&"-"&stmonth&"-"&stday
Predate=CDate(Predate)
set rs=server.CreateObject("ADODB.recordset")
Sql="select WebName,ShowType from [Item] where itemid="&clid&" order by ItemID DESC"
Rs.open Sql,ConnItem,1,1
if rs.eof and rs.bof then
itemname="未知采集站"
ShowType=9
else
itemname=rs("WebName")
ShowType=rs("ShowType")
end if
Rs.Close
Set Rs=Nothing%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="7"><%Response.Write "查看 "&itemname&" "&Predate&"之后更新的作品章节"%></td>
</tr>
<form name="form" method="get" action="admin_bookjian.asp?info=cjlists&clid=<%=clid%>">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="clid" value="<%=clid%>">
<input type="hidden" name="info" value="cjlists">
<tr align="center">
<td height="22" colspan="9" valign="middle" class="alt2"><input name="styear" size="4" class="form" maxlength="4">年<input name="stmonth" size="2" class="form">月<input name="stday" size="2" class="form">日
之后更新的长篇作品<input class="button" type="submit" value="列表" name="submit" style="width: 45; height: 20">
</td>
</tr>
</form>
<form name="form" method="get" action="admin_bookjian.asp?info=cjzjlist&clid=<%=clid%>">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="clid" value="<%=clid%>">
<input type="hidden" name="info" value="cjzjlist">
<tr align="center">
<td height="22" colspan="9" valign="middle" class="alt2"><input name="styear" size="4" class="form" maxlength="4">年<input name="stmonth" size="2" class="form">月<input name="stday" size="2" class="form">日
之后更新的作品章节<input class="button" type="submit" value="列表" name="submit" style="width: 45; height: 20">
</td>
</tr>
</form>
<%
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_size,view_date,view_type,view_id,list_cookid from list_view where ItemId="&clid&" and view_date>#"&Predate&"# 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>"
else
%>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_works.asp?info=book_jie_listdel">
<%
Rs4.PageSize=MaxBookPerPage
Allpage=Rs4.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs4.RecordCount
Rs4.MoveFirst
Rs4.AbsolutePage=CurrentPage
i=0
do while not rs4.eof
b_id= rs4("view_id")
c_id= rs4("list_cookid")
set rs3=server.createobject("adodb.recordset")
sql3="select list_name from list_book where id="&b_id
rs3.open sql3,conn,1,3
list_name=rs3("list_name")
rs3.close
set rs3=nothing
%>
<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")%>&Page=<%=CurrentPage%>">
<%=list_name&" - "&rs4("view_type")%></a></td>
<td width="10%" class="alt2"><%=rs4("view_size")%> 字</td>
<td width="20%" class="alt1"><%=rs4("view_date")%></td>
<td width="10%" class="alt2">
<a href="admin_bookHTMLmake.asp?info=jiepage&b_id=<%=b_id%>&id=<%=rs4("id")%>">
生成静态页</a></td>
<td width="5%" 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="5%" 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>
</⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -