에서 사용할 수 있습니다!
<%
함수 base64Encode(sString)
sString = 또는 IsNull(sString)인 경우
base64인코드 =
종료 기능
종료 조건
희미한 xml_dom, 노드
xml_dom = CreateObject(Microsoft.XMLDOM) 설정
xml_dom 사용
.loadXML(<?xml version='1.0' ?> <root/>)
노드 설정 = xml_dom.createElement(MyText)
노드 포함
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .Text
끝
xml_dom.documentElement.appendChild 노드
끝
xml_dom = 없음 설정
기능 종료
함수 base64uncode(sString)
sString = 또는 IsNull(sString)인 경우
base64uncode =
종료 기능
종료 조건
희미한 xml_dom, 노드
xml_dom = CreateObject(Microsoft.XMLDOM) 설정
xml_dom 사용
.loadXML(<?xml version='1.0' ?> <root/>)
노드 설정 = xml_dom.createElement(MyText)
노드 포함
.dataType = bin.base64
.텍스트 = sString
base64uncode = Stream_GB2312(.nodeTypedValue)
끝
xml_dom.documentElement.appendChild 노드
끝
xml_dom = 없음 설정
기능 종료
함수 Gb2312_Stream(sString)
희미한 박사
dr = CreateObject(ADODB.Stream) 설정
박사와 함께
.모드 = 3
.유형 = 2
.열려 있는
.Charset = gb2312
.WriteText sString
.위치 = 0
.유형 = 1
Gb2312_Stream = .Read
.닫다
끝
dr = 없음으로 설정 www.vevb.com
기능 종료
함수 Stream_GB2312(sStream)
희미한 박사
dr = CreateObject(ADODB.Stream) 설정
박사와 함께
.모드 = 3
.유형 = 1
.열려 있는
.sStream 쓰기
.위치 = 0
.유형 = 2
.Charset = gb2312
Stream_GB2312 = .ReadText
.닫다
끝
dr = 없음으로 설정
기능 종료
%>