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

阿牛·乐园

每天进步一点点
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  71 随笔 :: 14 文章 :: 378 评论 :: 13 引用
[原创]用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 on 2006-04-21 19:14 阿牛 阅读(368) 评论(0)  编辑 收藏 所属分类: DHTML,JS 、其它语言

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

闪存

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      


相关链接:

最新IT新闻:
Google向Wine贡献更多代码
苹果创始人Steve Wozniak称iPod将被淘汰
福布斯：硅谷日子将更难过 谁下一个倒下
微软老矣 尚能赚否？
YouTube探索新赢利模式 开始售音乐、视频游戏