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

📄 admin_itemlist.asp

📁 小说站源代码文件
💻 ASP
字号:
🔍 
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
<script language="javaScript" src="../js/js.js"></script>
<script language="javaScript" src="images/plus.js"></script>
<link rel="stylesheet" type="text/css" href="helpalt.css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id="topmomo">
	长篇采集系统项目管理</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center">
		<td height="30"><a href=Admin_ItemManage.asp>管理首页</a>
		 | <a href="Admin_ItemAddNew.asp">添加项目</a>
		 | <a href="Admin_ItemManage.asp?Action=import"><font color="red">导入新版项目</font></a>
		 | <a href="Admin_ItemManage.asp?Action=oldimport"><font color="red">导入旧版项目</font></a>
		 | <a href="Admin_ItemManage.asp">采集作品</a>
		 | <a href="Admin_ItemManages.asp">更新作品</a></td>
  </tr>
</table>
<%
Const MaxPerPage=100
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if                 
Set Rs=server.createobject("adodb.recordset")         
Sql="select ItemID,WebUrl,WebName,Itemfalst,Islisted from [Item] order by ItemID DESC"         
Rs.open Sql,ConnItem,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
	<tr align="center">
			<td colspan="8" class="thead">采 集 站 点 管 理</td>
    </tr>
	<tr align="center">
		<td colspan="8" class="alt1">所有采集操作必须单线进行，否则不保证采集完整性和安全性。采集操作大量占用CPU与内存资源，谨慎使用。</td>
    </tr>
    <tr style="padding: 0px 2px;" height="25" align="center">
      <td width="5%" class="tcat">选择?</td>
      <td width="25%" class="tcat">网站名称</td>
      <td width="5%" class="tcat">完成?</td>
      <td width="55%" class="tcat">采集</td>
    </tr>
    <form name="formd" method="get" action="Admin_ItemManage.asp?Action=Derived">
<%if Rs.Eof then
response.write "<tr height=22><td colspan=8 align=center class=alt2>暂无采集项目！</td></tr>"
Else
   Rs.PageSize=MaxPerPage
   Allpage=Rs.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs.RecordCount
   Rs.MoveFirst
   Rs.AbsolutePage=CurrentPage
   i=0
   Do While Not Rs.Eof
      ItemID=Rs("ItemID")
      WebUrl=Rs("WebUrl")
      WebName=Rs("WebName")
      Itemfalst=Rs("Itemfalst")
%>
    <tr align="center" height="22">
      <td class=alt1><input type="checkbox" name="checked" value="<%=ItemID%>" class="form"></td>
      <td class=alt2><a href="<%=WebUrl%>" title="点击连接:<%=WebUrl%>" target="_bank"><%=WebName%></a></td>
      <td class=alt1><%If Itemfalst=0 Then%>
		<font color="red">×</font> <%else%> <font color="0076AE">√</font> <%end if%> </td>
      <td class=alt2>
      <%if rs("Islisted")=0 then%>
      <a href=Admin_ItemDownbook.asp?ItemID=<%=ItemID%> title="采集过程中可以停止采集进行其他工作<br>采集站资料页是纯数字ID形式">按ID范围</a>(<font color="#800000">可</font>停止)　<a href=Admin_ItemDownnovel.asp?ItemID=<%=ItemID%> title="　　采集过程中不可以停止，即便关闭浏览器，程序依然会在后台采集！<br>　　采集站资料页是纯数字ID形式">按ID范围</a>(<font color="#800000">不可</font>停止)　<a href=Admin_ItemDownbooks.asp?ItemID=<%=ItemID%> title="　　采集过程中不可以停止，即便关闭浏览器，程序依然会在后台采集！<br>　　采集站资料页是纯数字ID形式">按ID列表</a>
      <%ElseIf rs("Islisted")=1 then%>
      <a href=Admin_ItemDownbook.asp?ItemID=<%=ItemID%> title="采集过程中可以停止采集进行其他工作<br>采集站资料页是纯数字ID形式">按ID范围</a>(<font color="#800000">可</font>停止)　<a href=Admin_ItemDownnovel.asp?ItemID=<%=ItemID%> title="　　采集过程中不可以停止，即便关闭浏览器，程序依然会在后台采集！">按ID范围</a>(<font color="#800000">不可</font>停止)
      <%ElseIf rs("Islisted")=2 then%>
      <a href=Admin_ItemDownbooks.asp?ItemID=<%=ItemID%> title="　　采集过程中不可以停止，即便关闭浏览器，程序依然会在后台采集！<br>　　采集站资料页是非数字ID形式<br>　　无规律数字ID形式<br>　　数字、英文、拼音混合等<br>　　多级目录形式（递加型或递减型等等）！">按URL列表</a>(非ID、<font color="#800000">无规律</font>ID或<font color="#800000">多级目录</font>形式)
      <%End If%>
		<a title="　　列表经由本规则所采集的作品，以便进行进一步操作." href="admin_bookjian.asp?info=cjlist&cndb=all&clid=<%=ItemID%>"><font color="red">作品列表</font></a>
      </td>
    </tr>
    <%
      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%>
    <tr>
      <td colspan='8' align="center" class="alt3"><input type="hidden" name="Page" value="<%=CurrentPage%>"><input type="hidden" name="Action" value="Derived">
			<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">
      </td>
    </tr>
    </form>
    <%End If
Rs.Close
Set  Rs=Nothing
%>
    <tr> 
      <td height="25" colspan="6" class=alt2><%Response.Write ShowPage("Admin_Itemlist.asp?Action=list",CurrentPage,Num,MaxPerPage,True,True," 个项目")%>
      </td>
    </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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