以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  点首页，不能返回指定的页面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129347)
--  作者：lihe60
--  发布时间：2018/12/26 19:33:00
--  点首页，不能返回指定的页面
点首页，不能返回指定的页面default.htm

wb = new weui
If e.PostValues("扫描结果")=Nothing
    wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
    wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
    
    wb.AddForm("","form1","scan1")
    With wb.AddInputGroup("form1","ipg1","扫描")
        .AddInput("扫描结果","扫描结果","Text")
    End With
    
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn0", "首页","/default.htm")
        .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""
        .Add("btn1", "确定")
    End With
    wb.AppendHTML("<script src=\'./lib/scan1.js\'></script>") \'引入脚本文件

    e.WriteString(wb.Build)
e.Handled = True \'通知系统异步函数执行完毕,可以关闭信道
End If


图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/12/26 19:39:33编辑过]
--  作者：lihe60
--  发布时间：2018/12/26 19:44:00
--  

[此贴子已经被作者于2018/12/26 19:50:29编辑过]
--  作者：有点甜
--  发布时间：2018/12/26 21:04:00
--  

1、代码改成 .Add("btn0", "首页", "", "/default.htm")

 

2、在你httprequest那里，加入 msgbox(e.path) 看看分别弹出什么，是否正确
--  作者：lihe60
--  发布时间：2018/12/26 21:36:00
--  
    .Add("btn2","首页").attribute=""
      .Add("btn0", "首页","","/default.htm")


这两行代码有什么区别？
--  作者：有点甜
--  发布时间：2018/12/26 22:45:00
--  

认认真真看看

 

http://www.foxtable.com/webhelp/scr/2403.htm

 
--  作者：lihe60
--  发布时间：2018/12/27 9:50:00
--  
如何判断用户是用手机还是电脑打开网页？
--  作者：有点甜
--  发布时间：2018/12/27 9:54:00
--  
以下是引用lihe60在2018/12/27 9:50:00的发言：
如何判断用户是用手机还是电脑打开网页？

 

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=125186&skin=0