Pytanie : klasyczny asp recordset

I dołączać kod w klasyk asp, i ono praca świetnie oprócz gdy ono spotykać >= 1000 rows.
Do ty widzieć jakkolwiek my móc the ładowniczy czas? Obecnie, ono być czas out.
The przechować procedura wracać wokoło 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:
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)
		ciemnawy TableField
		jeżeli agencyid = "2651" wtedy
				print_ex_url= " https:// " & domainname & "/eServices/Secure/eBond/Print_RefCodes.asp? PrintTypeID=2"
				ustawiać Cmd_PrintBondMarket_RefNo=Server.CreateObject ("ADODB.Command")
				z 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")
					. Wykonywać ()
				kończyć z
				ipagesize=10
				jeżeli request.form ("cmdbondnavbutton") = "" wtedy
					ipagecurrent=1
				inny
					ipagecurrent=cint (request.form ("cmdbondnavbutton"))
			    kończyć jeżeli
			    ustawiać 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
					
					jeżeli ipagecurrent > ipagecount wtedy
						ipagecurrent = ipagecount
					kończyć jeżeli
					jeżeli ipagecurrent < (1) wtedy
						ipagecurrent = (1)
					kończyć jeżeli
					
					jeżeli ipagecount = (0) wtedy
					p= "  "
					p=p & ""
					p=p & "
No Transaction
"
					p=p & ""
					p=p & ""
					inny
					Rs_PrintBondMarket_RefNo.AbsolutePage=ipagecurrent
					'/		
					p = ""
					'p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
				 	p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
					p = p & ""
			 		p = p & ""
			 		p = p & ""
			 			  iRecordShown=0
						            Dla Rs_PrintBondMarket_RefNo.Fields TableField w Rs_PrintBondMarket_RefNo.Fields
						            p=p & ""
						            p=p & ""
						            p=p & ""
						            Następnie
						   		     	
									'jeżeli agentnote <> "" wtedy
									'p=p & ""
									'kończyć jeżeli
							 
					kończyć jeżeli		
							 

					 
					'/
					
					p=p & ""
					p=p & "
Marketing Odniesienie Report
Submitted Data: " & data () & "(CST) 
"
					jeżeli PrintTypeID = "(1)" wtedy
				 	p = p & "Print w html"
					p = p & "  |  "
					p = p & "Print w Excel"
					p = p & "  |  "
					p = p & "Close ten page"
					kończyć jeżeli
					p = p & "
Bond No.Marketing Ref. CodeBond TypePrincipal NameBond TermBond Amt.GWPOther AmountAgency CodeCSI Zapłata TypePayment Number

" & Rs_PrintBondMarket_RefNo.GetString (2, iPageSize) & "
Note: " & agentnote & "
"
					p=p & "
"
					navurl= " print_refcodes.asp "
					
					p=p & ""
					dla i = (1) ipagecount
						jeżeli i = ipagecurrent wtedy
							p=p & "" & i & "" &" " 
						inny
							jeżeli i = request.form ("strona") wtedy
								fontsize= " 4 "
								color1= " błękit "
							inny
								fontsize= " (1) "
								color1= " czerń "
							kończyć jeżeli
							p=p & "  "
						kończyć jeżeli 
					następnie
					p=p & "
"
			    Rs_PrintBondMarket_RefNo.close
			    ustawiać Rs_PrintBondMarket_RefNo = Nic		
				ustawiać Cmd_PrintBondMarket_RefNo = Nic
				 
		inny
				p= "  "
				p=p & "
You upoważniać ten strona. Zadawalać kontakt jeżeli ty mieć jakaś question.
Close
"	
		kończyć jeżeli
		        Print_RefCodeByAgencyID=p
		końcówka funkcja

Odpowiedź : klasyczny asp recordset

Dla improvinf występ,
Ty móc jeden rzecz jeden -

Dodawać parametr ten sam zaopatrzony procedura PageSize i startingIndex.

I od baza danych brać tylko tamte dopasowywanie rząd.

sprawdzać dla zaopatrzony 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

Mieć Nadzieję problem rozwiązywać twój problem.
Inne rozwiązania  
 
programming4us programming4us