📄 admin_collecting.asp
字号:
<!--#include file="../../inc/conn.asp"-->
<!-- #include file="collecting_function.asp" -->
<!--#include file="../../inc/page.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>采集管理--雷风影视系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.3790.4275" name=GENERATOR>
<LINK href="../images/css_body.css" type=text/css rel=stylesheet>
<script language="javascript" src="collecting.js"></script>
</HEAD>
<BODY>
<DIV class=bodytitle>
<DIV class=bodytitleleft></DIV>
<DIV class=bodytitletxt>采集管理</DIV>
<DIV class=bodytitletxt2><a href="admin_collecting.asp?action=add">添加采集</a></DIV>
</DIV>
<%
call login_check()
select case Request.QueryString("action")
case "add"
call add()
case "add2","edit2"
call add2()
if Request.QueryString("action")="add2" then
call addlog("采集添加成功")
else
call addlog("采集修改成功")
end if
case "add3"
call add3()
case "add4"
call add4()
case "sadd"
call showerr("采集设置成功","admin_collecting.asp")
case "edit"
call edit()
case "del"
call del()
call addlog("删除采集")
call showerr("采集删除成功",Request.ServerVariables("HTTP_REFERER"))
case "copy":
call copydb()
call addlog("复制采集")
call showerr("采集复制成功",Request.ServerVariables("HTTP_REFERER"))
case else
call main()
session.abandon()
end select
sub copydb()
Set rsCopy = conn.Execute("Select * from "&web_dbtop&"collect where id="&Request.QueryString("id"))
if not rsCopy.eof then
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from "&web_dbtop&"collect",conn,1,3
rs.AddNew
For Each Filed In rs.Fields
if LCase(Filed.name) <> "id" then
if LCase(Filed.name) = "collectname" then
rs(Filed.name) = rsCopy(Filed.name)&"-[复制]"
else
rs(Filed.name) = rsCopy(Filed.name)
end if
end if
Next
rs.Update
rs.MoveNext
Set rs= Nothing
end if
Set rsCopy = Nothing
end sub
sub del()
conn.Execute("delete from "&web_dbtop&"collect where id="&Request.QueryString("id"))
end sub
sub main()
Set rs = server.CreateObject("Adodb.RecordSet")
sql="Select * from "&web_dbtop&"collect Order by id desc"
rs.open sql,Conn,1,1
%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<tbody>
<tr bgColor=#f5fafe>
<td width="5%" align="center">id</td>
<td align="center">采集项目名称</td>
<td width="25%" align="center">最后一次采集时间</td>
<td width="20%" align="center">操作</td>
</tr>
<%if not rs.eof then
rs.PageSize=20
page=Request.QueryString("page")
If page="" Then page = 1
If not isnumeric(page) Then page = 1
page = Clng(page)
If page>rs.PageCount Then page=rs.PageCount
If page<=0 Then page=1
rs.AbsolutePage=page
for i=1 to 20
if rs.eof Then exit For%>
<tr bgColor=#ffffff>
<td align="center"><%=rs("id")%></td>
<td><%=rs("CollectName")%></td>
<td align="center"><%=rs("CollectTime")%></td>
<td align="center"><A href="collecting.asp?id=<%=rs("id")%>">采集</A>｜<A href="?action=edit&id=<%=rs("id")%>">修改</A>｜<A href="?action=copy&id=<%=rs("id")%>">复制</A>｜<A href="?action=del&id=<%=rs("id")%>">删除</A></td>
</tr>
<%rs.MoveNext
next
end if%>
<tr align="center">
<td colspan="4" bgColor=#f5fafe><%=show(rs.recordCount,20,page,4,"page","curr")%></td>
</tr>
</tbody>
</table>
<%rs.close:set rs = nothing
end sub
sub add()%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<form name="form" action="?action=add2" method="post">
<tbody>
<tr>
<td colspan="2" bgColor=#f5fafe>采集项目添加</td>
</tr>
<tr>
<td width="20%" bgColor=#f5fafe>采集名称：</td>
<td bgColor=#ffffff><input name="CollectName" type="text" id="CollectName" size="40"></td>
</tr>
<tr>
<td bgColor=#f5fafe>目标编码：</td>
<td bgColor=#ffffff><select name="selEncoding" size="1">
<option value="GB2312" selected="selected">GB2312</option>
<option value="UTF-8">UTF-8</option>
<option value="BIG5">BIG5</option>
</select></td>
</tr>
<tr>
<td bgColor=#f5fafe>分页设置：</td>
<td bgColor=#ffffff><input type="radio" value="0" name="ListPaingType" checked="checked" onClick="ChangeCut(0);">
不分页
<input type="radio" value="1" name="ListPaingType" onClick="ChangeCut(1);">
批量分页
<input type="radio" value="2" name="ListPaingType" onClick="ChangeCut(2);">
手动分页
<input type="radio" value="3" name="ListPaingType" onClick="ChangeCut(3);">
按id直接采集内容</td>
</tr>
<tr id="IndexCutPage">
<td bgColor=#f5fafe>采集对象页：</td>
<td bgColor=#ffffff><input name="ListPaingStr" type="text" size="60"></td>
</tr>
<tr id="HandCutPage" style="display:none">
<td bgColor=#f5fafe><span id="CutPageName"></span>：</td>
<td bgColor=#ffffff><input name="ListPaingStr2" type="text" value="" size="60">
分页代码 <font color=red>{id}</font><br>
格式：http://www.****.cn/list.asp?page={id}<br>
生成范围：
<input name="ListPaingid1" type="text" value="0" size="4">
To
<input name="ListPaingid2" type="text" value="0" size="4">
例如：1 - 9</td>
</tr>
<tr id="ListContent" style="display:none">
<td bgColor=#f5fafe>手动分页：</td>
<td bgColor=#ffffff><textarea name="ListPaingStr3" cols="60" rows="7"></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>采集参数：</td>
<td bgColor=#ffffff><input name="SaveFiles" type="checkbox" value="1">
保存图片</td>
</tr>
<tr>
<td colspan="2" align="center" bgColor=#f5fafe><input type="submit" name="Submit" value="下一步" class=inputbut></td>
</tr>
</tbody>
</form>
</table>
<%end sub
sub add2()
Select Case Request.Form("ListPaingType")
Case 0
ListUrl=request.Form("ListPaingStr")
Case 1,3
ListUrl=Replace(request.Form("ListPaingStr2"),"{id}",CStr(request.Form("ListPaingID1")))
Case 2
If Instr(request.Form("ListPaingStr3"),vbcrlf)>0 Then
ListPaingStr3=Split(request.Form("ListPaingStr3"),vbcrlf)
ListUrl=ListPaingStr3(0)
Else
ListUrl=request.Form("ListPaingStr3")
End If
End Select
ListCode=GetHttp(ListUrl,Request.Form("selEncoding"))
if ListCode=False then
call showerr("在获取:"&ListUrl&"网页源码时发生错误！","javascript:history.go(-1)")
end if
Session("ListUrl")=ListUrl
Session("selEncoding")=Request.Form("selEncoding")
Session("ListCode")=ListCode
if Request.QueryString("action")="add2" then
Set rs = server.CreateObject("Adodb.RecordSet")
sql="select * from "&web_dbtop&"collect"
rs.open sql,conn,1,3
rs.addnew
rs("CollectName")=Request.Form("CollectName")
rs("selEncoding")=Request.Form("selEncoding")
rs("ListPaingType")=Request.Form("ListPaingType")
rs("ListPaingStr")=Request.Form("ListPaingStr")
rs("ListPaingStr2")=Request.Form("ListPaingStr2")
rs("ListPaingid1")=Request.Form("ListPaingid1")
rs("ListPaingid2")=Request.Form("ListPaingid2")
rs("ListPaingStr3")=Request.Form("ListPaingStr3")
rs("SaveFiles")=Request.Form("SaveFiles")
rs.update
id=rs("id")
rs.close
set rs=nothing
elseif Request.QueryString("action")="edit2" then
Set rs = server.CreateObject("Adodb.RecordSet")
sql="select * from "&web_dbtop&"collect where id="&Request.Form("id")
rs.open sql,conn,1,3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -