Sepotong Kode Program Koleksi

<%@Language = "jscript" codepage = "936"%>

<scriptLanguage = vbscriptrunat = "server">

FunctionBytes2BTR (VIN)

strreturn = ""

Fori = 1TolenB (VIN)

Kode ini = ASCB (midb (vin, i, 1))

Ifthischarcode <& H80then

Strreturn = Strreturn & CHR (Kode ini)

Kalau tidak

NextCharCode = ASCB (midb (vin, i+1,1)))

Strreturn = Strreturn & Chr (Clng (ThisCharcode)*& H100+CINT (NextCharCode))

i = i+1

Endif

Berikutnya

BYTES2BSTR = Strreturn

Fungsi endfungsi

FunctionAxread (TheURL)

dimxmlhttp

setxmlhttp = createObject ("microsoft.xmlhttp")

Xmlhttp.open "get", theUrl, false

Xmlhttp.setRequestheader "tipe konten", "teks/html"

Xmlhttp.send

DIMHTMLSTR

htmlstr = bytes2btr (xmlhttp.responseBody)

Ajaxread = htmlstr

Fungsi endfungsi

</script>

<%

Varadoconn;

functionopendatabase () {

mencoba{

Adoconn = newActivexObject ("adodb.connection");

Adoconn.open ("penyedia = microsoft.jet.oledb.4.0; datasource ="+server.mappath ("getcauku.mdb"));

} catch (e) {

Adoconn.close;

Response.write ("数据库连接出错 ， 请检查连接字串。");

Response.end;

}

}

functionclosedatabase () {

Adoconn.close;

}

Response.buffer = 1;

Server.scriptTimeout = 99999;

////////// 可修改以下参数 /////////////////

varbeginid = 230; // 开始 id

varendId = 500; // 结束 id

///////////////////////////////////

VARARR, TSTR, TID, GETDATA;

varcountId = 0;