以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [已解决]网址中有中文，怎么转成utf-8编码格式？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63786)
--  作者：浙江仔
--  发布时间：2015/1/28 18:22:00
--  [已解决]网址中有中文，怎么转成utf-8编码格式？
如网址：
http://172.21.170.241/dqaj/app/searchent.action?entName=德品
使用自动转码浏览器时，自动专成：
http://172.21.170.241/dqaj/app/searchent.action?entName=%E5%BE%B7%E5%93%81

ie浏览器和狐表使用时：
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
    XMLH.open("GET", "http://172.21.170.241/dqaj/app/searchent.action?entName=德品", True)   \'获得实时信息
    XMLH.send(Nothing)
    Do While XMLH.readyState <> 4
        Application.DoEvents
    Loop   


不支持自动转码
所以我想用狐表改怎么转换中文？？

希望前辈们帮帮小弟！

谢谢
[此贴子已经被作者于2015-1-28 19:05:42编辑过]
--  作者：浙江仔
--  发布时间：2015/1/28 18:52:00
--  

网上找了个代码，做成了自定义函数：

Dim szInput As String = Args(0)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
    szRet = szInput
    Exit Function
End If
For x = 1 To Len(szInput)
    wch = Mid(szInput, x, 1)
    nAsc = AscW(wch)
    If nAsc < 0 Then nAsc = nAsc + 65536
    If (nAsc And &HFF80) = 0 Then
        szRet = szRet & wch
    Else
        If (nAsc And &HF000) = 0 Then
            uch = "%" & Hex(((nAsc \\ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
            szRet = szRet & uch
        Else
            uch = "%" & Hex((nAsc \\ 2 ^ 12) Or &HE0) & "%" & _
            Hex((nAsc \\ 2 ^ 6) And &H3F Or &H80) & "%" & _
            Hex(nAsc And &H3F Or &H80)
            szRet = szRet & uch
        End If
    End If
Next
Return  szRet

 

然后

Dim name1 As String=e.Form.controls("TextBox2").text
e.Form.controls("TextBox3").text=Functions.Execute("utf8",name1)

搞定
--  作者：有点甜
--  发布时间：2015/1/28 19:13:00
--  
第一步,在外部引用里输入 System.Web.dll 点击添加,然后点击确定

然后使用如下代码,你可以放到命令窗口测试

Dim str As String =  "字符串"
Dim jm As String = System.Web.HttpUtility.UrlEncode(str)
output.show("加密后:" & jm)