Sub GetRecordSet(strBbmc,strKssj , strZzsj ,strNodeCode ,strFxzl ) '參數為報表名稱和各個限制條件 select case strBbmc case “交易匯總表" strCnn=“PROVIDER=MSDASQL;dsn=sqldb; uid=sa;pwd=123456;database=vlog;" Set objcnn=Server.CreateObje(“ADODB.Connection") objcnn.CommandTimeout = 9999999 objcnn.ConnectionTimeout = 99999999 objcnn.CursorLocation = adUseClient objcnn.Open strCnn '打開連接 Set objRs =Server.CreateObject (“ADODB.Recordset") objRS.PageSize = iPageSize objRS.CacheSize = iPageSize objRs.Open “sszhatmlog ‘“ ＆ strKssj ＆ "' , ‘“ ＆ strZzsj ＆ "', ‘“ ＆ strNodeCode ＆ "' , ‘“ ＆ strFxzl ＆ "'",objcnn,adOpenStatic , adLockReadOnly,1 ’執行存儲過程返回查詢結果 ...... End Sub
3．將查詢結果保存到動態數組
Sub SaveRecordSet() if objRs.EOF = false then objRs.movelast session(“iRowCount") = objRs.recordCount session(“iFieldCount") = objRs.Fields.Count session(“iPageCount") = objRs.pagecount redim Preserve TempArray(session (“iRowCount"),session(“iFieldCount")) ’TempArray是一個二維動態數組， 根據記錄集大小重新定義其大小 objRs.MoveFirst iCount=0 do while objRs.EOF=false iCount = iCount ＋ 1 for i= 1 to session(“iFieldCount") TempArray(iCount,i)=objRs.Fields.Item (i－1).value next objRs.MoveNext loop session(“StoredArray") = TempArray objRs.Close else session(“iPageCount") = 0 end if End Sub
4．顯示記錄內容
Sub ShowRecord() ...... LocalArray=session(“StoredArray") iShowTotal=(iPageCurrent－1)＊iPageSize＋1 iRowLoop = 1 do while iRowLoop < = iPageSize and iShowTotal < = session(“iRowCount") Response.Write(“< TR >") for i = 1 To session(“iFieldCount") Response.write(“< TD >" ＆ LocalArray(iShowTotal,i)) Next Response.Write(“< /TR >") iShowTotal = iShowTotal ＋ 1 iRowLoop = iRowLoop ＋ 1 loop Response.Write(“< /TABLE >") if iPageCurrent < > 1 and iPageCurrent < session (“iPageCount") then ％ > < center >< A HREF=“db_pag.asp?page=< ％= iPageCurrent － 1 ％ >" >前一頁< /A >< A HREF= “db_pag.asp?page=< ％= iPageCurrent ＋ 1 ％ >" > 后一頁< /A >< /center > < ％ else if iPageCurrent < > 1 then ％ > < center >< A HREF=“db_pag.asp?page=< ％= iPageCurrent － 1 ％ >" >前一頁 < /A >< /center > < ％ end if if iPageCurrent < session(“iPageCount")then ％ > < center >< A HREF=“db_pag.asp?page= < ％= iPageCurrent ＋ 1 ％ >" >后一頁 < /A > < /center > < ％ end if end if End Sub
5．主程序
if Request.QueryString(“page") = “" then ’提交查詢申請并且查詢條件與上一次不同 ...... call GetRecordSet(strBbmc,strKssj,strZzsj, strNodeCode,strFxzl) call SaveRecordSet Else iPageCurrent=CInt(Request.QueryString(“page")) strKssj=session(“strKssj") end if if session(“iPageCount") = 0 then Response.Write “抱歉！沒有滿足條件的記錄" Response.Write “< Br >" else call showrecord() end if
