<%@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)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
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
EndFunction
</script>
<%
varADOConn;
functionOpenDatabase(){
try{
ADOConn=newActiveXObject("ADODB.Connection");
ADOConn.Open("Provider=Microsoft.Jet.Oledb.4.0;DataSource="+Server.MapPath("getcaiku.mdb"));
}catch(e){
ADOConn.close;
Response.Write("数据库连接出错，请检查连接字串。");
Response.End;
}
}
functionCloseDatabase(){
ADOConn.close;
}
Response.Buffer=1;
Server.ScriptTimeout=99999;
//////////可修改以下参数////////////////
varbeginid=230;//开始ID
varendid=500;//结束ID
////////////////////////////////////////
vararr,tstr,tid,getdata;
varcountid=0;