การคัดลอกรหัสมีดังนี้:
-
Response.exext = 0
Response.expiresabsolute = Now ()-1
Response.addheader "Pragma", "No-Cache"
Response.addheader "Cache-Control", "Private"
Response.CacheControl = "No-cache"
response.buffer = true
Response.Clear
Server.ScriptTimeOut = 999999999
-
'*กำหนดคลาส Musicget
-
classgethttp
PrivateOXML, FSO, ADOS
Privatesubclass_initialize
setoxml = server.createObject ("microsoft.xmlhttp"))
setfso = server.createObject ("Scripting.FilesYstemObject")
setados = server.createObject ("adodb.stream"))
enddub
privateSubclass_terminate
setoxml = ไม่มีอะไร
setfso = ไม่มีอะไร
setados = ไม่มีอะไร
enddub
publicpropertygetVersion
เวอร์ชัน = "ระบบการได้มาแบบไดนามิก v3.0"
ปลายทาง
-
ฟังก์ชั่น '(ส่วนตัว)
'ฟังก์ชั่น: ใช้สตรีมเพื่อเข้ารหัสภาษาจีน
'พารามิเตอร์: vin (อักขระที่จะเข้ารหัส)
-
PrivateFunctionByTestobstr (ร่างกาย)
dimbdat
bdat = ร่างกาย
Ados.type = 1
Ados.Mode = 3
Ados.open
Ados.writeBdat
Ados.Position = 0
Ados.type = 2
Ados.Charset = "GB2312"
bytestobstr = ados.readtext