set conntemp=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("/stevesmith/data/timesheet.mdb") conntemp.Open "DRIVER={Microsoft access Driver (*.mdb)}; " & cnpath set RS=conntemp.execute("select * from donut") %> <TABLE BORDER=1> <TR> <% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' % Loop through Fields Names and print out the Field Names ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% j = 2 'row counter For i = 0 to RS.Fields.Count - 1 %> <TD><B><% = RS(i).Name %></B></TD> <% Next %> <TD><B>On Hand (calculated)</B></TD> <TD><B>Gross (calculated)</B></TD> </TR> <% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' % Loop through rows, displaying each field ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Do While Not RS.EOF %> <TR> <% For i = 0 to RS.Fields.Count - 1 %> <TD VALIGN=TOP><% = RS(i) %></TD> <% Next %> <TD>=b<%=j%>-c<%=j%>-d<%=j%></TD> <TD>=d<%=j%>*e<%=j%></TD> </TR> <% RS.MoveNext j = j + 1 Loop ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' % Make sure to close the Result Set and the Connection object ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% RS.Close %> <TR BGCOLOR=RED> <TD>Totals</TD> <TD>=SUM(B2:B6)</TD> <TD>=SUM(C2:C6)</TD> <TD>=SUM(D2:D6)</TD> <TD>n/a</TD> <TD>=SUM(F2:F6)</TD> <TD>=SUM(G2:G6)</TD> </TABLE> …… 這樣我們就實(shí)現(xiàn)了目的，用戶(hù)可以在瀏覽器窗口就打開(kāi)它進(jìn)行簡(jiǎn)單操作，也可以保存到硬盤(pán)上進(jìn)行其他操作。我還將介紹一種利用filesystemobject操作的方法。請(qǐng)稍候。：）
