| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 横向设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121914) |
| -- 作者：刘林 -- 发布时间：2018/7/15 18:56:00 -- 横向设置 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>") Next 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>") Next sb.AppendLine("</tr>") Next sb.AppendLine("</Table></br></br>") e.WriteString(sb.ToString) 老师，上面代码用了sb.AppendLine("<meta name=\'viewport\' c>")由于列较多，显出来很丑，请问如何直接让这个页面横向
|
| -- 作者：有点甜 -- 发布时间：2018/7/15 19:54:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108324&skin=0
|
| -- 作者：刘林 -- 发布时间：2018/7/15 20:40:00 -- 方法一：weui.me.css第一句，改成
body,html{height:100%;background-color:#fbf9fe;transform: rotate(45deg);}
方法二：需要你浏览器设置成横屏显示，或者手机设置成横向显示。
方法三：把你的网站打包成app，然后用app设置横屏显示即可。 老师，我看了一下，如果用方法一那么是不是所有手机上的页面都会变成横向，我只需要这一页为横向，因为纵显示不够宽，如何只设置这页为横向 |
| -- 作者：有点甜 -- 发布时间：2018/7/15 20:53:00 -- 以下是引用刘林在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>") |