<%@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;