Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于get方式传递中文，中国页面后显示乱码


  共有2420人关注过本帖树形打印复制链接

主题：关于get方式传递中文，中国页面后显示乱码
帅哥哟，离线，有人找我吗？
有点色
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/5 15:01:00 [显示全部帖子]

 设置编码格式，加上代码

 

e.ResponseEncoding = "gb2312"

[此贴子已经被作者于2017/5/5 15:00:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/5 15:37:00 [显示全部帖子]

 代码 e.ResponseEncoding = "gb2312" 写到你3楼代码那里
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/5 16:25:00 [显示全部帖子]

写在这里

 

e.ResponseEncoding = "gb2312"  '这里

Select Case e.path    
    Case shfh
        e.ResponseEncoding = "gb2312" '或者这里
        If e.GetValues.Count > 0 Then
            Dim wb As New WeUI
            wb.Title = "订单编号:" & e.GetValues("id") & ""
            wb.InsertHTML("<h3 align='left' style='margin-top:5px'>客户名称:" & e.GetValues("cid") & "</h3>")
            e.WriteString(wb.Build)
        End If       
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/5 17:18:00 [显示全部帖子]

bug 如果，你是在浏览器直接输入地址访问的话，需要转码才行

 

写个函数

 

Public Function ConvertCoding(str As String) As String
Dim bytes() As Byte
Dim utf As Encoding = Encoding.default
Dim def As Encoding = Encoding.utf8
Bytes = def.GetBytes(str)
Bytes = Encoding.Convert(def, utf, Bytes)
str = def.GetString(Bytes)
Return str
End Function

 

在你代码那里调用

 

            wb.InsertHTML("<h3 align='left' style='margin-top:5px'>客户名称:" & ConvertCoding(e.GetValues("cid")) & "</h3>")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询