📄 admin_booklist.asp
字号:
end sub
sub listmove()
id=trim(request("checked"))
If ID="" Then
ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
FoundErr=True
End If
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
if request("action")="save" then
newclass=request("newclass")
CheckSqlnum(newclass)
newclass=int(newclass)
if newclass="" or newclass=0 then
ErrCodes = ErrCodes & "<li>您需要选择目标分类，不能选择大类！</li><br>"
FoundErr=True
end if
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
set rs2=server.createobject("adodb.recordset")
sql2="select top 1 list_typeID from [list_Class] where list_classid="&newclass
rs2.open sql2,conn,1,1
if rs2.eof then
typeid=0
else
typeid=rs2("list_typeID")
end if
rs2.close
set rs2=nothing
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
conn.execute ("update [list_book] set list_lei="&newclass&",list_class="&typeid&" where id="&viewArray(i))
conn.execute ("update [list_cook] set classid="&newclass&" where list_bookid="&viewArray(i))
Next
call connclose()
Call ShowAdminSuccessMsg(Success &"<li>作品批量移动操作成功！</li><br>",responseurl)
end if
else
%><div id="topmomo">长篇作品管理 |
<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a> |
<a href="admin_book.asp?info=bookadd">添加作品</a> |
<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a> |
<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>批量移动作品</b></td>
</tr>
<tr height="22" align="center">
<td width="30%" class="tcat"></td>
<td width="70%" class="tcat"><b>目标分类</b></td>
</tr>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<tr align="center" height="22">
<td class="alt2" valign="center">
将所选作品移动到 ==></td>
<td class="alt1"><div class="select"><div><select name="newclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select * from list_type"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value=0>┼ "&rs("list_tpye")&"</option>"
set rs2=server.createobject("adodb.recordset")
sql2="select * from list_Class where list_typeID="&rs("typeID")&" order by list_classid"
rs2.open sql2,conn,1,1
if rs2.eof then
response.write "<option value=0> └ 本类无二级分类</option>"
else
do while not rs2.eof
response.write "<option value="&rs2("list_Classid")&"> └ "&rs2("list_classname")&"</option>"
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select></div></div> </td>
</tr>
<tr height="22"><input type="hidden" name="checked" value="<%=id%>">
<td class="alt3" colspan="2" align="middle" valign="middle">
<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
</tr>
</form>
</table>
<%end if
end if
end sub
sub listload()
id=trim(request("checked"))
If ID="" Then
ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
FoundErr=True
End If
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
if request("action")="save" then
makebookHTML = Request("makebookHTML")
If makebookHTML="" or makebookHTML=null Then
makebookHTML=0
end if
Fastbook = Request("Fastbook")
If Fastbook="" or Fastbook=null Then
Fastbook=0
end if
lostbook = Request("lostbook")
If lostbook="" or lostbook=null Then
lostbook=0
end if
flushbook = Request("flushbook")
If flushbook="" or flushbook=null Then
flushbook=0
end if
listedID=replace(ID,",","|")
arrBookList = Split(listedID,"|")
idTotal=UBound(arrBookList)+1
If FoundErr=True Then
call WriteErrMsg(ErrMsg)
Else
response.write "<SCRIPT language=JavaScript>if(!confirm('"
response.write "\n你选择的是按列表批量更新 \n"
response.write "\n根据填写内容，接下来将要更新 "&idTotal&" 部作品 \n"
if idTotal>99 and idTotal<500 then
response.write "\n你填写的作品ID多，更新 "&idTotal&" 部作品需要的时间比较长 \n"
response.write "\n且容易造成采集系统停止响应，你确定继续吗？ \n"
elseif idTotal>500 and idTotal<1000 then
response.write "\n你填写的作品ID稍多，更新 "&idTotal&" 部作品需要的时间很长 \n"
response.write "\n且很易造成采集系统停止响应，建议返回重新设置，你确定继续吗？ \n"
elseif idTotal>1000 and idTotal<10000 then
response.write "\n你填写的作品ID很多，更新 "&idTotal&" 部作品需要的时间非常长 \n"
response.write "\n且极易造成采集系统停止响应，建议返回重新设置，你确定继续吗？ \n"
elseif idTotal>10000 then
response.write "\n你填写的作品ID过多，更新 "&idTotal&" 部作品需要的时间无法估量 \n"
response.write "\n且必然造成采集系统停止响应，建议返回重新设置，你确定继续吗？ \n"
end if
response.write "\n点击 [ 确定 ] 继续,点击 [ 取消 ] 返回 \n"
response.write "')){history.back(-1);}else{}</SCRIPT>"
response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadBooks.asp?listedID="&listedID&"&lostbook="&lostbook&"&flushbook="&flushbook&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"'>"
response.End
end if
else
%>
<script language="javascript">
function checkstatu(frm)
{
if (frm.lostbook.checked == true)
if (!confirm("按照保存的最后采集参数向后采集，将照保存的最后采集参数向后采集,不再逐章检查。\n\n"))
{frm.lostbook.checked=false;}
}
function checkstatus(frm)
{
if (frm.flushbook.checked == true)
if (!confirm("强制更新章节内容，将把所有的章节内容重新采集并更新，请慎重考虑。\n\n"))
{frm.flushbook.checked=false;}
}
function checkstatusss(frm)
{
if (frm.Fastbook.checked == true)
if (!confirm("快速批量采集作品，不采集章节内容直接调用采集站内容，请慎重考虑。\n\n"))
{frm.Fastbook.checked=false;}
}
function checkstatuss(frm)
{
if (frm.makebookHTML.checked == true)
if (!confirm("自动生成HTML页面，在采集的同时生成HTML静态页面\n\n请慎重考虑此操作将占用更多的系统资源。\n\n"))
{frm.makebookHTML.checked=false;}
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<tr>
<td height="30" align="center" valign="middle" class="thead" colspan="2">
全自动批量更新作品</td>
</tr>
<tr>
<td height="26" align="center" valign="middle" class="tcat" colspan="2">
此操作将自动采集指定范围内的作品更新后的章节, 此操作大量占用系统资源</td>
</tr>
<form method="post" name="forml" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<tr>
<td width="30%" height="26" align=right class=alt2>当前采集方式：</td>
<td width="70%" class=alt1>按照选择的作品列表</td>
</tr>
<tr>
<td width="30%" height="26" align="right" class="alt2">按照保存的最后采集参数向后采集：</td>
<td width="70%" class="alt1">
<input type="checkbox" name="lostbook" onclick="checkstatu(this.form)" value="1" class="form"><br>
选择本功能将按照保存的最后采集参数向后采集,不再逐章检查判断是否存在新章节 <br>
可以节约采集时间,节省采集资源.部分采集站不支持该功能(从目录中获取分卷ID的站点等)</td>
</tr>
<tr>
<td width="30%" height="26" align="right" class="alt2">强制更新章节内容：</td>
<td width="70%" class="alt1">
<input type="checkbox" name="flushbook" onclick="checkstatus(this.form)" value="1" class="form"><br>
选择本功能将把现有所有的章节内容重新采集并更新</td>
</tr>
<tr>
<td width="30%" height="26" align="right" class="alt2">快速批量采集作品：</td>
<td width="70%" class="alt1">
<input type="checkbox" name="Fastbook" onclick="checkstatusss(this.form)" value="1" class="form"><br>
选择本功能将在采集进行中不采集章节内容直接调用采集站内容 <br>
完成后可以选择<a href="admin_Itemloadview.asp"><font color="#FF0000">批量采集作品章节内容</font></a>完整采集作品</td>
</tr>
<tr>
<td width=30% class=alt2 height="26" align="right">自动生成HTML页面：</td>
<td width="70%" class=alt1>
<input type="checkbox" name="makebookHTML" onclick="checkstatuss(this.form)" value="1" class="form"><br>
选择本功能将在采集的同时生成HTML静态页面，但会占用更多的系统资源</td>
</tr>
<tr>
<td height="30" align="center" colspan="2" class=alt3><input type="hidden" name="checked" value="<%=id%>">
<input type="submit" value="开始采集" name="B1" class="button">
<input type="reset" value="重置设定" name="B2" class="button"> </td>
</tr>
</form>
</table>
<%end if
end if
end sub
sub listlock()
id=trim(request("checked"))
If ID="" Then
ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
FoundErr=True
End If
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
if request("action")="save" then
Lock_book=request("Lock_book")
if Lock_book="" then
ErrCodes = ErrCodes & "<li>您需要选择操作类型！</li><br>"
FoundErr=True
end if
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
conn.execute ("update [list_book] set Lock_book="&Lock_book&" where id="&viewArray(i))
Next
call connclose()
Call ShowAdminSuccessMsg(Success &"<li>作品批量审核操作成功！</li><br>",responseurl)
end if
else
%><div id="topmomo">长篇作品管理 |
<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a> |
<a href="admin_book.asp?info=bookadd">添加作品</a> |
<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a> |
<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>批量审核作品</b></td>
</tr>
<tr height="22" align="center">
<td width="30%" class="tcat"></td>
<td width="70%" class="tcat"><b>操作</b></td>
</tr>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<tr align="center" height="22">
<td class="alt2" valign="center">
将所选作品设定为 ==></td>
<td class="alt1"><input name="Lock_book" type="radio" value="0" checked>通过审核
<input type="radio" name="Lock_book" value="1">不通过审核</td>
</tr>
<tr height="22"><input type="hidden" name="checked" value="<%=id%>">
<td class="alt3" colspan="2" align="middle" valign="middle">
<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
</tr>
</form>
</table>
<%end if
end if
end sub
sub listhtml()%>
<div id="topmomo">长篇作品管理 |
<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a> |
<a href="admin_book.asp?info=bookadd">添加作品</a> |
<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a> |
<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>批量生成作品静态页面</b></td>
</tr>
<tr height="22">
<td class="alt3" colspan="2" align="middle" valign="middle">本功能暂缺</td>
</tr>
</table>
<%end sub
sub listvip()
id=trim(request("checked"))
If ID="" Then
ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
FoundErr=True
End If
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
if request("action")="save" then
IsVip=request("IsVip")
if IsVip="" then
ErrCodes = ErrCodes & "<li>您需要选择操作类型！</li><br>"
FoundErr=True
end if
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
conn.execute ("update [list_book] set IsVip="&IsVip&" where id="&viewArray(i))
Next
call connclose()
Call ShowAdminSuccessMsg(Success &"<li>作品批量VIP操作成功！</li><br>",responseurl)
end if
else
%><div id="topmomo">长篇作品管理 |
<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a> |
<a href="admin_book.asp?info=bookadd">添加作品</a> |
<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a> |
<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>批量通过VIP作品</b></td>
</tr>
<tr height="22" align="center">
<td width="30%" class="tcat"></td>
<td width="70%" class="tcat"><b>操作</b></td>
</tr>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<tr align="center" height="22">
<td class="alt2" valign="center">
将所选作品设定为 ==></td>
<td class="alt1"><input type="radio" name="IsVip" value="1">VIP作品
<input name="IsVip" type="radio" value="0">普通作品</td>
</tr>
<tr height="22"><input type="hidden" name="checked" value="<%=id%>">
<td class="alt3" colspan="2" align="middle" valign="middle">
<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
</tr>
</form>
</table>
<%end if
end if
end sub
%>
<br>
<div align="center">
<div id="bback">
<a href="<%=responseurl%>">...::: 点 此 返 回 :::...</a></div>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -