以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  XXXXX移动端，2个发布后项目，放在同一台服务器，访问网页的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104288)
--  作者：zhangjian222200
--  发布时间：2017/7/26 19:25:00
--  XXXXX移动端，2个发布后项目，放在同一台服务器，访问网页的问题
假设发布后项目1情况：
HttpServer.Prefixes.Add("http://127.0.0.1:80/")
HttpServer.Start()
有个网页：1.htm，上面有个按钮：
With wb.AddButtonGroup("","btg1",False)
       .Add("btn1", "免费升级", "submit","/2.htm") \'如果希望点击这个按钮，进入2.htm，应该怎么写代码？
end with

假设发布后项目2情况：
HttpServer.Prefixes.Add("http://127.0.0.1:90/")
HttpServer.Start()
有个网页：2.htm
[此贴子已经被作者于2017/8/26 17:26:27编辑过]
--  作者：有点甜
--  发布时间：2017/7/26 19:41:00
--  

定义表单的时候定义

 

wb.AddForm("","form1", "http://127.0.0.1:90/2.htm")

 

button按钮，这样写

 

With wb.AddButtonGroup("","btg1",False)
       .Add("btn1", "免费升级", "submit")
end with
--  作者：zhangjian222200
--  发布时间：2017/7/26 20:03:00
--  
回2楼，定义表单的时候，可以附带一些信息吗？

以下粉色部分是变量
wb.AddForm("","form1", "http://127.0.0.1:90/2.htm?hybh=\'" & huiybh(i) & "\'&fqbh=\'" & bianh(i) & "\'&fqsj=" & faqsj(i)")
--  作者：有点甜
--  发布时间：2017/7/26 20:14:00
--  

1、你的form1不是可以加入一些文本框存放信息？

 

http://www.foxtable.com/mobilehelp/scr/0127.htm

 

2、你直接加在地址后面，也可以。

[此贴子已经被作者于2017/7/26 20:14:05编辑过]
--  作者：zhangjian222200
--  发布时间：2017/7/26 20:33:00
--  
楼上1说的
使用postvalue我已经很熟悉了，看了移动文档，在1楼的项目1、2之间，感觉传递form1的数据到项目2的网页，因为form1将：http://127.0.0.1:90/2.htm设置为接收数据的网页，所以，应该没问题的

新问题：如果点击项目1中btn1按钮，想跳转到项目2某个网页，下面这样可以吗？不需要将数据post发到项目2的网页，而是用GetValues方法
With wb.AddButtonGroup("","btg1",False)
       .Add("btn1", "免费升级", "submit","http://127.0.0.1:90/2.htm?hybh=\'" & huiybh(i) & "\'&fqbh=\'" & bianh(i) & "\'&fqsj=" & faqsj(i)") 
end with
[此贴子已经被作者于2017/7/26 20:38:07编辑过]
--  作者：有点甜
--  发布时间：2017/7/26 21:18:00
--  

直接这样

 

With wb.AddButtonGroup("","btg1",False)
       .Add("btn1", "免费升级", "","http://127.0.0.1:90/2.htm?hybh=" & huiybh(i) & "&fqbh=" & bianh(i) & "&fqsj=" & faqsj(i))
end with
--  作者：zhangjian222200
--  发布时间：2018/1/23 12:09:00
--  
下面代码增加粉色部分后，无法访问shengfen.htm了，之前是好的

Dim e As RequestEventArgs = args(0) 
Dim wb As New weui
Dim duankouhao As String = "90"

With wb.AddTabBar("", "tb1",0)                            \'使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
    .AddButton("bt2","城市","./images/b.png","http://127.0.0.1:" & duankouhao & "/shengfen.htm?qiehcs=1")
End With

e.WriteString(wb.Build) \'生成网页

下面是开启服务器代码：
HttpServer.Prefixes.Add("http://127.0.0.1/:90")
HttpServer.Prefixes.Add("http://*/")
HttpServer.Start()

httprequest跳转代码没变
[此贴子已经被作者于2018/1/23 12:13:16编辑过]
--  作者：有点甜
--  发布时间：2018/1/23 12:18:00
--  

90端口要这样加

 

HttpServer.Prefixes.Add("http://127.0.0.1:90/")

 
--  作者：zhangjian222200
--  发布时间：2018/1/23 12:29:00
--  
可以访问了

如果1台服务器上，放2个同样的项目，一个85端口，一个90端口，是不是每次跳转页面时，必须指定端口号？像下面这样？


Dim duankouhao As String = "90"
With wb.AddTabBar("", "tb1",0)                            \'使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
    .AddButton("bt2","城市","./images/b.png","http://127.0.0.1:" & duankouhao & "/shengfen.htm?qiehcs=1")
End With
[此贴子已经被作者于2018/1/23 12:31:16编辑过]
--  作者：有点甜
--  发布时间：2018/1/23 12:32:00
--  

如果跳到别的端口，需要指明端口号。

 

如果在自己的端口跳转，只需要填写相对路径。