主题：[求助]网页版显示问题

mark userAgent，你可以把下面的代码写成一个函数调用

        msgbox(e.request.UserAgent )
        Dim agent As String = e.request.UserAgent
        Dim flag As Boolean = False
        Dim keywords As String() = {"Android", "iPhone", "iPod", "iPad", "Windows Phone", "MQQBrowser"}
        '排除 Windows 桌面系统
        If Not agent.Contains("Windows NT") OrElse (agent.Contains("Windows NT") AndAlso agent.Contains("compatible; MSIE 9.0;")) Then
            '排除 苹果桌面系统
            If Not agent.Contains("Windows NT") AndAlso Not agent.Contains("Macintosh") Then
                For Each item As String In keywords
                    If agent.Contains(item) Then
                        msgbox(item)
                        flag = True
                        Exit For
                    End If
                Next
            End If
        End If
        If flag Then
            msgbox("手机")
        Else
            msgbox("电脑")
        End If

去学习html和css和js

http://www.w3school.com.cn/h.asp

可以用，但是weui是用来做移动端的，建议你用别的框架。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109476&skin=0