横向设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

Dim sb As New StringBuilder

sb.appendLine("<!doctype html>")

sb.appendLine("<html>")

sb.appendLine("<head>")

'sb.AppendLine("<meta name='viewport' c>")

sb.appendLine("</head>")

Dim lst As List(of DataRow) = DataTables("成绩").sqlS elect("身份证件号 = '" & e.Cookies("username") & "'")

Dim nms() As String = {"考试名称","语文_语总","数学_数总","英语_英总","政治_政总","历史_历总","生物_","地理_","物理_物总","化学_化总","总分","班序","校序","区序"}

Dim cps() As String = {"考试名称","语文","数学","英语","政治","历史","生物","地理","物理","化学","总分","班序","校序","区序"}

sb.AppendLine("<Table border='1'>")

sb.AppendLine("<caption>我的成绩<caption></br>")

sb.Append("<tr>")

For Each cp As String In cps

sb.Append("<td>" & cp & "</td>")

sb.AppendLine("</tr>")

For r As Integer=0 To lst.Count-1

sb.Append("<tr>")

For Each nm As String In nms

sb.Append("<td>" & lst(r)(nm) & "</td>")

sb.AppendLine("</tr>")

sb.AppendLine("</Table></br></br>")

e.WriteString(sb.ToString)

老师，上面代码用了sb.AppendLine("<meta name='viewport' c>")由于列较多，显出来很丑，请问如何直接让这个页面横向

方法一：weui.me.css第一句，改成

body,html{height:100%;background-color:#fbf9fe;transform: rotate(45deg);}

方法二：需要你浏览器设置成横屏显示，或者手机设置成横向显示。

方法三：把你的网站打包成app，然后用app设置横屏显示即可。

老师，我看了一下，如果用方法一那么是不是所有手机上的页面都会变成横向，我只需要这一页为横向，因为纵显示不够宽，如何只设置这页为横向

以下是引用刘林在2018/7/15 20:40:00的发言：

方法一：weui.me.css第一句，改成

body,html{height:100%;background-color:#fbf9fe;transform: rotate(45deg);}

老师，我看了一下，如果用方法一那么是不是所有手机上的页面都会变成横向，我只需要这一页为横向，因为纵显示不够宽，如何只设置这页为横向

那直接写在代码里面，如

wb.appendHTML("<style>body,html{height:100%;background-color:#fbf9fe;transform: rotate(45deg);}</style>")

主题：横向设置