<% Username = session("username") sql = "Select * From info Where 用戶名 = '"&Username&"'" set rs = conn.Execute(sql) %> <% Dim objRS Set objRS = GetRecordset("db1.mdb", "2") %> <% i=1 do while not objRS.EOF total = total +1 objRS.MoveNext Loop Set objRS = GetRecordset("db1.mdb", "2") for i = 1 to total if i mod 2=1 then bg="FFCCCC" else bg="33FF33" end if %> >
二年級
<%=objRS("年")%>年<%=objRS("月")%>月<%=objRS("日")%>日(星期<%=objRS("星期")%>)
佛學 <%=objRS("budd")%>
中文 <%=objRS("中文")%>
書法 <%=objRS("書法")%>
英文 <%=objRS("英文")%>
數學 <%=objRS("數學")%>
常識 <%=objRS("常識")%>
普通話 <%=objRS("普通話")%>
備註 <%=objRS("備註")%>

<%objRS.MoveNext%> <%next%> <% '關閉資料庫連接並釋放物件案例 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>