<%@Idioma = "jscript" codePage = "936"%>
<scriptLanguage = vBScriptRunat = "Server">
FunctionBytes2BStr (VIN)
strreturn = ""
Fori = 1tolenb (VIN)
ThisCharcode = ASCB (MIDB (VIN, i, 1))
IfthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
Outro
NextcharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & ch (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
Endif
Próximo
bytes2bstr = strreturn
Função final
FunctionAjaxread (Theurl)
DimxmlHttp
setxmlHttp = CreateObject ("Microsoft.xmlHttp")
Xmlhttp.open "get", Theurl, false
Xmlhttp.setRequestHeader "Tipo de conteúdo", "Texto/html"
XmlHttp.send
dimhtmlstr
htmlstr = bytes2bstr (xmlhttp.Responsebody)
Ajaxread = htmlstr
Função final
</script>
<%
Varadoconn;
functionOpendatabase () {
tentar{
Adoconn = newActivexObject ("adodb.connection");
Adoconn.open ("provedor = microsoft.jet.oledb.4.0; dataSource ="+server.mappath ("getCaiku.mdb"));
} catch (e) {
Adoconn.close;
Resposta.write ("数据库连接出错 , 请检查连接字串。");
Resposta.end;
}
}
functionCloSedAtabase () {
Adoconn.close;
}
Resposta.Buffer = 1;
Server.scriptTimeout = 99999;
/////////// 可修改以下参数 /////////////////
varbeginid = 230; // 开始 Id
varendID = 500; // 结束 Id
/////////////////////////////////////////////////////////////////////////
vararr, tstr, tid, getdata;
VarCountId = 0;