📄 sk_getrc.asp
字号:
set Rs=server.createobject("adodb.recordset")
Rs.open Sql,ConnItem,1,1
do while not rs.eof
%>
<TR class="tdbg">
<TD width="19%" height=22 align=center bgcolor="#F2F2F2" class=tdbg><%=rs("classID")%>
</DIV></TD>
<TD width="66%" height=22 align=left bgcolor="#F2F2F2" class=tdbg>
<%
If Rs("depth") = 1 Then Response.Write " <font color=""#666666"">├</font>"
If Rs("depth") > 1 Then
For i = 2 To Rs("depth")
Response.Write " <font color=""#666666"">│</font>"
Next
Response.Write " <font color=""#666666"">├</font> "
End If
If Rs("depth") = 0 Then Response.Write ("<b>")
Response.Write rs("className")
If Rs("depth") = 0 Then Response.Write ("</b>")
%>
</DIV></TD>
<TD width="15%" height=22 align=center bgcolor="#F2F2F2" class=tdbg><a href=?Action=BeginClasscj&ClassID=<%=Rs("ClassID")%>>开始采集</a></TD>
</TR>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</TABLE></td>
</tr>
</table><%
End Sub
'============================================
'开始批量采集
'============================================
Sub BeginClasscj
ClassID=Trim(Request("ClassID"))
If ReturnSubClass(ClassID,1)="" then
response.write "<script>alert('分类下没有项目采集！');history.go(-1);</script>"'关闭窗口
Response.end
End if
ItemID=ReturnSubClass(ClassID,1)
ItemID=Left(ItemID,len(ItemID)-1)
Response.redirect "Sk_Collection.asp?ItemID="&ItemID&"&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0"
End Sub
'==========================================
'采集基本设置
'==========================================
Sub config()
If Skcj.G("config")="save" Then
SqlItem="Select top 1 Dir,MaxFileSize,FileExtName,Timeout,MaxPerPage from SK_Cj where ID=" &Colleclx
Set Rs=server.CreateObject("adodb.recordset")
Rs.Open SqlItem,ConnItem,3,3
rs("Timeout")=Skcj.ChkNumeric(Skcj.G("Timeout"))
rs("Dir")=Skcj.G("Dir")
rs("MaxFileSize")=Skcj.ChkNumeric(Skcj.G("MaxFileSize"))
rs("FileExtName")=Skcj.G("FileExtName")
rs("MaxPerPage")=Skcj.ChkNumeric(Skcj.G("MaxPerPage"))
Rs.UpDate
Rs.Close
set rs=nothing
response.write "<script>alert('修改成功!');</script>"'关闭窗口
config_main()
Else
config_main()
End If
End Sub
Sub config_main()
set rs = ConnItem.execute("Select top 1 Dir,MaxFileSize,FileExtName,Timeout,MaxPerPage from SK_Cj where ID=" & Colleclx)
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr class='topbg'>
<th height="22" colspan="2" align="center" ><strong>采 集 集 基 本 设 置</strong></th>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<form action="?action=config&config=save" method="post">
<tr class="tdbg">
<td width="20%" height="20" align="right" bgcolor="#F7F7F7"><STRONG>采集超时设置：</STRONG></td>
<td bgcolor="#F7F7F7"><input name="Timeout" type="text" class="lostfocus" value="<%= rs("Timeout") %>" size="10" maxlength="9">
<STRONG>秒</STRONG> <font class="alert">* 默认64秒 如果128K的数据64秒还下载不完(按每秒2K保守估算)，则超时。</font></td>
</tr>
<tr class="tdbg">
<td height="20" align="right" bgcolor="#F7F7F7"><STRONG>项目行数设置：</STRONG></td>
<td bgcolor="#F7F7F7"><input name="MaxPerPage" type="text" class="lostfocus" value="<%= rs("MaxPerPage") %>" size="10" maxlength="9">
<strong>条</strong> <font class="alert">* 采集项目管理显示条数，设0为10条。</font></td>
</tr>
<tr class="tdbg">
<td width="20%" height="20" align="right" bgcolor="#F7F7F7"><STRONG>允许下载的图片大小：</STRONG></td>
<td bgcolor="#F7F7F7"><input name="MaxFileSize" type="text" class="lostfocus" value="<%= rs("MaxFileSize") %>" size="27" maxlength="9">
<STRONG>KB </STRONG> <font class="alert">* 不限制请输入“0”</font></td>
</tr>
<tr class="tdbg">
<td height="20" align="right" bgcolor="#F7F7F7"><STRONG>采集保存地址：</STRONG></td>
<td bgcolor="#F7F7F7"><input name="Dir" type="text" class="lostfocus" value="<% =rs("Dir") %>" size="27" maxlength="30">
<font class="alert"> 后面必须带"/"符号</font></td>
</tr>
<tr class="tdbg">
<td height="20" align="right" bgcolor="#F7F7F7"><STRONG>采集保存文件类型：</STRONG></td>
<td height="30" bgcolor="#F7F7F7"><input name="FileExtName" type="text" class="lostfocus" value="<% =rs("FileExtName") %>" size="50" maxlength="300">
<font class="alert">* 每个文件类型请用“|”分开 如:Rm|swf|rar</font></td>
</tr>
<tr class="tdbg">
<td height="38" align="right" bgcolor="#F7F7F7"> </td>
<td height="38" bgcolor="#F7F7F7"><input name="Submit2" type="submit" class="lostfocus" value="提交"></td>
</tr>
</form>
</table>
<%
Rs.Close
set rs=nothing
End Sub
Sub addnew1()'初步设置
'call SetChannel
Colleclx=Skcj.G("Colleclx")
If action="edit" Or action1="edit" Then
If ItemID<>"" Then
ItemID=Clng(ItemID)
SqlItem ="Select * from Item where ItemID=" & ItemID
Set RsItem=Server.CreateObject("adodb.recordset")
RsItem.Open SqlItem,ConnItem,1,1
If RsItem.Eof And RsItem.Bof Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，没有找到该项目！</li>"
Else
ItemName=RsItem("ItemName")
ChannelID=RsItem("ChannelID")
ClassID=RsItem("ClassID")
SpecialID=RsItem("SpecialID")
selEncoding=RsItem("selEncoding")
WebUrl=RsItem("WebUrl")
ListStr=RsItem("ListStr")
ListPaingType=RsItem("ListPaingType")
LPsString=RsItem("LPsString")
LPoString=RsItem("LPoString")
ListPaingStr2=RsItem("ListPaingStr2")
Select Case ListPaingType
Case 0
ListUrl=ListStr
Case 1
ListPaingID1=RsItem("ListPaingID1")
ListPaingID2=RsItem("ListPaingID2")
ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1))
Case 2
ListPaingStr3=RsItem("ListPaingStr3")
If Instr(ListPaingStr3,"|")>0 Then
ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1)
Else
ListUrl=ListPaingStr3
End If
ListPaingStr3=Replace(ListPaingStr3,"|",CHR(13))
End Select
Colleclx=RsItem("Colleclx")
SaveFileUrl=RsItem("SaveFileUrl")
Passed=RsItem("Passed")
SaveFiles=RsItem("SaveFiles")
CollecOrder=RsItem("CollecOrder")
Script_Iframe=RsItem("Script_Iframe")
Script_Object=RsItem("Script_Object")
Script_Script=RsItem("Script_Script")
Script_Div=RsItem("Script_Div")
Script_Class=RsItem("Script_Class")
Script_Span=RsItem("Script_Span")
Script_Img=RsItem("Script_Img")
Script_Font=RsItem("Script_Font")
Script_A=RsItem("Script_A")
Script_Html=RsItem("Script_Html")
Script_Table=RsItem("Script_Table")
Script_Tr=RsItem("Script_Tr")
Script_Td=RsItem("Script_Td")
Stars=RsItem("Stars")
ReadPoint=RsItem("ReadPoint")
Hits=RsItem("Hits")
Colleclx=RsItem("Colleclx")
Thumb_WaterMark=RsItem("Thumb_WaterMark")
CollecNewsNum=RsItem("CollecNewsNum")
Timing=RsItem("Timing")
strReplace=RsItem("strReplace")
End If
RsItem.Close
Set RsItem=Nothing
End If
End If
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<form method="post" action="<%= CJFileName %>" name="myform" onSubmit="return CheckForm();">
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>添 加 新
项 目--基 本 设 置</strong></div></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="#F3F3F3" class="txtlist"><strong>项目名称：</strong></td>
<td width="75%" bgcolor="#F3F3F3" class="tdbg">
<input name="ItemName" type="text" class="lostfocus" value="<%= ItemName %>" size="27" maxlength="30"> <font color=red>*</font>如：新浪网－图片中心 既简单又明了 </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="#F3F3F3" class="txtlist"><strong> 所属分类：</strong></td>
<td width="75%" bgcolor="#F3F3F3" class="tdbg"><Select ID="ClassID" name="ClassID"><%call SK_Showclass_d(ClassID,Colleclx)%></Select> </td>
</tr>
<tr>
<td align="right" bgcolor="#F3F3F3" class="txtlist"><STRONG>目标网页编码：</STRONG></td>
<td bgcolor="#F3F3F3" ><font color=blue>请选择编码→</font></span> <Select name="selEncoding" size="1" onChange="Encoding.value=this.value;">
<option>请选择编码</option>
<option value="GB2312" Selected <% If selEncoding="GB2312" Then Response.Write "Selected" %>>GB2312</option>
<option value="UTF-8" <% If selEncoding="UTF-8" Then Response.Write "Selected" %>>UTF-8</option>
<option value="BIG5" <% If selEncoding="BIG5" Then Response.Write "Selected" %>>BIG5</option>
</Select></td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="#F3F3F3" class="txtlist"><strong>远程列表URL:</strong></td>
<td bgcolor="#F3F3F3" class="tdbg"><input name="ListStr" type="text" class="lostfocus" value="<%= ListStr %>" size="80" maxlength="200">
<font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="#F3F3F3" class="txtlist"><strong>列表分页采集设置:</strong></td>
<td bgcolor="#F3F3F3" class="tdbg">
<input type="radio" value="0" name="ListPaingType" <% If ListPaingType=0 Or ListPaingType="" Then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='none'">
不作设置
<input type="radio" value="1" name="ListPaingType" <% If ListPaingType=1 Then Response.Write "checked" %> onClick="ListPaing2.style.display='';ListPaing3.style.display='none'">
批量生成
<input type="radio" value="2" name="ListPaingType" <% If ListPaingType=2 Then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display=''">
手动添加 </td>
</tr>
<tr class="tdbg" id="ListPaing2" <% If ListPaingType<>1 Then Response.Write "style=""display:none""" %> >
<td align="right" bgcolor="#F3F3F3" class="txtlist"><strong><font color=blue>批量生成：</font></strong></td>
<td bgcolor="#F3F3F3" class="tdbg"><input name="ListPaingStr2" type="text" class="lostfocus" value="<% =ListPaingStr2 %>" size="80" maxlength="200">
分页代码 <font color=red>{$ID}</font><br>
格式：http://www.scuta.net/list.asp?page={$ID}<br>
生成范围：<br>
<input name="ListPaingID1" value="<%= ListPaingID1 %>" type="text" class="lostfocus" size="8" maxlength="200">
<span lang="en-us"> To </span>
<input name="ListPaingID2" value="<%= ListPaingID2 %>" type="text" class="lostfocus" size="8" maxlength="200">
例如：1 - 9 或者 9 - 1<br>
格式：只能是数字，可升序或者降序。 </td>
</tr>
<tr class="tdbg" id="ListPaing3" <% If ListPaingType<>2 Then Response.Write "style=""display:none""" %>>
<td align="right" bgcolor="#F3F3F3" class="txtlist" ><strong><font color=blue>手动添加：</font></strong></td>
<td bgcolor="#F3F3F3" class="tdbg"><textarea name="ListPaingStr3" cols="60" rows="7" class="lostfocus"><%= ListPaingStr3 %></textarea>
格式：输入一个网址后按回车，再输入下一个</td>
</tr>
<tr class="tdbg" bgcolor="#F3F3F3">
<td height="30" align="right"><STRONG>采集图片文件保存目录</STRONG>：</td>
<td><input name="SaveFileUrl" type="text" class="lostfocus" value="<% =SaveFileUrl %>" size="80" maxlength="200">
<font class="alert"> 后面必须带"/"符号</font></td>
</tr>
<tr class="tdbg" bgcolor="#F3F3F3">
<td height="30" align="right"><STRONG><%= CjName %>设置：</STRONG></td>
<td><input name="Passed" type="checkbox" value="yes" <%If Passed=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
立即入库
<input name="SaveFiles" type="checkbox" value="yes" <%If SaveFiles=1 Then response.write "checked"%> <%If IsObjInstalled("Scripting.FileSystemObject")=False Then Response.Write "disabled"%> style="border: 0px;background-color: #eeeeee;">
保存动漫
<input name="Thumb_WaterMark" type="checkbox" style="border: 0px;background-color: #eeeeee;" value="yes" <%If Thumb_WaterMark=1 Then response.write "checked"%>>
图片水印
<input name="Timing" type="checkbox" style="border: 0px;background-color: #eeeeee;" value="yes" <%If Timing=1 Then response.write "checked"%>>
定时采集
<input name="CollecOrder" type="checkbox" style="border: 0px;background-color: #eeeeee;" value="yes" <%If CollecOrder=1 Then response.write "checked"%>>
倒序采集</td>
</tr>
<tr class="tdbg" bgcolor="#F3F3F3">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -