코드 사본은 다음과 같습니다.
<%
응답 .expires = 0
응답 .expiresabsolute = now () -1
Response.addheader "Pragma", "No-Cache"
response.addheader "Cache-Control", "Private"
응답 .cachecontrol = "no-cache"
응답 .buffer = true
응답
Server.ScriptTimeout = 99999999
'*************************************************************************************************************************** 누군가
'*MusicGet 클래스를 정의하십시오
'*************************************************************************************************************************** 누군가
Classgethttp
privateoxml, fso, ados
privatesubclass_initialize
setoxml = server.createobject ( "microsoft.xmlhttp")
setfso = server.createobject ( "scripting.filesystemobject")
setados = server.createobject ( "adodb.stream")
Endsub
privatesubclass_terminate
setoxml = 아무것도
setfso = 아무것도
setados = 아무것도
Endsub
공공 사전 공급자
버전 = "동적 획득 시스템 v3.0"
엔드 프로페티
'*************************************************************************************************************************** 누군가
'기능 (개인)
'기능 : 스트림을 사용하여 중국어를 인코딩합니다
'매개 변수 : Vin (인코딩 될 문자)
'*************************************************************************************************************************** 누군가
PrivateFunctionByTestObstr (Body)
Dimbdat
bdat = 몸
ados.type = 1
ados.mode = 3
ados.open
ados.writebdat
ados.position = 0
ados.type = 2
ados.charset = "gb2312"
bytestobstr = ados.readtext