感谢TONYDENG哥哥，你的方法是可行的，我也测试成功了。。
但是另外一个朋友给了我另一种方法，
我觉得比较简单一些，拿出来给大家分享。
oJs = Createobject("MSScriptControl.ScriptControl")
oJs.Language = "javascript"
oJS.AddCode('')
？oJS.Eval("encodeURI(['中国'])")

那是用外挂的脚本代码替你做了同样的事

嗯，我也送一个给楼主：

*---------------------
* 把十进制数值转换为十六进制字符
* 参数：tnInt -- 十进制数值
*---------------------
FUNCTION Int2Hex(tnInt AS Integer) AS Character
    LOCAL nMod AS Integer
    LOCAL cHex AS Character

    *-----------------------
    * 若参数不是大于等于零的数值型数据则返回空字符串
    *-----------------------
    IF (VARTYPE(tnInt) != "N") .OR. (tnInt < 0)
        RETURN ""
    ENDIF 

    *-----------------------
    * 只处理整数部分
    *-----------------------
    tnInt = INT(tnInt)
    IF tnInt == 0
        RETURN "00"
    ENDIF 

    cHex = ""
    DO WHILE INT(tnInt) > 0
        tnInt = INT(tnInt)
        nMod = MOD(tnInt,16)
        cHex = IIF(nMod <= 9, ALLTRIM(STR(nMod)), CHR(nMod+55)) + cHex
        tnInt = tnInt / 16
    ENDDO
    IF MOD(LEN(cHex),2) == 1
        cHex = "0" + cHex
    ENDIF 

    RETURN cHex

ENDFUNC

感谢你们！