一段采集程序代码

　　<%@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+"条。");

　　%>