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

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/>")

    Next

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

    For Each key As String In e.PostValues.Keys

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

    Next

    e.WriteString(sb.ToString)

End If