Case "find.htm"
e.Resp
wb.AddForm("","form1","finded.htm")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.AddInput("zrr","设备责任人","text")
.AddInput("IP","IP地址","text")
.AddInput("MAC","MAC地址","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Case "finded.htm"
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)
Return
以前运行正常，今天发现e.PostValues 获取不到中文，尝试加了编码 e.ResponseEncoding = "gb2312"
好像也不管用
加好友 
发短信
Post By：2022/1/4 10:26:00 [只看该作者]
