以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  直接输入网址查询会加载全部内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170614)

--  作者:qazlinle6
--  发布时间:2021/8/1 17:47:00
--  直接输入网址查询会加载全部内容
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (3).txt





直接用127.0.0.1:32177/工资查询内容.htm查询会加载全部内容,有什么办法解决不

--  作者:有点蓝
--  发布时间:2021/8/1 20:34:00
--  
直接提交即可
 With wb.AddButtonGroup("form1","btg1",True)  
   \' submit
.Add("btn1", "确定","submit")
            .Add("btn2","返回", "","default.htm") \'退出登录
        End With

多看几遍理解一下:http://www.foxtable.com/mobilehelp/topics/0113.htm,如果还是看不懂,就网上搜索学习理解
在网址里附加参数的就是get方式,如:accept.htm?id=1&page=10,使用e.getvalues获取值
在网站按钮里使用submit模式直接提交的,就是post方式,不需要在网址里添加参数,使用e.PostValues取值

--  作者:qazlinle6
--  发布时间:2021/8/1 22:11:00
--  
可以帮我弄一下吗,我弄了一天都没有弄好
--  作者:有点蓝
--  发布时间:2021/8/1 22:19:00
--  
直接提交即可
 With wb.AddButtonGroup("form1","btg1",True)  
   \' submit
.Add("btn1", "确定","submit")
            .Add("btn2","返回", "","default.htm") \'退出登录
        End With

--  作者:qazlinle6
--  发布时间:2021/8/1 22:46:00
--  
直接提交是也可以查,可是如果单独用这个网址查就会查到全部的内容
--  作者:有点蓝
--  发布时间:2021/8/1 23:09:00
--  
第二个页面是依赖第一个页面的条件的,不能直接打开第二个页面,不然查询条件从哪来?
--  作者:qazlinle6
--  发布时间:2021/8/1 23:27:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:svid_20210801_231353_1.zip


你看一下
[此贴子已经被作者于2021/8/1 23:27:24编辑过]

--  作者:有点蓝
--  发布时间:2021/8/2 8:56:00
--  
请上传实例说明
--  作者:qazlinle6
--  发布时间:2021/8/2 11:36:00
--  

wb.AddForm("","form1","工资查询内容.htm")
        
        With wb.AddInputGroup("form1","ipg1","数据筛选")
            Dim bh As String = e.Cookies("username")
            Dim bh2 As String = "[" & e.Cookies("username") & "]"
            \'Group
            Dim ddr As DataRow= DataTables("Users").SQLFind("Name=\'"& e.Cookies("username")  &"\' " )
            If ddr IsNot Nothing AndAlso ddr("Group") = "管理"
                
                Dim sl2 As String = "|" & DataTables("Users").SQLGetComboListString("Name") & "|"
                sl2 = sl2.replace(bh,bh2).TrimEnd("|")
                .AddSelect("product","用户姓名",sl2 )
            Else
                .AddSelect("product","用户姓名",bh2 )
            End If
            
            Dim sl3 As String = "" & DataTables("工资明细表").SQLGetComboListString("年") & ""
            .AddSelect("product1","年",sl3 )
            
            Dim sl4 As String = "" & DataTables("工资明细表").SQLGetComboListString("月") & ""
            .AddSelect("product2","月",sl4 )
        End With


改成下面这样的


sb.AppendLine("<form enctype=\'multipart/form-data\' action=\'工资查询内容.htm?id=1&page=10\' 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=\'kh1\' id=\'kh\'><br/><br/>")
sb.AppendLine("<input type=\'submit\' name=\'sumbit\' id=\'sumbit\' value=\'提交\'>")
        sb.AppendLine("<input type=\'reset\' name=\'reset\' id=\'reset\' value=\'重置\'>")
         sb.AppendLine("</form>")


--  作者:有点蓝
--  发布时间:2021/8/2 11:51:00
--  
没看懂9楼是什么意思