⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_updatenewview.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
字号:
<!-- #include file="../conn.asp" -->
<%Response.buffer=False %>
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<link href="css.css" rel="stylesheet" type="text/css">
<%
act = Request("act")

if act = "makebook" then
	getstartid=request("start")
	getendid=request("end")
Server.ScriptTimeOut=12000000 '设定操作超时的时间

Set rs = Server.CreateObject("ADODB.Recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_lei,newviewid,newviewname,newview from list_book where id>="&getstartid&" and id<="&getendid&" ORDER BY id"
else
	sql="select id,list_lei,newviewid,newviewname,newview from [list_book] where id>="&getstartid&" and id<="&getendid&" ORDER BY id"
end if
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('错误! \n\n 指定范围内没有作品存在!');history.back(-1);</script>"
response.end 
else
do while not rs.eof
id=rs("id")
	set rsvclass=server.createobject("adodb.recordset")
	if IsSqlDataBase = 2 then
		sqlvclass="select id,list_cookid,view_type,view_ok2 from list_view where view_id="&id&" order by view_showid desc"
	else
		sqlvclass="select id,list_cookid,view_type,view_ok2 from [list_view] where view_id="&id&" order by view_showid desc"
	end if
	rsvclass.open sqlvclass,conn,1,1
	if rsvclass.eof and rsvclass.bof then
		newview=""
		newviewname=""
		newviewid=0
	else
		dim list_cookid
		list_cookid=rsvclass("list_cookid")
		set rscclass=server.createobject("adodb.recordset")
		if IsSqlDataBase = 2 then
			sqlcclass="select list_cookname from list_cook where list_cookid="&list_cookid&""
		else
			sqlcclass="select list_cookname from [list_cook] where list_cookid="&list_cookid&""
		end if
		rscclass.open sqlcclass,conn,1,1
		if rscclass.eof and rscclass.bof then
			newview=""
			newviewname=""
			newviewid=0
		else
		if rsvclass("view_ok2")<>"" then
		newview=left(rsvclass("view_ok2"),399)
		else
		newview=""
		end if
		newviewname=rscclass("list_cookname")&"&nbsp;&nbsp;"&rsvclass("view_type")
		newviewid=rsvclass("id")
		rscclass.close
		set rscclass=nothing
		end if
	rsvclass.close
	set rsvclass=nothing
	end if

rs("newview")=newview
rs("newviewname")=newviewname
rs("newviewid")=newviewid
rs.update
response.write "<br>    作品ID为<font color=#FF0000> "&id&" </font>的最新章节显示更新操作成功!!"

rs.movenext
loop
end if
rs.close
set rs=nothing

response.write "<p align='center'>作品最新章节显示更新操作全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"

else
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>

<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF">
	<tr bgcolor="#1C3566">
		<td colspan="4" class="head" height="34" align="center"><b>
		<font color="#FFFFFF">长篇采集系统项目管理</font></b></td>
	</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF">
	<tr align="center">
		<td height="30"><a href=Admin_ItemManage.asp>管理首页</a> | <a href="Admin_ItemAddNew.asp">添加新项目</a></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
	<tr>
		<td height="34" align="center" valign="middle" bgcolor="#1C3566" style="line-height:150%"><b><font color="#FFFFFF">更新作品最新章节显示的内容
		<br>(当批量采集完成后执行本步骤,以供将作品列表页面中的“暂无更新”更新成该作品最后采集的章节名称。<br>请慎重操作,此操作大量占用系统资源每次填写范围请不要过大)</font></b></td>
	</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="">
	<tr height="26">
      <td width="50%">
		<p align="right">更新显示的作品起始ID(本地ID):</td>
      <td width="50%">&nbsp;&nbsp;<input class='form' type="Number" name="start" id="start" size="20"></td>
    </tr>
    <tr height="26">
      <td width="50%">
		<p align="right">更新显示的作品结束ID(本地ID):</td>
      <td width="50%">&nbsp; <input class='form' type="text" name="end" Id="end" size="20"></td>
    </tr>
    <tr>
      <td height="30" align="center" colspan="2">
		<input type="hidden" name="act" value="makebook" id="act" size="20">
		<input class="button" type="submit" value="开始更新" name="B1">&nbsp;&nbsp;&nbsp;&nbsp; <input class="button" type="reset" value="重置设定" name="B2">
	  </td>
    </tr>
</form>
</table>
</body>
</html>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -