以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  服务器迁移后  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170601)

--  作者:刘林
--  发布时间:2021/7/31 16:59:00
--  服务器迁移后
老师:我在原来阿里云服务器上将所有内容迁到了腾讯云服务器上

HttpServer.Close
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Prefixes.Add("http://*:8888/")
HttpServer.WebPath = "c:\\web\\"
HttpServer.Start()
开启服务

web文件夹位置都一样,
用http://新IP:8888/logon.htm打不开网页,但用ttp://新IP:8888/1.txt 可以打开文件。

请问还有什么要注意的?

--  作者:有点蓝
--  发布时间:2021/7/31 17:02:00
--  
打不开网页显示什么内容?

调试一下,logon.htm页面代码第一行加上msgbox(1)能不能弹出,如果可以检查一下页面代码逻辑
[此贴子已经被作者于2021/7/31 17:01:56编辑过]

--  作者:刘林
--  发布时间:2021/7/31 17:06:00
--  
同样项目现在在阿里云上可以打开,但同样位置,同样项目移动腾讯上就打不开

404 - 找不到文件或目录。

您要查找的资源可能已被删除,已更改名称或者暂时不可用。

[此贴子已经被作者于2021/7/31 17:06:41编辑过]

--  作者:有点蓝
--  发布时间:2021/7/31 17:12:00
--  
把程序设置为“使用管理员身份运行”。
--  作者:刘林
--  发布时间:2021/7/31 17:19:00
--  
还是不行
--  作者:有点蓝
--  发布时间:2021/7/31 17:26:00
--  
到httprequest调试一下
--  作者:刘林
--  发布时间:2021/7/31 17:34:00
--  
在本地都可以,http://127.0.0.1/logon.htm,用阿里云上的都可以,应该代码不会有问题,因为腾讯服务器年的c:\\web\\文件夹是同样拷来去的
--  作者:有点蓝
--  发布时间:2021/7/31 17:37:00
--  
就算10000台电脑没有问题,就这一台电脑有问题,一眼看不到的原因都需要调试判断。没有办法靠猜的
--  作者:刘林
--  发布时间:2021/7/31 17:41:00
--  
现在有一点没理解的是在我的腾讯服务器上c:\\web\\1.txt  我用http://101.34.117.103:8888/1.txt是可以打开的
HttpServer.Close
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Prefixes.Add("http://*:8888/")
HttpServer.WebPath = "c:\\web\\"
HttpServer.Start()
开启服务项目
但http://101.34.117:8888/logon.htm打不开



--  作者:刘林
--  发布时间:2021/7/31 18:05:00
--  
Dim fl As String = "c:\\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",".png",".apk",".pdf",".mp4"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
Dim wb As New weui
wb.AppendHTML("<style>.weui_grid_icon{width: 50px;height: 50px;}</style>")
wb.AppendHTML("<style>.fox_grid_icon{width: 50px;height: 50px;vertical-align: middle;background-size: 50px 50px;}</style>" )
wb.AppendHTML("<style>body{opacity: 0}</style>")
wb.AppendHTML("<style>.fox_h_button_group{postion:fixe;bottom:0px;}</style>")
wb.AppendHTML(FileSys.ReadAllText("c:\\web\\lib\\test.txt"), True)
messagebox.show("OK1")



老师我测了下,httprequest在这个地方加了提示,在本地上要出来,但放到服务器上还是没出来,这如何查

[此贴子已经被作者于2021/7/31 18:06:16编辑过]