📄 db_con_gather.asp
字号:
TempWeb=now()
end if
end if
else
if ColumnD<>"" and IsDate(ColumnD) then
TempWeb=ColumnD
RsTemp(""&ColumnEName&"")=cDate(TempWeb)
else
TempWeb=now()
end if
end if
if not IsDate(RsTemp(""&ColumnEName&"")) then
RsTemp(""&ColumnEName&"")=cDate(TempWeb)
end if
case else
if TempWeb<>"" and TempWeb<>"False" then
RsTemp(""&ColumnEName&"")=joekoe_cms.code_form(TempWeb)
else
RsTemp(""&ColumnEName&"")=RsTemp(""&ColumnEName&"")
end if
end select
rs.movenext
loop
rs.close
RsTemp.update
RsTemp.close
response.Write("</td></tr><tr><td>")
if Pic_Form<>1 then:Pic_count=0:Pic_Err=0:end if
if Swf_Form<>1 then:Swf_count=0:Swf_Err=0:end if
if Mp3_Form<>1 then:Mp3_count=0:Mp3_Err=0:end if
if Other_Form<>1 then:Other_count=0:Other_err=0:end if:response.Write("<br>"):response.Write("<strong><font color=""#0000FF"">"):response.Write("采集地址：</strong></font><a href="&Page_Url&" target=""_blank"">"&Page_Url&"</a>")
if Pages<>0 then:response.Write(" 一共 <font color=""#FF0000"">"&Pages+1&"</font> 页"):end if:response.Write("<br>"):response.Write("<strong><font color=""#FF0000"">"):response.Write("附件采集："):response.Write("</strong></font>"):response.Write("图片：共："&pic_count&"个 错误：")
if pic_err<>0 then:response.Write("<strong><font color=""#FF0000"">"&pic_err&"</strong></font>"):else:response.Write(pic_err):end if:response.Write("个 "):response.Write("动画：共："&Swf_count&"个 错误：")
if Swf_err<>0 then:response.Write("<strong><font color=""#FF0000"">"&Swf_err&"</strong></font>"):else:response.Write(Swf_err):end if:response.Write("个 "):response.Write("音乐：共："&mp3_count&"个 错误：")
if Mp3_err<>0 then:response.Write("<strong><font color=""#FF0000"">"&Mp3_err&"</strong></font>"):else:response.Write(Mp3_err):end if:response.Write("个 "):response.Write("其它：共："&Other_count&"个 错误：")
if Other_err<>0 then:response.Write("<strong><font color=""#FF0000"">"&Other_err&"</strong></font>"):else:response.Write(Other_err):end if:response.Write("个 "):response.Write("<hr>"):response.Flush()
end if
if IsNumeric(Count_Form) then
if bs_counts=clng(Count_Form) then
response.Write("采集完成,一共采集了 <font color=""0000ff"">"&bs_counts&"</font> 条"&tit_fir&". 一共使用了"&FormatNumber((timer()-startime)*1000,3)&"毫秒<br>")
response.Flush()
response.End()
end if
end if
end if
response.Write("<br>"):response.Flush()
next
response.Write("采集完成,一共采集了 <font color=""0000ff"">"&bs_counts&"</font> 条"&tit_fir&". 一共使用了"&FormatNumber((timer()-startime)*1000,3)&"毫秒<br>")
response.Flush()
response.Write("</td></tr></table>")
end sub
sub savedome()
call admin_table(1)
call admin_td("开始采集")
call form_first()
%>
<form name="add_frm" action="?id=<%response.write id%>" method=post>
<input type=hidden name=chk value='yes'>
<TR>
<TD>基本设置：</td>
<td>
<input name="Match" type="checkbox" id="Match" value="1" onClick="CheckRenew(this);" >
与本地<%response.write tit_fir%>标题重复时不采集
<input name="Renew" type="checkbox" id="Renew" value="1" onClick="CheckTest(this);">
覆盖已存在的新闻
<input name="Choice" type="checkbox" id="Choice" value="0" onClick="showsubmenu(this);CheckTest(this);">
人工选择采集</td></tr>
<tr>
<td>目 标 页： </td>
<td>
<INPUT name="FromUrl" type="text" id="FromUrl" value="<%=FromUrl%>" size="75" >
</td></tr>
<tr>
<td><font color="#CCCCCC">采集顺序：</font></td>
<td><font color="#CCCCCC">从第一页开始
<input name="FirstPage" type="checkbox" id="FirstPage" value="1">
从第一条开始
<input name="FirstRecord" type="checkbox" id="FirstRecord" value="1"></font></td>
</tr>
<tr>
<td><font color="#CCCCCC">页 码 段： </font></td>
<td><font color="#CCCCCC"><input name="page1" type="text" id="page1" value="" size="10" >到 <input name="page2" type="text" id="page2" value="" size="10" >页 </font></td>
</tr>
<tr>
<td><font color="#CCCCCC">时 间 段：</font></td>
<td><font color="#CCCCCC"><INPUT name="date1" type="text" id="date1" size="10" readonly>
<img src="timeOcx/cal.gif" width="16" height="16" align='absmiddle' style="cursor:hand" onClick="return showCalendar('date1', 'y/m/d');"> 到 <INPUT name="date2" type="text" id="date2" size="10" readonly>
<img src="timeOcx/cal.gif" width="16" height="16" align='absmiddle' style="cursor:hand" onClick="return showCalendar('date2', 'y/m/d');"></font></td></tr>
<tr>
<td>采集数量： </td>
<td><input name="Count" type="text" id="Count" value="5" size="10">
条 <font color="#0000FF">简洁提示</font> <input name="show" type="checkbox" id="show3" value="1" >
<font color="#999999">测试采集</font> <font color="#999999">
<input name="Preview" type="checkbox" id="Preview"value="1" >
</font></TD>
</TR>
<TR id='submenu0' style="display:">
<TD height=30 colspan="2"><font color="#999999"><%response.write tit_fir%>内容过滤设置</font></TD>
</TR>
<TR id='submenu1' style="display:">
<TD colspan="2">过滤标签：
<input name="Html" type="checkbox" id="Html2" value="1">去除所有HTML标记
<input type=checkbox value=1 name=c_span >SPAN
<input type=checkbox value=1 name=c_font >FONT
<input type=checkbox value=1 name=c_class >CLASS
<input type=checkbox value=1 name=c_a >A
<input type=checkbox value=1 name=c_div >DIV
<input type=checkbox value=1 name=c_style >STYLE
<input type=checkbox value=1 name=c_img >IMG
<br>
广告过滤：
<input name="c_OBJECT" type="checkbox" value="1">OBJECT
<input name="c_IFRAME" type="checkbox" value="1">IFRAME
<input name="c_SCRIPT" type="checkbox" value="1">SCRIPT
<br>
远程保存：
<input name="picsave" type="checkbox" id="picsave3" value="1" <%if PicValue=0 then response.Write("disabled")%>>保存图片
<input name="falshsave" type="checkbox" id="falshsave3" value="1" <%if FalshValue=0 then response.Write("disabled")%>>保存Falsh
<input name="midsave" type="checkbox" id="midsave3" value="1" <%if MusicValue=0 then response.Write("disabled")%>>保存音乐
<input name="othersave" type="checkbox" id="othersave3" value="1" <%if OtherValue=0 then response.Write("disabled")%>>保存其它
</TD>
</TR>
<TR id='submenu2' style="display:">
<TD height=30 colspan="2"><font color="#999999">其他相关设置</font></TD>
</TR>
<%
call other_set()
%>
<tr>
<td></td>
<td height=30><INPUT name="Submit" type="submit" id="Submit" value="开始采集">
<input type="button" name="Submit22" value="<%response.write tit_fir%>内容分页采集设置" onClick="location.href=''" <%if not ManyPage then response.Write("disabled")%>>
<input type="button" name="Submit2" value="高级选项" onClick="location.href=''" disabled>
</td>
</tr></form>
</table>
<script>
function CheckReview(Obj)
{
if (Obj.!=true)
{
document.add_frm.ShowReview.=false;
document.add_frm.ShowReview.disabled=true;
}
else
{
document.add_frm.ShowReview.disabled=false;
}
}
function CheckRenew(Obj)
{
if (Obj.!=true)
{
document.add_frm.Renew.=false;
document.add_frm.Renew.disabled=true;
}
else
{
document.add_frm.Renew.disabled=false;
}
}
function CheckTest(Obj)
{
if (Obj.!=true)
{
document.add_frm.Preview.=true;
}
else
{
document.add_frm.Preview.=false;
}
}
function showsubmenu(isa)
{
if (isa.value==1)
{
eval("submenu0.style.display=\"\";");
eval("submenu1.style.display=\"\";");
eval("submenu2.style.display=\"\";");
eval("submenu3.style.display=\"\";");
//eval("submenu4.style.display=\"\";");
//eval("submenu5.style.display=\"\";");
//eval("submenu6.style.display=\"\";");
//eval("submenu7.style.display=\"\";");
isa.value=0
}else{
eval("submenu0.style.display=\"none\";");
eval("submenu1.style.display=\"none\";");
eval("submenu2.style.display=\"none\";");
eval("submenu3.style.display=\"none\";");
//eval("submenu4.style.display=\"none\";");
//eval("submenu5.style.display=\"none\";");
//eval("submenu6.style.display=\"none\";");
//eval("submenu7.style.display=\"none\";");
isa.value=1
}
}
</script>
<%
end sub
sub joekoe_chk_main()
dim name,types,pageurl2
pageurl2=pageurl
sql_add=" where nsort='"&index_url&"' "
call sql_cid_sid(sql_add)
%>
<form name=sel_form action='?jk_mod=<%response.write jk_mod%>&action=handle&c_id=<%response.write cid%>&s_id=<%response.write sid%>' method=post>
<TR align=center>
<TD width="5%" class=td>编号</TD>
<TD width="25%" class=td>模板名称</TD>
<TD width="15%" class=td>所属栏目</TD>
<TD width="15%" class=td>采集目标</TD>
<TD width="15%" class=td>创建日期</TD>
<TD width="25%" class=td>操作</TD>
</TR>
<%
sql="select count(id) from [DB_Item]"&sql_add
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
rs.close
call format_pagecute()
sql="select top "&nummer*viewpage&" * from [DB_Item]"&sql_add&" order by id desc"
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,1
if int(viewpage)>1 then rs.move (viewpage-1)*nummer
if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
for i=1 to nums
id=rs("id")
%>
<tr align=center>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td><a href='?action=edit&id=<%response.write id%>'><%=rs("ItemName")%></a></td>
<td>
<%
dim temprs
Set TempRs = Conn.Execute("Select * from jk_Class where C_ID = " & rs("C_ID") & "")
if TempRs.eof then
else
response.Write(TempRs("C_Name"))
end if
%>
</td>
<td><%response.Write("<A href="""&rs("FromUrl")&""" target=""_blank"">"&rs("FromName")&"</a>")%></td>
<td align=right><font class=tims><%response.write joekoe_cms.time_type(rs("ItemTime"),4)%></font></td>
<td><a href="?id=<%=rs("id")%>">开始采集</a></td>
</tr>
<%
rs.movenext
next
rs.close
%>
<tr class=tr1>
<td colspan=10>
现有<font class=red><%response.write rssum%></font>个<%response.write tit_fir%>，
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
</td>
</tr>
</form>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -