asp base64编码中文(2)

 
    End With
 
    Set xml_dom = Nothing
 
End Function
 
 
 
Function Gb2312_Stream(sString)
 
 
 
    Dim dr
 
    Set dr = CreateObject("ADODB.Stream")
 
    With dr
 
        .Mode = 3
 
        .Type = 2
 
        .open
 
        .Charset = "gb2312"
 
        .WriteText sString
 
        .position = 0
 
        .Type = 1
 
        Gb2312_Stream = .Read
 
        .Close
 
    End With
 
    Set dr = Nothing www.2cto.com
 
End Function
 
 
 
Function Stream_GB2312(sStream)
 
    Dim dr
 
    Set dr = CreateObject("ADODB.Stream")
 
    With dr
 
        .Mode = 3
 
        .Type = 1
 
        .open
 
        .Write sStream
 
        .position = 0
 
        .Type = 2
 
        .Charset = "gb2312"
 
        Stream_GB2312 = .ReadText
 
        .Close
 
    End With
 
    Set dr = Nothing
 
End Function
 
%>