Frage : klassische Asp recordset Paginierung

Ich habe Codes in klassischem Asp und es Arbeit fein angebracht, ausgenommen, wenn sie >= 1000 rows.
Do antrifft, Sie sehen, dass irgendwie wir die Ladenzeit verbessern können? Z.Z. ist es gespeichertes Verfahren der Zeit out.
The zurückbringt herum 1000 rows.

 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:

function Print_RefCodeByAgencyID (agencyid, org_agency_id, branchid, PrintTypeID)
		schwaches TableField
		wenn agencyid = „2651“ dann
				print_ex_url= " https:// " u. Domain Name u. „/eServices/Secure/eBond/Print_RefCodes.asp? PrintTypeID=2“
				Cmd_PrintBondMarket_RefNo=Server.CreateObject („ADODB.Command“) einstellen
				mit Cmd_PrintBondMarket_RefNo
		            .ActiveConnection = dbsecurecon
					.CommandText = „up_GetWebCustomziedRpt_agent“
					.CommandType = adCmdStoredProc
					. Parameters.Append .CreateParameter („@agencyID“, adVarChar, adParamInput, 10, agencyid)
					. Parameters.Append .CreateParameter („@ReportTypeID“, adinteger, adParamInput, 1)
					. Parameters.Append .CreateParameter („@ReportBegDate“, adDate, adParamInput, „01/01/2010“)
					. Parameters.Append .CreateParameter („@ReportToDate“, adDate, adParamInput, „01/30/2010“)
					. Durchführen ()
				mit beenden
				ipagesize=10
				wenn request.form („cmdbondnavbutton“) = "" dann
					ipagecurrent=1
				sonst
					ipagecurrent=cint (request.form („cmdbondnavbutton“))
			    beenden wenn
			    Rs_PrintBondMarket_RefNo=Server.CreateObject („Adodb.RecordSet“) einstellen
					Rs_PrintBondMarket_RefNo.PageSize=ipagesize
					Rs_PrintBondMarket_RefNo.CursorLocation=aduseClient
					Rs_PrintBondMarket_RefNo.CacheSize=ipagesize
					Rs_PrintBondMarket_RefNo.Open Cmd_PrintBondMarket_RefNo
					ipagecount = Rs_PrintBondMarket_RefNo.pagecount
					
					wenn ipagecurrent > ipagecount dann
						ipagecurrent = ipagecount
					beenden wenn
					wenn ipagecurrent < 1 dann
						ipagecurrent = 1
					beenden wenn
					
					wenn ipagecount = 0 dann
					p= "  "
					p=p u. „“
					p=p u. „
No Transaction
“
					p=p u. „“
					p=p u. „“
					sonst
					Rs_PrintBondMarket_RefNo.AbsolutePage=ipagecurrent
					'/		
					p = „“
					'p = p u. „“
					p = p u. „“
					Datum des p = p u. „“
					p = p u. „“
				 	p = p u. „“
					p = p u. „“
					p = p u. „ >Marketing ist“
					p = p u. „“
					p = p u. „“
					p = p u. „“
					p = p u. „“
					p = p u. „“
					p = p u. „“
					p = p u. „“
					p = p u. „“
					p = p u. „“
			 		p = p u. „“
			 		p = p u. „“
			 			  iRecordShown=0
						            Für jedes TableField in Rs_PrintBondMarket_RefNo.Fields
						            p=p u. „“
						            p=p u. „“
						            p=p u. „“
						            Zunächst
						   		     	
									'wenn agentnote <> "" dann
									'p=p u. „“
									'beenden wenn
							 
					beenden wenn		
							 

					 
					'/
					
					p=p u. „“
					p=p u. „
Marketing BezugsReport
Submitted: “ u. Datum () u. „
 (CST)“
					wenn PrintTypeID = „1“ dann
				 	p = p u. „Print in html drucken“
					p = p u. „  |  “
					p = p u. „Print in Excel“
					p = p u. „  |  “
					p = p u. „Close schließen dieses page“
					beenden wenn
					p = p u. „
Bond No.Bond TypePrincipal NameBond TermBond Amt.GWPOther AmountAgency CodeCSI Zahlung TypePayment Number

“ u. Rs_PrintBondMarket_RefNo.GetString (2, iPageSize) u. „
Note: “ u. agentnote u. „
“
					p=p u. „
“
					navurl= " print_refcodes.asp "
					
					p=p u. „“
					für i = 1 zum ipagecount
						wenn i = ipagecurrent dann
							p=p u. „“ u. i u. „“ u.“ „ 
						sonst
							wenn i = request.form („Seite“) dann
								fontsize= " 4 "
								color1= " Blau "
							sonst
								fontsize= " 1 "
								color1= " Schwarzes "
							beenden wenn
							p=p u. „  ein; “
						beenden wenn 
					zunächst
					p=p u. „
“
			    Rs_PrintBondMarket_RefNo.close
			    Rs_PrintBondMarket_RefNo einstellen = nichts		
				Cmd_PrintBondMarket_RefNo einstellen = nichts
				 
		sonst
				p= "  "
				p=p u. „
You werden nicht autorisiert, um diese Seite anzusehen. Mit uns bitte in Verbindung treten, wenn Sie haben irgendein question.
Close
 schließen“	
		beenden wenn
		        Print_RefCodeByAgencyID=p
		Endenfunktion

Antwort : klassische Asp recordset Paginierung

Für improvinf Leistung,
Sie können eine Sache tun das -

Parameter dem gleichen gespeicherten Verfahren wie PageSize und startingIndex hinzufügen.

Und vom Datenbanknehmen nur jene zusammenpassenden Reihen.

auf gespeichertem procedurelogic überprüfen;

http://www.beansoftware.com/ASP.NET-Tutorials/Paging-Stored-Procedures.aspx

http://www.aspfree.com/c/a/Database-Code/Paging-certain--of-records-using-Stored-Procedure-Command-Object-and-MSSQL-Server/

http://www.15seconds.com/issue/010308.htm

Hoffen, dass dieses Ihr Problem löst.
Weitere Lösungen  
 
programming4us programming4us