<%@Idioma = "jscript" codePage = "936"%>
<scriptLanguage = vbscriptrunat = "servidor">
Functionbytes2bstr (vin)
strreturn = ""
Fori = 1TolenB (vin)
ThisCharCode = ASCB (MidB (Vin, I, 1))
Ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
Demás
Nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextcharcode)))
i = i+1
Endif
Próximo
bytes2bstr = strreturn
Función final
FunctionAraJaxRead (theURL)
dimxmlhttp
setxmlhttp = createObject ("Microsoft.xmlhttp")
Xmlhttp.open "get", theurl, falso
Xmlhttp.setRequestHeader "Content-type", "Text/Html"
Xmlhttp.send
dimhtmlstr
htmlstr = bytes2bstr (xmlhttp.ResponseBody)
ajaxread = htmlstr
Función final
</script>
<%
VaradoConn;
FunctionOpEdatabase () {
intentar{
Adoconn = newActivexObject ("ADODB.Connection");
Adoconn.open ("Provider = Microsoft.Jet.OLEDB.4.0; DataSource ="+server.mappath ("getCaiku.mdb"));
} catch (e) {
Adoconn.close;
Respuesta.write ("数据库连接出错 ， 请检查连接字串。");
Respuesta.
}
}
functClosedAtabase () {
Adoconn.close;
}
Respuesta.buffer = 1;
Server.scriptTimeOut = 99999;
///////// 可修改以下参数 //////////////
varbeginid = 230; // 开始 ID
varendid = 500; // 结束 ID
/////////////////////////////////////
vararr, tstr, tid, getData;
varcountid = 0;