Die Codekopie lautet wie folgt:
<%
Response.expires = 0
Response.expiresabsolute = jetzt ()-1
Response.addHeader "Pragma", "No-Cache"
Response.addHeader "Cache-Control", "privat"
Response.cachecontrol = "no-cache"
Response.buffer = true
Antwort.Clear
Server.ScriptTimeout = 999999999
'******************************************
'*Definieren Sie die Musiktklasse
'******************************************
ClassGethttp
Privateoxml, fso, ados
PrivateSubclass_initialize
Setoxml = server.createObject ("microsoft.xmlhttp"))
Setfso = server.createObject ("scripting.filesystemObject")
SetAdos = server.createObject ("adodb.stream")
Ende
PrivateSubclass_terate
Setoxml = nichts
Setfso = nichts
SetAdos = nichts
Ende
PublicPropertyGetversion
Version = "Dynamisches Erfassungssystem v3.0"
Endproperschaft
'******************************************
'Funktion (privat)
'Funktion: Verwenden Sie Streams, um Chinesisch zu codieren
'Parameter: Vin (Zeichen zu codieren)
'******************************************
PrivateFunctionByTestObstr (Körper)
Dimbdat
Bdat = Körper
Ados.type = 1
Ados.mode = 3
Ados.open
Ados.writebdat
Ados.position = 0
Ados.type = 2
Ados.charset = "gb2312"
ByTestObstr = ados.readText