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>")由于列较多，显出来很丑，请问如何直接让这个页面横向
加好友 
发短信
Post By：2018/7/15 18:56:00 [只看该作者]
