📄 admin_itemmanage.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!-- #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>
<%
Action=Request("Action")
if Action="" or Action=null then
	Action="list"
end if
Select Case Action
	Case "list"
		Call list()
	Case "copy"
		Call copy()
	Case "Del"
		Call Del()
	Case "Derived"
		Call Derived()
	Case "import"
		Call import()
	Case "importlist"
		Call importlist()
	Case "Introduct"
		Call Introduct()
	Case "oldimport"
		Call oldimport()
	Case "oldimportlist"
		Call oldimportlist()
	Case "oldIntroduct"
		Call oldIntroduct()
end select 
Sub import%>
<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">采 集 站 点 导 入[ 2.35版(含之后)]</td>
    </tr>
	<tr align="center">
		<td colspan="8" class="alt1">请将要进行导入操作的数据库上传至系统根目录,然后执行本步骤<br>
		数据库名称必须为“DerivedItem.Mdb”（从系统导出的数据库默认即是该名称）<br>
		请尽量使用系统导出的数据库，以前V2.2版（含之前版本）的数据库<font color="#FF0000">不能</font>在此进行导入操作。<br>
		<font color="#800000">短篇采集项目</font>导出的数据库<font color="#FF0000">不能</font>在此进行导入操作。</td>
    </tr>
    <tr align="center"> 
      <td height="25" colspan="6" class=alt3>
      <input name=Submit class=button type=button onclick="window.location.href='Admin_ItemManage.asp?Action=importlist'" value="我已经了解该步骤，开始进行导入" style='width: 390; height: 20'></td>
    </tr>
</table>
<%end sub
Sub importlist
Itemdata=SiteSystemPath&"DerivedItem.Mdb"
connstrItems="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(""&Itemdata&"")
On Error Resume Next
Set connItems = Server.CreateObject("ADODB.Connection")
connItems.Open connstrItems
If Err Then
   err.Clear
   Set ConnItems = Nothing
    FoundErr=True
    ErrCodes=ErrCodes & "<li>目标采集数据库连接出错，请检查根目录中的采集数据库是否存在或已经更名为“DerivedItem.Mdb”。</li><br>"
End If

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,ConnItems,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">采 集 站 点 导 入[ 2.35版(含之后)]</td>
    </tr>
	<tr align="center">
		<td colspan="8" class="alt1">所有采集操作必须单线进行，否则不保证采集完整性和安全性。采集操作大量占用CPU与内存资源，谨慎使用。</td>
    </tr>
    <tr style="padding: 0px 2px;" height="25" align="center">
      <td width="10%" class="tcat">选择?</td>
      <td width="25%" class="tcat">网站名称</td>
      <td width="30%" class="tcat">网站地址</td>
      <td width="10%" class="tcat">完成?</td>
      <td width="25%" class="tcat">导入?</td>
    </tr>
    <form name="form" method="get" action="Admin_ItemManage.asp?Action=Introduct">
<%if Rs.Eof then
response.write "<tr height=22><td colspan=8 align=center class=alt2>暂无采集项目！</td></tr>"
Else
   Rs.PageSize=MaxItemPerPage
   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=alt2><%=WebUrl%></td>
      <td class=alt1><%If Itemfalst=0 Then%>
		<font color="red">×</font> <%else%> <font color="0076AE">√</font> <%end if%> </td>
      <td class=alt2> 
      <a title="测试此站点与本服务器通信状态,确定是否可以采集." onclick="javascript:window.open('admin_checkWebUrl.asp?info=Itemadd&WebName=<%=WebName%>&WebUrl=<%=WebUrl%>','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=500')" style="cursor:hand">
      <font color="red">测试</font></a>
      <a title="将此站点采集规则导入本地数据库" href=Admin_ItemManage.asp?Action=Introduct&checked=<%=ItemID%> onClick='return confirm("确定要将此站点采集规则导入吗？");'>
		<font color="red">导入</font></a> 
      <a title="将此站点采集规则导入本地数据库并覆盖同名规则" href=Admin_ItemManage.asp?Action=Introduct&Introducted=1&checked=<%=ItemID%> onClick='return confirm("确定要将此站点采集规则导入并覆盖同名规则吗？");'>
		<font color="red">导入（覆盖同名规则）</font></a> 
      </td>
    </tr>
    <%
      i=i+1
      If i>=MaxItemPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%>
    <tr>
      <td colspan='8' align="center" class="alt3">
      		<input type="checkbox" name="Introducted" value="1"> 覆盖同名规则（以网站名称为准）？
      		<input type="hidden" name="Action" value="Introduct">
			<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">
      </td>
    </tr>
    </form>
    <%End If
