同一个程序，使用Chrome浏览器显示时正常的。见下图

此主题相关图片如下：vv1.jpg

在手机显示不正常，好像weui没有起作用。见下图

此主题相关图片如下：vv4.jpg

在AfterOpenProject事件如下代码。指定的目录是正确的。去掉通用事件头。

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "c:\\web"
HttpServer.Start()

怎么解决？谢谢

也不正常。

之前一直是正常的。昨天咨询了图片无法在手机显示的问题，就改动了通用事件头和封闭HttpServer.WebPath = "c:\\web"，就这样了。

通用事件头恢复到和之前一样也不行。

之前编译推到云服务器的仍然好用。使用局域网IP的源码程序就这样了！

麻烦老师提示查找方法。谢谢

程序全部采用教材的例子如下：

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

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"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            With .AddInput("xm","户名","text")
                .Value = "张三"
                .Readonly= True
            End With
            .AddInput("xm","密码","password").Placeholder = "请输入6位数密码"
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

确认C:\\web\\内容是新的

此主题相关图片如下：k9.jpg

1.程序使用是教材的内容，程序不应该有错误吧？

2.难道是手机问题么？同一台手机连接云服务器显示就是正常的，所以也不是手机问题。

3.WeUI也重新下载的，不会有问题吧？

4.同一段程序使用Chrome浏览器显示是正常的。

在手机显示还是相当于没有使用框架一样不正常。

问题会在哪呢？

 这是手机显示的样子。

又发现新情况。使用互联网IP时，会有如下警告。这个怎么解？

被其转换成手机预览模式了。所以所有格式都不好用了！

引发这种情况发生时，好像是发送了图片，并且在微信上共享了这个网址。

此主题相关图片如下：m1.jpg


此主题相关图片如下：m2.jpg