Foxtable(狐表)用户栏目专家坐堂 → [求助]两个不同网址之间如何传参


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

主题:[求助]两个不同网址之间如何传参

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


加好友 发短信
等级:幼狐 帖子:140 积分:1463 威望:0 精华:0 注册:2017/9/3 22:32:00
[求助]两个不同网址之间如何传参  发帖心情 Post By:2022/8/6 11:09:00 [只看该作者]

老师您好,我有两个程序,分别使用两个不同的网址,需要将webbjbz=331从192.168.10.66传递到192.168.10.88

其中:webbjbz 是全局变量

在10.66的网页中写入如下代码:
wb.InsertHTML("<meta http-equiv='Refr esh' co ntent='0; ur l=http: //192.168.10.66 ?we bbjbz=331'>")

看似webbjbz=331 已经传过去了,但同时页打了10.88的网页,我的目的是只传递参数,不打开网页,如何做?

[此贴子已经被作者于2022/8/6 11:18:49编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109760 积分:558516 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/6 11:49:00 [只看该作者]

要用js,ajax:http://www.foxtable.com/mobilehelp/topics/0108.htm

sendAjaxText("","http: //192.168.10.66 ?we bbjbz=331","",false);

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


加好友 发短信
等级:幼狐 帖子:140 积分:1463 威望:0 精华:0 注册:2017/9/3 22:32:00
  发帖心情 Post By:2022/8/11 16:37:00 [只看该作者]

js代码:

function fasong(){

    sendAjaxText("","http: //192.168.10.88?webbjbz=331","",false);
  }

 

 

在页码中:

case dtc.htm

Dim wb As New weui

wb.AppendHTML("<script src='./lib/valid.js'></script>")  ’调用js文件

wb.AppendHTML("<script>fasong()</script>")                ’执行fasong()函数

 

我的目的是,在打开网页时将webbjbz=331 传到192.168.10.88,还不打开10.88的网页,无感知传递。

这样写没有反应,问题出在什么地方,麻烦老师给看一下。


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109760 积分:558516 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/11 17:06:00 [只看该作者]

sendAjaxText("","http: //192.168.10.88/某个接收页面比如index.htm?webbjbz=331","",false);

sendAjaxText("","http: //192.168.10.88/index.htm?webbjbz=331","",false);

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


加好友 发短信
等级:幼狐 帖子:140 积分:1463 威望:0 精华:0 注册:2017/9/3 22:32:00
  发帖心情 Post By:2022/8/11 17:44:00 [只看该作者]

在192.168.10.88 服务器httprqquest中写下了如下代码

 

Dim wb As New WeUI
Select Case e.Path
       Case "", "default.htm" '首页
        Functions.Execute("default",e)
End Select
e.WriteString(wb.Build) '生成网页

 

default函数内容:

Dim e As RequestEventArgs = args(0)
webbjbz  =e.GetValues("webbjbz")  '接收webbjbz传过来的数据。
Dim wb As New weui
msgbox(webbjbz)   ’显示数据,看一下是否已经传过来了。
e.WriteString(wb.Build)

 

在:192.168.10.66服务器中http服务中代码如下:

case dxt.htm

Dim wb As New weui
wb.AppendHTML("<script src='./lib/valid.js'></script>")  '引入脚本文件
wb.AppendHTML("<script >fasong()</script>")

。。。

 

js文件也改成了:

 

sendAjaxText("","http: //192.168.10.88/default.htm?webbjbz=331","",false);
 

执行192.168.10.66  没有任何反应,webbjbz的值也没有传到192.168.10.88的default.htm中。这个问题困扰我好几天了,麻烦您给分析以下,问题出在什么地方,谢谢了。

 

 

[此贴子已经被作者于2022/8/11 17:45:53编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109760 积分:558516 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/11 20:35:00 [只看该作者]

msgbox(e.Path) ‘这里能不能弹出?’
Dim wb As New WeUI
Select Case e.Path
       Case "", "default.htm" '首页
        Functions.Execute("default",e)
End Select
e.WriteString(wb.Build) '生成网页


 回到顶部