以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  本机网页测试  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179876)

--  作者:genggeng
--  发布时间:2022/9/15 10:50:00
--  本机网页测试
网页写好了在本机进行测试,开启了127.0.0.1的IP端口,80端口也是新建的,没有被占用,但是在浏览器输入网址后一直显示:
foxtable web server has started(error 404).
大佬可以帮忙看看是什么问题吗?

以下是服务器窗口代码:
HttpServer.close
Dim url As String = e.Form.Controls("TextBox1").Text
If url > ""
    \'添加需要监听的URL
    For Each u As String In url.Replace(chr(10),"").Split(chr(13))
        If u > "" Then
            HttpServer.Prefixes.Add(u)
        End If
    Next
    HttpServer.Start()
messagebox.show("开启成功")
End If
[此贴子已经被作者于2022/9/15 10:55:53编辑过]

--  作者:有点蓝
--  发布时间:2022/9/15 10:52:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

web服务启动代码是什么?启动的时候有没有出错?httprequest写了什么代码?浏览器通过什么地址访问的?

--  作者:genggeng
--  发布时间:2022/9/15 10:57:00
--  
下面是服务器开启的窗口代码:
HttpServer.close
Dim url As String = e.Form.Controls("TextBox1").Text
If url > ""
    \'添加需要监听的URL
    For Each u As String In url.Replace(chr(10),"").Split(chr(13))
        If u > "" Then
            HttpServer.Prefixes.Add(u)
        End If
    Next
    HttpServer.Start()
messagebox.show("开启成功")
End If

--  作者:genggeng
--  发布时间:2022/9/15 11:00:00
--  
下面是httpreque代码:

If e.Path.StartsWith("order") Then
Dim wb As New weui
       wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") 
\'那么直接跳转到登录页面
        e.WriteString(wb.Build) \'生成网页
 End If 

开启服务器时输入的IP是http://127.0.0.1/
谷歌浏览器输入的网址127.0.0.1/order
[此贴子已经被作者于2022/9/15 11:04:25编辑过]

--  作者:有点蓝
--  发布时间:2022/9/15 11:17:00
--  
调试
msgbox(e.Path)
If e.Path.StartsWith("order") Then
Dim wb As New weui
       wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") 这里代码被论坛屏蔽了,不完整,按照这里的方法处理一下重新发上来http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632
\'那么直接跳转到登录页面
msgbox(wb.Build)
        e.WriteString(wb.Build) \'生成网页
 End If 


--  作者:genggeng
--  发布时间:2022/9/15 13:59:00
--  
wb.InsertHTML("<me ta http-e quiv=\'Refresh\' co nt ent=\'0;  u rl=/order/logon\'>") \'那么直接跳转到登录页面
--  作者:有点蓝
--  发布时间:2022/9/15 14:06:00
--  
这不死循环了吗?跳转到【/order/logon】,还是order开头的,还是跳转到【/order/logon】

select case e.path
case "order"
Dim wb As New weui
wb.InsertHTML("<me ta http-e quiv=\'Refresh\' co nt ent=\'0;  u rl=/order/logon\'>") 
e.WriteString(wb.Build)
case "order\\logon"
e.WriteString(“这里登录页”)
end select