一段采集程序代码
来源：
中文源码网 浏览：382 次 日期：2024-04-20 04:38:36
【下载文档: 一段采集程序代码.txt 】
一段采集程序代码
<%@LANGUAGE="JScript" CODEPAGE="936"%> <% var ADOConn; function OpenDatabase(){ try{ ADOConn = new ActiveXObject("ADODB.Connection"); ADOConn.Open ("Provider=Microsoft.Jet.Oledb.4.0;Data Source="+Server.MapPath("getcaiku.mdb")); }catch(e){ ADOConn.close; Response.Write("数据库连接出错，请检查连接字串。"); Response.End; } } function CloseDatabase(){ ADOConn.close; } Response.Buffer = 1; Server.ScriptTimeout = 99999; //////////可修改以下参数//////////////// var beginid = 230;//开始ID var endid = 500;//结束ID //////////////////////////////////////// var arr,tstr,tid,getdata; var countid = 0; Response.Write ("开始采集：从"+beginid+"到"+endid+"
"); Response.Flush; OpenDatabase(); var re=new RegExp("
(.*?) - 彩酷","ig"); for(var fi=beginid;fi<(endid+1);fi++){ tid = String(fi); getdata = ajaxRead("http://mms.caiku.com/sendcring.aspx?uid=0&id="+tid); if(arr = re.exec(getdata)!=null){ tstr = String(RegExp.$1); if(tstr!=null&&tstr!="undefined"&&tstr!="") tstr = tstr.replace("'",""); ADOConn.execute("INSERT INTO getdata(title,tid)VALUES('"+tstr+"',"+tid+")"); Response.Write (tid+":"+tstr+" ___>OK!
"); countid++; Response.Flush } } re.close; CloseDatabase(); Response.Write ("
采集完毕！共录入数据"+countid+"条。"); %>
