以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想在本机测试页面是否现实,尝试没有忘记的方法都不成功  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124987)

--  作者:zhangjian222200
--  发布时间:2018/9/17 21:56:00
--  想在本机测试页面是否现实,尝试没有忘记的方法都不成功
httprequest代码:框架文件放在e盘web内
Dim fl As String = "e:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If

    Select Case e.Path 
        Case "index.htm"                                     \'首页
            Functions.Execute("index",e)
            Return
     end select

服务器启用代码:
HttpServer.Prefixes.Add("http://127.0.0.1:90/")
HttpServer.Prefixes.Add("http://*/")
HttpServer.Start()

在浏览器输入http://127.0.0.1:90/index.htm,测试好一会了,页面也还不显示,怎么回事勒
[此贴子已经被作者于2018/9/17 21:57:09编辑过]

--  作者:有点蓝
--  发布时间:2018/9/17 22:17:00
--  
index函数里面是什么内容?
--  作者:zhangjian222200
--  发布时间:2018/9/17 22:39:00
--  
index页面代码没有问题,是成熟的代码,一直在服务器上显示的

[此贴子已经被作者于2018/9/19 18:20:36编辑过]

--  作者:有点蓝
--  发布时间:2018/9/17 22:53:00
--  
测试下面能不能返回,我测试没有问题,估计应该还是index函数里面有问题

Select Case e.Path 
        Case "index.htm"                                     \'首页
            e.WriteString("123456789") 
            Return
     end select

--  作者:有点甜
--  发布时间:2018/9/18 9:32:00
--  
以下是引用zhangjian222200在2018/9/17 21:56:00的发言:

 
在浏览器输入http://127.0.0.1:90/index.htm,测试好一会了,页面也还不显示,怎么回事勒
[此贴子已经被作者于2018/9/17 21:57:09编辑过]

 

1、加入msgbox测试是否进入执行了代码。

 

2、看浏览器那里,调试器那里,是否报什么错。


--  作者:zhangjian222200
--  发布时间:2019/4/3 10:05:00
--  
这个问题一直存在

启动按钮代码如下:
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Prefixes.Add("http://*/")
msgbox(0) \'这里提示了
HttpServer.Start()

httprequest里面加入了好几个msgbox,都没有弹出


[此贴子已经被作者于2019/4/4 11:31:13编辑过]

--  作者:有点甜
--  发布时间:2019/4/3 11:08:00
--  

尝试执行,看是否报错。

 

HttpServer.close
HttpServer.Prefixes.Add("http://*/")
HttpServer.Start()


--  作者:zhangjian222200
--  发布时间:2019/4/3 11:33:00
--  
试了,没有效果

浏览器界面与之前一样,没有反映
[此贴子已经被作者于2019/4/3 11:33:10编辑过]

--  作者:有点甜
--  发布时间:2019/4/3 11:37:00
--  

执行这个代码是否报错?如果报错就是有问题啊

 

HttpServer.close
HttpServer.Prefixes.Add("http://*/")
HttpServer.Start()


--  作者:zhangjian222200
--  发布时间:2019/4/3 11:59:00
--  
确实报错了

2019-04-03 11:59:24.6718
另一个程序正在使用此文件,进程无法访问。
   在 System.Net.HttpListener.AddAll()
   在 System.Net.HttpListener.Start()
   在 Foxtable.HttpListenter.Start()


[此贴子已经被作者于2019/4/4 11:31:41编辑过]