以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  接收表单数据部分实现不了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131821)

--  作者:nyy
--  发布时间:2019/3/7 10:11:00
--  接收表单数据部分实现不了
接收表单数据按帮助文档,直接将HttpRequest事件代码设置为以下内容,但是http://127.0.0.1/网页什么都没有显示
Select Case e.Path
    Case "input.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<form action=\'accept.htm\' 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 type=\'number\' name=\'dj\' id=\'dj\'><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=\'password\' name=\'mm\' id=\'mm\'><br/><br/>")
        sb.AppendLine(
"
支付方式: <br/>")
        sb.AppendLine(
"<input type=\'radio\' name=\'fs\' id=\'fs1\' value = \'
支付宝\' checked>支付宝"\'注意同一组的radio,name属性相同,id属性不同
        sb.AppendLine(
"<input type=\'radio\' name=\'fs\' id=\'fs2\' value = \'
微信\'>微信")
        sb.AppendLine(
"<input type=\'radio\' name=\'fs\' id=\'fs3\' value = \'
微信\'>网银<br/><br/>")
        sb.AppendLine(
"
会员: <input type=\'checkbox\' name=\'hy\' id=\'hy\'><br/><br/>")
        sb.AppendLine(
"<input type=\'submit\' name=\'sumbit\' id=\'sumbit\' value=\'
提交\'>")
        sb.AppendLine(
"<input type=\'reset\' name=\'reset\' id=\'reset\' value=\'
重置\'>")
        sb.AppendLine(
"<input type=\'button\' name=\'foxtble\' id=\'foxtable\' value=\'Foxtable
主页\' >")
        sb.AppendLine("</form>")
        e.WriteString(sb.ToString)
    Case "accept.htm"
        Dim sb As New StringBuilder
        sb.AppendLine(
"接收到的数据有:<br/><br/>")
        For Each key As String In e.Values.Keys
            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)

End
 Select

--  作者:有点甜
--  发布时间:2019/3/7 11:27:00
--  

输入地址

 

http://127.0.0.1/input.htm