Rs.Close
Set  Rs=Nothing
%>
    <tr> 
      <td height="25" colspan="6" class=alt2><%Response.Write ShowPage("Admin_ItemManage.asp?Action=importlist",CurrentPage,Num,MaxItemPerPage,True,True," 个项目")%>
      </td>
    </tr>
</table>
<%end sub
Sub oldimport%>
<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">采 集 站 点 导 入[ 2.2版(含之前)]</td>
    </tr>
	<tr align="center">
		<td colspan="8" class="alt1">请将要进行导入操作的旧版数据库上传至系统根目录,然后执行本步骤<br>
		数据库名称必须为“OldItem.Mdb”<br>
		V2.35版（含之后版本）的数据库<font color="#FF0000">不能</font>在此进行导入操作。
		<font color="#800000">短篇采集项目</font>导出的数据库<font color="#FF0000">不能</font>在此进行导入操作。<br>
		长篇采集管理中察看到状态为“<font color="#FF0000">×</font>”的是刚刚导入的数据，请点击“<font color="#FF0000">修改</font>”按照新版采集规则设置一遍<br>（一般情况下全部点“下一步”即可，部分需要手工稍做调整）才可以开始使用。</td>
    </tr>
    <tr align="center"> 
      <td height="25" colspan="6" class=alt3>
      <input name=Submit class=button type=button onclick="window.location.href='Admin_ItemManage.asp?Action=oldimportlist'" value="我已经了解该步骤，开始进行导入" style='width: 390; height: 20'></td>
    </tr>
</table>
<%end sub
Sub oldimportlist
Itemdata=SiteSystemPath&"OldItem.Mdb"
connstrItems="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(""&Itemdata&"")
On Error Resume Next
Set connItems = Server.CreateObject("ADODB.Connection")
connItems.Open connstrItems
If Err Then
   err.Clear
   Set ConnItems = Nothing
    FoundErr=True
    ErrCodes=ErrCodes & "<li>目标采集数据库连接出错，请检查根目录中的采集数据库是否存在或已经更名为“OldItem.Mdb”。</li><br>"
End If

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,ConnItems,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">采 集 站 点 导 入[ 2.2版(含之前)]</td>
    </tr>
	<tr align="center">
		<td colspan="8" class="alt1">所有采集操作必须单线进行，否则不保证采集完整性和安全性。采集操作大量占用CPU与内存资源，谨慎使用。</td>
    </tr>
    <tr style="padding: 0px 2px;" height="25" align="center">
      <td width="10%" class="tcat">选择?</td>
      <td width="30%" class="tcat">网站名称</td>
      <td width="30%" class="tcat">网站地址</td>
      <td width="10%" class="tcat">完成?</td>
      <td width="20%" class="tcat">导入?</td>
    </tr>
    <form name="form" method="get" action="Admin_ItemManage.asp?Action=oldIntroduct">
<%if Rs.Eof then
response.write "<tr height=22><td colspan=8 align=center class=alt2>暂无采集项目！</td></tr>"
Else
   Rs.PageSize=MaxItemPerPage
   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=alt2><%=WebUrl%></td>
      <td class=alt1><%If Itemfalst=0 Then%>
		<font color="red">×</font> <%else%> <font color="0076AE">√</font> <%end if%> </td>
      <td class=alt2> 
      <a onclick="javascript:window.open('admin_checkWebUrl.asp?info=Itemadd&WebName=<%=WebName%>&WebUrl=<%=WebUrl%>','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=500')" style="cursor:hand" title="测试此站点与本服务器通信状态,确定是否可以采集.">
      <font color="red">测试</font></a>
      <a href=Admin_ItemManage.asp?Action=oldIntroduct&checked=<%=ItemID%> title="将此站点采集规则导入本地数据库" onClick='return confirm("确定要将此站点采集规则导入吗？");'>
		<font color="red">导入</font></a> 
      </td>
    </tr>
    <%
      i=i+1
      If i>=MaxItemPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%>
    <tr>
      <td colspan='8' align="center" class="alt3"><input type="hidden" name="Action" value="oldIntroduct">
			<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">
      </td>
    </tr>
    </form>
    <%End If
Rs.Close
Set  Rs=Nothing
%>
    <tr> 
      <td height="25" colspan="6" class=alt2><%Response.Write ShowPage("Admin_ItemManage.asp?Action=oldimportlist",CurrentPage,Num,MaxItemPerPage,True,True," 个项目")%>
      </td>
    </tr>
</table>
<%end sub
Sub list

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">
12 3 下一页
⌨️ 快捷键说明

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