以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开某网页之后自动链接到新网址  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194390)

--  作者:ycs5801
--  发布时间:2024/12/5 9:50:00
--  打开某网页之后自动链接到新网址
做了一个函数网页,打开这个网页之后,我想自动连接到新的网址,函数如下:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageURL = "http://fgzsk.yg.ore/chat/share?shareId=3c3fgxt5avi9xvkawwvcta&chatId=iAgoSN1X7kPi" \'合成当前页面链接

wb.AppendHtml("<meta http-equiv=\'refresh\' c>", True)

e.WriteString(wb.Build)

现在打开这个地址后会自动打开这样的网址:
http://127.0.0.1:8005/http://fgzsk.yg.ore/chat/share?shareId=3c3fgxt5avvkawwjwvcta&chatId=iAgoSN1X7kPi

请问需要哪里改下?

--  作者:有点蓝
--  发布时间:2024/12/5 9:57:00
--  
httprequest事件是怎么使用这个函数的?
--  作者:ycs5801
--  发布时间:2024/12/5 10:02:00
--  
   Case "fagui.htm"
        Functions.Execute("知识库链接", e)

--  作者:有点蓝
--  发布时间:2024/12/5 10:08:00
--  
浏览器使用下面地址访问:http://127.0.0.1:8005/fagui.htm

另外wb.AppendHtml代码不全,放到记事本发上来

--  作者:ycs5801
--  发布时间:2024/12/5 10:19:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt



--  作者:有点蓝
--  发布时间:2024/12/5 10:35:00
--  
试试

wb.AppendHtml("<meta http-equiv=\'refresh\' content=\'1; url=" & PageURL & "\'>", True)