رمز برنامج التجميع

<٪@language = "jscript" codepage = "936" ٪>

<scriptLanguage = vbscriptrunat = "server">

functionBytes2bst (VIN)

streturn = ""

fori = 1tolenb (vin)

thischarcode = ASCB (MIDB (VIN ، I ، 1))

IfThischarcode <& h80then

Streturn = Streturn & CHR (thischarcode)

آخر

NextCharCode = ASCB (MIDB (VIN ، I+1،1))

Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))

i = i+1

Endif

التالي

bytes2bstr = streturn

الوظيفية

FunctionajaxRead (theurl)

DIMXMLHTTP

setXMLHTTP = createObject ("microsoft.xmlhttp")

xmlhttp.open "get" ، theurl ، false

XMLHTTP.SetRequestHeader "نوع المحتوى" ، "Text/HTML"

XMLHTTP.SEND

Dimhtmlstr

HTMLSTR = BYTES2BSTR (XMLHTTP.RESPONSEBODE)

ajaxread = htmlstr

الوظيفية

</script>

<٪

فارادوكون

FunctionOpendatabase () {

يحاول{

adoconn = newactivexobject ("adodb.connection") ؛

adoconn.open ("Provider = microsoft.jet.oledb.4.0 ؛ datasource ="+server.mappath ("getCaiku.MDB")) ؛

} catch (e) {

adoconn.close ؛

استجابة. write ("数据库连接出错 ， 请检查连接字串。") ؛

الرد.

}

}

functionClosedAtabase () {

adoconn.close ؛

}

استجابة. buffer = 1 ؛

server.scriptTimeout = 99999 ؛

////////// 可修改以下参数 ////////////////////

varbeginid = 230 ؛ // 开始 id

varendid = 500 ؛ // 结束 id

//////////////////////////////////////////////

فارار ، tstr ، tid ، getData ؛

varcountid = 0 ؛