<%@language = "jscript"CodePage = "936"%>
<scriptLanguage = vbscriptrunat = "Server">
functionbytes2bstr (vin)
strreturn = ""
fori = 1tolenb (vin)
thischarCode = ASCB (MIDB (Vin, I, 1))
ifthischarcode <& h80then
strreturn = strreturn & chr (thischarcode)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
다음
바이트 2bstr = 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
최종 기능 장애
</스크립트>
<%
varadoconn;
functionopEndatabase () {
노력하다{
adoconn = newActivexObject ( "adodb.connection");
adoconn.open ( "제공자 = microsoft.jet.oledb.4.0; dataSource ="+server.mappath ( "getcaiku.mdb"));
} catch (e) {
adoconn.close;
응답 .Write ( "ite ite, 请检查连接字串。");
응답; 엔드;
}
}
functionclosedatabase () {
adoconn.close;
}
응답 .buffer = 1;
Server.ScriptTimeout = 99999;
//////// 可修改以下参数 ////////////////
varbeginid = 230; // 开始 id
varendid = 500; // 结束 id
//////////////////////////////////////
vararr, tstr, tid, getdata;
varcountid = 0;