濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > 一段采集程序代碼

一段采集程序代碼
熱門(mén)標(biāo)簽：鎮(zhèn)江云外呼系統(tǒng)怎么樣 客服外呼系統(tǒng)呼叫中心 vue 地圖標(biāo)注拖拽 自動(dòng)外呼系統(tǒng)怎么防止封卡 成都銷(xiāo)售外呼系統(tǒng)公司 電話(huà)機(jī)器人銷(xiāo)售公司嗎 電話(huà)機(jī)器人案例 土地證宗地圖標(biāo)注符號(hào) 保定電銷(xiāo)機(jī)器人軟件
%@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("數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查連接字串。");
                Response.End;
        }
}

function CloseDatabase(){
        ADOConn.close;
}

Response.Buffer = 1;
Server.ScriptTimeout = 99999;
//////////可修改以下參數(shù)////////////////
var beginid = 230;//開(kāi)始ID
var endid = 500;//結(jié)束ID
////////////////////////////////////////
var arr,tstr,tid,getdata;
var countid = 0;
Response.Write ("開(kāi)始采集：從"+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=0id="+tid);
        if(arr = re.exec(getdata)!=null){
        tstr = String(RegExp.$1);
        if(tstr!=nulltstr!="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>采集完畢！共錄入數(shù)據(jù)"+countid+"條。");
%> 

標(biāo)簽：天津 臺(tái)灣 懷化 內(nèi)江 麗江 成都 公主嶺 重慶

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《一段采集程序代碼》，本文關(guān)鍵詞  一段,采集,程序,代碼,一段,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《一段采集程序代碼》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于一段采集程序代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    连南| 承德市| 扎鲁特旗| 汉阴县| 沽源县| 连云港市| 林甸县| 偏关县| 清新县| 新密市| 宜春市| 清水河县| 岑巩县| 庆安县| 雷州市| 高雄市| 诸暨市| 三亚市| 淳安县| 中山市| 慈利县| 崇文区| 西贡区| 南平市| 嫩江县| 大足县| 剑阁县| 清水县| 宁都县| 上饶市| 公主岭市| 土默特右旗| 丽水市| 太保市| 嘉黎县| 安福县| 工布江达县| 岳阳市| 丰镇市| 晋宁县| 辽宁省|