Um código de programa de coleção

<%@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;