<%@LANGUAGE="JScript" CODEPAGE="936"%> <script language=VBScript runat="Server"> Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function Function ajaxRead(theURL) dim XmlHttp set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", theURL, false XmlHttp.setRequestHeader "Content-Type","text/HTML" XmlHttp.Send dim htmlstr htmlstr = bytes2BSTR(XmlHttp.responseBody) ajaxRead = htmlstr End Function </script> <% 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+"<hr>"); Response.Flush; OpenDatabase(); var re=new RegExp("<title>(.*?) - 彩酷</title>","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!<br>"); countid++; Response.Flush } } re.close; CloseDatabase(); Response.Write ("<hr>采集完毕！共录入数据"+countid+"条。"); %>

　　推荐阅读

　　ASP 写的自动生成SELECT 表单的函数

对于ASP高手当然没什么用了，但是对于刚入门的初学者和美工就有些用处了。Function selectdo(a,d,b,c) Response.write"<select name='"&a&"'><option>"&d&"</option>" for i=b to c if i<10 then i="0"&>>>详细阅读

本文标题：一段采集程序代码

地址：http://www.17bianji.com/kaifa2/ASP/33286.html

 1/2    1