VB下汉字字符串算校验位问题？

我试过MID函数，
例如：
response.write(mid("中华英雄123hhh",1,1))response.write(mid("中华英雄123hhh",2,1))
可打出来的都是"中"

解决方案 »

  1.   

    如果非要使用asc的话，请用下面的函数
    1、StrConv
    2、Midb
    3、AscB
    4、LenB
    具体使用方法如下
    tmpstr = "中华英雄123hhh"
    tmpstr = StrConv(tmpstr, vbFromUnicode)
    For i = 1 To LenB(tmpstr)
        tmpstr2=tmpstr2 & ";" & AscB(MidB(tmpstr, i, 1))
    Next
    记住要用带B的相关函数，因为B是字节的意思
    还有，如果你用ASP写程序是很有这些函数的