<%@Language = "jscript" codePage = "936"%>
<scriptlanguage = vbscriptrunat = "server">
Functionbytes2bstr (VIN)
strreturn = ""
Fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
Еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode)*& h100+cint (nextcharcode))
i = i+1
Эндиф
Следующий
Bytes2bstr = strreturn
Конечная функция
FunctionAjaxRead (TheUrl)
dimxmlhttp
setxmlhttp = createObject ("microsoft.xmlhttp")
Xmlhttp.open "Get", Theurl, false
Xmlhttp.setrequestheader "Content-Type", "Text/html"
Xmlhttp.send
Dimhtmlstr
htmlstr = bytes2bstr (xmlhttp.responsebody)
ajaxread = htmlstr
Конечная функция
</script>
<%
VaradoConn;
functionopendatabase () {
пытаться{
Adoconn = newactactxobject ("adodb.connection");
Adoconn.open ("Provider = microsoft.jet.oledb.4.0; dataSource ="+server.mappath ("getcaiku.mdb"));
} catch (e) {
Adoconn.close;
Response.write ("数据库连接出错 ， 请检查连接字串。");
Response.end;
}
}
functionCloseBase () {
Adoconn.close;
}
Response.buffer = 1;
Server.ScriptTimeout = 99999;
//////////可修改以下参数////////////////
varbeginid = 230; // 开始 ID
varendid = 500; // 结束 ID
////////////////////////////////////////
Варар, TSTR, TID, GetData;
varcountid = 0;