存档

  • Unicode编解码函数

    在用XMLHTTP进行远程数据传输的时候，如果涉及到不同编码，比如从oblog向我的博客发送一个trackback ping，数据中包含的中文字符就会出现乱码。 为了解决这个问题，可以在发送之前，把所有的数据中的中文都进行Unicode编码然后再传输。这样就可以顺利解决问题。 但是有时候还会涉及到另外一个问题，就是到了目标程序后，要进行数据库检索，发送过来的中文字符串都已经编码为类似 &#32462 这样的Unicode编码，而数据库中的数据虽然以unicode编码保存，但是却还是中文字符，并没有表示为 &#32462 这样的形式。这就导致检索失败。 为了解决这样的问题，我只好采取这样的办法：发送端对中文字符串进行Unicode编码，接受端接收后进行Unicode解码，还原为中文字符。 这两个函数如下： '**************************************************'函数名：AnsiToUnicode'作  用：转换为 Unicode 编码'参  数：str —- 要转换的字符'返回值：转换后的字符'Author：nt2003'**************************************************Public Function AnsiToUnicode(ByVal str)    Dim i, j, c, i1, i2, u, fs, f, p    AnsiToUnicode = ""    p = ""    For i = 1 To Len(str)        c = Mid(str, i, 1)        j = AscW(c)        If j < 0 Then            [...]

    2 条评论
    2006年3月10日 | 归档于 所谓技术
2006年3月10日 的存档