特效采集

特效采集 - 添 加 项 目

启始ID | (*) 填写数字取决采集网站
结束ID | (*) 填写数字取决采集网站
要写入分类的id号 | (*)

<% 'GetFileText 'GetContent on error resume next Server.Scripttimeout=9999999 dim zd,sid,eid,id,ttt,tt,zj,ts,dl sid=Trim(request("sid")) eid=Trim(request("eid")) cjz=Trim(request("cjz")) dc=Trim(request("dc")) zj=Trim(request("zj")) ts=Trim(request("ts")) gm=Trim(request("gm")) dl=Trim(request("dl")) ttt=0 if sid<>"" then id=cINT(sid) eid=cINT(eid) dc=cINT(dc) zj=cINT(zj) ts=cINT(ts) dl=cINT(dl) for tt=id to eid aa=GetFileText("http://www.jscode.cn/JsHtml/Js"&tt&".htm") name=GetContent(aa,"","",0) js=GetContent(aa,""," ",0) '///////////////////////////加入此断出错 dim pass pass=0 sql1="select * from js where js_name='"&name&"'" set rs1=conn.execute(sql1) if rs1.eof and name<>"" then pass=1 end if rs1.close set rs1=nothing '////////////////////////// if pass=1 then sql="select * from js" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("jscat_id")=dc rs("js_name")=name rs("js_desc")=js rs.update rs.close set rs=nothing end if next end if %>