<%@Sprache = "Jscript" Codepage = "936"%>
<scriptuanguage = vbscriptrunat = "Server">
FunctionBytes2bstr (vin)
Streturn = ""
Fei = 1tolenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
Anders
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
i = i+1
Endif
Nächste
bytes2bstr = Streturn
Endfunktion
FunktionajaxRead (Theurl)
dimxmlhttp
setxmlhttp = createObject ("microsoft.xmlhttp"))
Xmlhttp.open "get", theurl, false
Xmlhttp.setRequestheader "Inhaltstyp", "Text/HTML"
Xmlhttp.send
Dimhtmlstr
htmlstr = bytes2bstr (xmlhttp.ResponseBody)
AjaxRead = htmlstr
Endfunktion
</script>
<%
Varadoconn;
functionopendatabase () {
versuchen{
Adoconn = newActActXObject ("adodb.Connection");
Adoconn.open ("provider = microsoft.jet.oledb.4.0; dataSource ="+server.mappath ("getCaiku.mdb"));
} catch (e) {
Adoconn.close;
Antwort.Write ("数据库连接出错 ， 请检查连接字串。");
Antwort.end;
}
}
FunktionClosedatabase () {
Adoconn.close;
}
Antwort.Buffer = 1;
Server.ScriptTimeout = 99999;
/////////// 可修改以下参数 ////////////////////////
VarBeginid = 230; // 开始 id
varendid = 500; // 结束 id
////////// ./////////// ./////////////.
vararr, tstr, tid, getData;
varcountid = 0;