Foxtable(狐表)用户栏目专家坐堂 → 怎么直接获取当前网页的文本框值


  共有3144人关注过本帖树形打印复制链接

主题:怎么直接获取当前网页的文本框值

帅哥哟,离线,有人找我吗?
z769036165
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
怎么直接获取当前网页的文本框值  发帖心情 Post By:2018/9/29 10:42:00 [显示全部帖子]

With wb.AddButtonGroup("","btg2", False)
          .Add("btnNext", "提交","","test.htm?pg=" & pg + 1 & "& tx=" &  ****  )
End With

我想做提交按钮,直接将当前文本框输入内容通过get方式传递,不知道怎么获取当前输入的文本内容?

 回到顶部
帅哥哟,离线,有人找我吗?
z769036165
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2018/9/29 11:07:00 [显示全部帖子]

另外有没有办法直接用post进行传递呢?

 回到顶部
帅哥哟,离线,有人找我吗?
z769036165
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2018/10/12 22:24:00 [显示全部帖子]

研究了还是有点不太清楚怎么处理这样的方式
With .AddInputCell("ic2")
                .AddLabel("la2","单号",0)
                .AddInput("tx2","test",1)
End With

With wb.AddButtonGroup("","btg2", False)
            .Add("btnPrev", "上一页")
            .Add("btnNext", "下一页","","test2.htm").Attribute= "on click= 'my()'"
End With

function my(){
    var result = submitAjaxFileds('test1.htm','','tx2',false);
    document.getElementById("tx2").value = result;
}

问题出现在红色字体部分,如果有跳转的话,js函数的数据就过不来,只在原页面显示。
[此贴子已经被作者于2018/10/12 22:24:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
z769036165
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2018/10/13 8:17:00 [显示全部帖子]

我是需要点这个button按钮跳转到其他网址,然后将原网址的一个文本框内容直接填入到新网址的一个文本框中。


 回到顶部
帅哥哟,离线,有人找我吗?
z769036165
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2018/10/13 8:21:00 [显示全部帖子]

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui '定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","查询订单")
            With .AddInputCell("ic2")
                .AddLabel("la2","单号",0)
                .AddInput("tx2","test",1)
            End With
        End With
        With wb.AddButtonGroup("","btg2", False)
            .Add("btnPrev", "上一页")
            .Add("btnNext", "下一页","","test2.htm").Attribute= "oncli ck= 'my()'"
        End With
        wb.AppendHTML("<script src='./lib/ces.js'></script>")
        e.WriteString(wb.Build) '生成网页
    Case "test2.htm"
        Dim wb As New weui '定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","test2.htm")
        With wb.AddInputGroup("form1","ipg1","查询订单")
            With .AddInputCell("ic2")
                .AddLabel("la2","单号",0)
                .AddInput("tx2","test",1)
            End With
        End With
        With wb.AddButtonGroup("","btg2", False)
            .Add("btnPrev", "上一页")
            .Add("btnNext", "下一页","","test.htm").Attribute= "on click= 'my()'"
        End With
        wb.AppendHTML("<script src='./lib/ces.js'></script>")
        e.WriteString(wb.Build) '生成网页
    Case "test1.htm"
        e.WriteString(e.Values("tx2") +1)
End Select


像在test.htm中tx2中输入,然后点下一页按钮,跳转到test2.htm中,将test.htm中tx2的内容,填入到test2.htm的txt2中。
[此贴子已经被作者于2018/10/13 8:21:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
z769036165
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2018/10/13 9:15:00 [显示全部帖子]

这个能理解,之前就告诉了这种方法,我看到建议用ajex的方法,就想用ajex的方法,结果就不知道怎么用了?

 回到顶部