<% @ Lingots = "jscript" codepage = "936"%>
<criptLanguage = vbscripTrunat = "Server">
FunctionBytes2BSTR (VIN)
strreturn = ""
Fori = 1Tolenb (vin)
ThisCharcode = ASCB (midb (vin, i, 1))
Ifthischarcode <& h80Then
Streturn = Strreturn & Chr (ThisCharcode)
Autre
NextCharcode = ASCB (Midb (Vin, I + 1,1))
Streturn = Streturn & Chr (Clng (ThisCharcode) * & H100 + Cint (NextCharcode))
i = i + 1
Endire
Suivant
bytes2bstr = STRRETURN
Finition de fin
Functionajaxread (theurl)
dimxmlhttp
setxmlhttp = createObject ("Microsoft.xmlhttp")
Xmlhttp.open "get", theurl, false
Xmlhttp.setRequestHeader "Content-Type", "texte / html"
Xmlhttp.send
dimhtmlstr
htmlstr = bytes2bStr (xmlhttp.ResponseBody)
ajaxread = htmlstr
Finition de fin
</cript>
<%
Varadoconn;
functionOpenDatabase () {
essayer{
Adoconn = newActiveXObject ("adodb.connection");
Adoconn.open ("provider = Microsoft.Jet.oledb.4.0; DataSource =" + Server.Mappath ("getCAIKU.mdb"));
} catch (e) {
Adoconn.close;
Réponse.Write ("数据库连接出错 ， 请检查连接字串。");
Réponse.end;
}
}
functionclosedatabase () {
Adoconn.close;
}
Réponse.buffer = 1;
Server.scriptTimeout = 99999;
/////////// 可修改以下参数 //////////////////
varbeginid = 230; // 开始 id
Varendide = 500; // 结束 ID
//////////////////////////////////////////////////
Vararr, TSTR, TID, GetData;
varCountId = 0;