Vraag : klassiek aspis die recordset pagineren

Ik heb codes in klassiek aspis vastgemaakt, en het het werkboete behalve wanneer het >= 1000 rows.
Do ontmoet u hoe dan ook ziet kunnen wij de ladingstijd verbeteren? Momenteel, is het tijdout.
The opgeslagen procedure terugkeert rond 1000 rows.
" codeBody " 
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:
36:
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)
		schemerige TableField
		als agencyid = „2651“ toen
				print_ex_url= " https:// " & domainname & „/eServices/Secure/eBond/Print_RefCodes.asp? PrintTypeID=2“
				vastgestelde Cmd_PrintBondMarket_RefNo=Server.CreateObject („ADODB.Command“)
				met Cmd_PrintBondMarket_RefNo
		            .ActiveConnection = dbsecurecon
					.CommandText = „up_GetWebCustomziedRpt_agent“
					.CommandType = adCmdStoredProc
					. .CreateParameter van Parameters.Append („@agencyID“, adVarChar, adParamInput, 10, agencyid)
					. .CreateParameter van Parameters.Append („@ReportTypeID“, adinteger, adParamInput, 1)
					. .CreateParameter van Parameters.Append („@ReportBegDate“, adDate, adParamInput, „01/01/2010“)
					. .CreateParameter van Parameters.Append („@ReportToDate“, adDate, adParamInput, „01/30/2010“)
					. Voer uit ()
				eind met
				ipagesize=10
				als request.form („cmdbondnavbutton“) = "" toen
					ipagecurrent=1
				anders
					ipagecurrent=cint (request.form („cmdbondnavbutton“))
			    beëindig als
			    plaats Rs_PrintBondMarket_RefNo=Server.CreateObject („Adodb.RecordSet“)
					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
					
					als ipagecurrent > ipagecount toen
						ipagecurrent = ipagecount
					beëindig als
					als ipagecurrent < 1 toen
						ipagecurrent = 1
					beëindig als
					
					als ipagecount = 0 toen
					p= "  "
					p=p & „“
					p=p & „
No Transaction
“
					p=p & „“
					p=p & „“
					anders
					Rs_PrintBondMarket_RefNo.AbsolutePage=ipagecurrent
					'/		
					p = „“
					'p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
				 	p = bodem p & „“
					p = p & „“
					p = p & „ >Marketing“
					p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
					p = p & „“
			 		p = p & „“
			 		p = p & „“
			 			  iRecordShown=0
						            Voor Elke TableField in Rs_PrintBondMarket_RefNo.Fields
						            p=p & „“
						            p=p & „“
						            p=p & „“
						            Daarna
						   		     	
									'als agentnote <> "" toen
									'p=p & „“
									'beëindig als
							 
					beëindig als		
							 

					 
					'/
					
					p=p & „“
					p=p & „
Marketing Verwijzing Report
Submitted: “ & datum () & „(CST) 
“
					als PrintTypeID = „1“ toen
				 	p = p & „Print in html“
					p = p & „  |  “
					p = p & „Print in Excel“
					p = p & „  |  “
					p = p & „Close dit page“
					beëindig als
					p = p & „
Bond No.Bond TypePrincipal NameBond TermBond Amt.GWPOther AmountAgency CodeCSI Betaling TypePayment Number

“ & Rs_PrintBondMarket_RefNo.GetString (2, iPageSize) & „
Note: “ & agentnote & „
“
					p=p & „
“
					navurl= " print_refcodes.asp "
					
					p=p & „“
					voor I = 1 aan ipagecount
						als I = ipagecurrent toen
							p=p & „“ & I & „“ &“ „ 
						anders
							als I = request.form („pagina“) toen
								fontsize= " 4 "
								color1= " blauw "
							anders
								fontsize= " 1 "
								color1= " zwarte "
							beëindig als
							p=p & „  “
						beëindig als 
					daarna
					p=p & „
“
			    Rs_PrintBondMarket_RefNo.close
			    vastgestelde Rs_PrintBondMarket_RefNo = niets		
				vastgestelde Cmd_PrintBondMarket_RefNo = niets
				 
		anders
				p= "  " hebt
				p=p & „
You is niet gemachtigd om deze pagina te bekijken. Tevreden om ons te contacteren als u om het even welke question.
Close
“	
		beëindig als
		        Print_RefCodeByAgencyID=p
		eind functie

Antwoord : klassiek aspis die recordset pagineren

Voor improvinfprestaties,
U kunt één ding doen dat -

Voeg parameter aan zelfde opgeslagen procedure toe zoals PageSize en startingIndex.

En uit gegevensbestand neem slechts die die rijen aanpassen.

controle voor opgeslagen procedurelogic;

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

Hoop dit uw probleem oplost.
Andere oplossingen  
 
programming4us programming4us