推荐.NET教程： ASP.NET C# 开发环境 Ajax教程 控件开发 统计报表 数据库 Web服务 安装部署 CommunityServer NHibernate DataGrid/GridView 实用代码 VS2005
示例源码 MVC/三层 SqlHelper 入门源码 开源 CMS Ajax/Atlas C#.net 毕业设计 源码 经典代码 商业 本站作品 持久层 随书源码 WebService 英文/汉化 Asp.net2.0

阿牛·乐园

每天进步一点点
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  80 随笔 :: 14 文章 :: 389 评论 :: 13 引用

2006年4月21日 #

[原创]用XMLHttp BinaryWrite,Post GB2312编码的字串
      /*
    作者:阿牛(牛昆亮) QQ:273352165 MSN:niukl@hotmail.com
    
    声明:可以免费使用,请您保留此信息
        如果您有什么改过,记得告诉我!
    */
         function PostDataToUrl(strUrl,strContent)
        set xmlhttp = CreateObject("MSXML2.XMLhttp")
        xmlhttp.open "POST",strUrl,false
        xmlhttp.setRequestHeader "CONTENT-TYPE","text/xml;charset=gb2312;"
        vout = Str2Bytes(strcontent,"gb2312")
        xmlhttp.setRequestHeader "Content-Length",len(vout)
        xmlhttp.send(vout)
        strxml = xmlhttp.responseText
        set xmlhttp = nothing
        PostDataToUrl = strxml
    end function
    
    Function Str2Bytes(str,charset)
        Dim ms,strRet
        Set ms = CreateObject("ADODB.Stream")    '建立流对象
        ms.Type = 2             ' Text
        ms.Charset = charset    '设置流对象的编码方式为 charset
        ms.Open                    
        ms.WriteText str            '把str写入流对象中
        
        ms.Position = 0         '设置流对象的起始位置是0 以设置Charset属性
        ms.Type = 1              'Binary

        vout = ms.Read(ms.Size)    '取字符流
        ms.close                '关闭流对象
        Set ms = nothing
        Str2Bytes = vout
    End Function

posted @ 2006-04-21 19:14 阿牛 阅读(388) | 评论 (0) | 编辑

利用ADODB.Stream实现 Bytes到String的指定编码的转换
''' Byte流到Char流的转换函数
Function Bytes2BSTR(vin)
    Bytes2BSTR = Bytes2Str(vin,"utf-8")
End Function

    Function Bytes2Str(vin,charset)
        Dim ms,strRet
        Set ms = Server.CreateObject("ADODB.Stream")    '建立流对象
        ms.Type = 1             ' Binary
        ms.Open                    
        ms.Write vin            '把vin写入流对象中
        
        ms.Position = 0         '设置流对象的起始位置是0 以设置Charset属性
        ms.Type = 2              'Text
        ms.Charset = charset    '设置流对象的编码方式为 charset

        strRet = ms.ReadText    '取字符流
        ms.close                '关闭流对象
        Set ms = nothing
        Bytes2Str = strRet
    End Function
    Function Str2Bytes(str,charset)
        Dim ms,strRet
        Set ms = CreateObject("ADODB.Stream")    '建立流对象
        ms.Type = 2             ' Text
        ms.Charset = charset    '设置流对象的编码方式为 charset
        ms.Open                    
        ms.WriteText str            '把str写入流对象中
        
        ms.Position = 0         '设置流对象的起始位置是0 以设置Charset属性
        ms.Type = 1              'Binary

        vout = ms.Read(ms.Size)    '取字符流
        ms.close                '关闭流对象
        Set ms = nothing
        Str2Bytes = vout
    End Function
posted @ 2006-04-21 16:34 阿牛 阅读(326) | 评论 (0) | 编辑