<٪@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 ؛