รหัสโปรแกรมคอลเลกชัน

<%@language = "JScript" codePage = "936"%>

<scriptLanguage = vbscriptrunat = "เซิร์ฟเวอร์">

FunctionByTes2BSTR (VIN)

strreturn = ""

fori = 1tolenb (vin)

thischArcode = ascb (midb (vin, i, 1))

ifthisCharcode <& h80 จากนั้น

strreturn = Strreturn & Chr (ThisCharcode)

อื่น

NextCharcode = ASCB (MIDB (VIN, I+1,1)))

strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))

i = i+1

endif

ต่อไป

bytes2bstr = streturn

endfunction

functionajaxread (Theurl)

dimxmlhttp

setxmlhttp = createObject ("microsoft.xmlhttp"))

xmlhttp.open "get", theurl, false

xmlhttp.setrequestheader "เนื้อหาประเภท", "ข้อความ/html"

xmlhttp.send

dimhtmlstr

htmlstr = bytes2bstr (xmlhttp.responsebody)

ajaxread = htmlstr

endfunction

</script>

-

varadoconn;

functionOpendatabase () {

พยายาม{

adoconn = newActivexObject ("AdoDB.Connection");

adoconn.open ("ผู้ให้บริการ = 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;