請點選表格內的任一欄位做修改, 或點選「刪除」, 觀察整頁的動作, 速度, 效能...
資料列表
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(gConnectionString)
'取得資料筆數
SQL = gSelectQuantityCommand
Set Rs = Conn.Execute(SQL)
ThreadTotal = Rs(0)
Rs.Close()
'取得頁數資料
PageTotal = GetPageCount(gPageSize,ThreadTotal)
PageCurrent = GetPage(Request("page"),PageTotal)
PageStartRec = GetStartRec(PageCurrent,gPageSize)
PageStopRec = GetStopRec(PageTotal, gPageSize, PageStartRec)
Set Rs = Conn.Execute(gSelectCommand)
OutputTable Rs, gPrimaryKeyName,PageStartRec,PageStopRec
Rs.Close()
Set Rs = Nothing
Conn.Close()
Set Conn = Nothing
%>
<%=OutputPagingHTML(PageCurrent,PageTotal)%>
請新增一筆資料, 觀察上方表格的是否有被更新到