主题：[求助]在手机上weui怎么不起作用了？

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

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

 

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

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

 

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

 

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

 

怎么解决？谢谢

去掉这个【HttpServer.WebPath = "c:\web" 】，然后使用通用事件头的代码是否正常？

也不正常。

之前一直是正常的。昨天咨询了图片无法在手机显示的问题，就改动了通用事件头和封闭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浏览器显示是正常的。

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

问题会在哪呢？

 

 这是手机显示的样子。

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

手机安装多几个浏览器，测试看有没有问题

代码我在手机测试没有问题，应该是手机或者网络的问题

把bin目录删除就好了。谢谢

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

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

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

 

 

 

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


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

回复楼上，微信上跳转到别的网站，都是需要你使用域名（如 www.baidu.com）才能访问的，也就是你的网站必须备案获得域名才不会有提示。

微信跳转之后,现在任何设备打开这个IP地址,都变成了<手机预览模式>,所有weui设置的格式都不再显示了。现在这个IP地址就无法调测程序了！有办法解决么？