post的值有中文都是乱码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这个要怎么解决？

老师

我的代码里有加这句代码，我的控件是用代码生成，在手机上显示的是中文，但是提交表单时，在服务器上收到的postvalue就是乱码！

试了几天都是乱码。老师帮我看一下：代码如下：

try

If e.host = "127.0.0.1" Then

Dim fl As String

fl = "D:\web\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.Resp

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

Dim sb As New StringBuilder

sb.AppendLine("<!doctype html>")

sb.AppendLine("<html>")

sb.appendLine("<head>")

sb.AppendLine("<meta charset='gb2312'>")

sb.AppendLine("<meta name='viewport' c>")

sb.appendLine("</head>")

sb.AppendLine("<body>")

Dim wb As New weui

e.Resp

Select Case e.path

Case "test.htm"

Functions.Execute("test",e)

End Select

sb.AppendLine("</body>")

sb.AppendLine("</html>")

End If

catch ex As exception

End try

test 函数就是帮助里面的如下：

Dim e As RequestEventArgs = args(0)

e.Resp

If e.PostValues.Count = 0 Then

Dim sb As New StringBuilder

sb.AppendLine("<form action='test.htm?id=1&page=10' enctype='multipart/form-data' method='post' id='form1' name='form1'>")

sb.AppendLine("产品: <input name='cp' id='cp'><br/><br/>")

sb.AppendLine("客户: <input name='kh' id='kh'><br/><br/>")

sb.AppendLine("雇员: <input name='gy' id='gy'><br/><br/>")

sb.AppendLine("单价: <input type='number' name='dj' id='dj'><br/><br/>")

sb.AppendLine("折扣: <input type='number' name='zk' id='zk' min='0' max='0.15' step='0.01'><br/><br/>")

sb.AppendLine("数量: <input type='number' name='sl' id='sl'><br/><br/>")

sb.AppendLine("日期: <input type='date' name='rq' id='rq'><br/><br/>")

sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")

sb.AppendLine("</form>")

e.WriteString(sb.ToString)

Else

Dim sb As New StringBuilder

sb.AppendLine("通过GET方式提交的数据:<br/><br/>")

For Each key As String In e.GetValues.Keys

sb.AppendLine(key & ":" & e.GetValues(key) & "<br/>")

sb.AppendLine("<br/><br/>通过POST方式提交的数据:<br/><br/>")

For Each key As String In e.PostValues.Keys

sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")

e.WriteString(sb.ToString)

End If

只要有中文就是乱码？不管是get 还是Post

主题：post的值有中文都是乱码