以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]两个不同网址之间如何传参  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179081)

--  作者:liujie6215
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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
--  发布时间: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的网页,无感知传递。

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


--  作者:有点蓝
--  发布时间: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
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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) \'生成网页