------------- Store process --------------------- create procedure p_splitpage @sql nvarchar (4000), SQL statement @Page INT = 1, - The page number @PageSize Int, - the size of each page @PageCount Int = 0 out, - Total number @RecordCount Int = 0 out - total record number Asset NoCount ondeclare @ p1 intexec sp_cursoropen @ p1 output, @ sql, @ scrollopt = 1, @ ccopt = 1, @ rowcount = @ pagecount outputset @recordCount = @pageCountselect @ pagecount = ceiling (1.0 * @ pagecount / @ pagesize), @ page = (@ Page-1) * @ PageSize 1exec sp_cursorfetch @ P1, 16, @ page, @ PAGESIZE EXEC SP_CURSORCLOSE @ P1GO ------------------------------------------------------------------------------------ --- Get the stored procedure of the execution query statement ---------------- Create Procedure DTALYJD_SEARCH (@search_name varchar (50)) asdeclare @Str Varchar (4000) if @ search_name = '' beginset @ str = 'select * from table name' select @str sqlreturnendelsebeginset @ str = 'select * from table where search_name like' '%' @ search_name '%' '' select @str sqlreturnendGO ----- -------------------- ASP page --------------------- <% DIM Search_namesearch_name = TRIM (Request ("Search_name")) SET RS1 = Conn.execute ("EXEC DTALYJD_SEARCH '" & Search_name & "'") SQL = RS1 ("SQL ") RS1.Closeif Request (" Page "=" "" = 0 or isnumeric ("page") = false kilnm_page = 1 elsem_page = cint (Request ("Page") END ifm_pagesize = 14 'is the number of pieces per set cmd = server.CreateObject ( "adodb.command") cmd.ActiveConnection = conn cmd.CommandType = 4 cmd.CommandText = "p_SplitPage" cmd.Parameters.Append cmd.CreateParameter ( "@
SQL ", 8, 1, 4000, sql) cmd.parameters.append cmd.createParameter (" @ Page ", 4, 1, 4, m_page) cmd.parameters.Append cmd.createParameter (" @ Pagesize ", 4, 1 , 4, m_pageSize) cmd.parameters.Append cmd.createParameter ("@ pagecount", 4, 2, 4, m_pagecount) cmd.parameters.Append cmd.createParameter ("@ recordcount", 4, 2, 4, m_recordcount) SET rs = cmd.Executeset rs = rs.NextRecordSetm_pageCount = cmd.Parameters ( "@ pageCount"). value m_recordCount = cmd.Parameters ( "@ recordCount"). valueif m_pageCount = 0 then m_pageCount = 1if m_page> m_pageCount then response.Redirect ( "bureauser_result.asp? page =" & m_pageCount & "& lxsuser_name =" & lxsuser_name) end ifset rs = cmd.Execute%>
| Query results A total of [8] page is the "Font Color =" # ff0000 "> [5] page |
|
