Asp ado getrows () usage demonstration by shawl. Qiu

Asp ado getrows () usage demonstration by shawl. Qiu

Note:
This article demonstrates how to use ADO getrows () to display data.

Shown:

Quote:

Default by 0
4 fields 4 records

Line: 0 field 0: 1-|-Field 1: IT terminology-|-Field 2: 2006-5-12-|-Field 3: 20:46:16-|-field 4: 1
Line: 1 Field 0: 2-|-Field 1: vocabulary-|-Field 2: 2006-5-16-|-Field 3: 13:23:00-|-field 4: 888
Line: 2 Field 0: 3-|-Field 1: political term-|-Field 2: 2006-5-16-|-Field 3: 17:36:11-|-field 4: 60
Line: 3 field 0: 4-|-Field 1: natianadi-|-Field 2: 2006-5-16-|-Field 3: 17:50:52-|-field 4: 999
Line: 4 field 0: 5-|-Field 1: commercial term-|-Field 2: 2006-5-25-|-Field 3: 18:37:11-|-field 4: 20

Shawl. Qiu
2006-09-08
Http://blog.csdn.net/btbtd

Main content:

Linenum
1. <%
2. Dim RS, AR, fldar
3. Fldar = array ("sbid", "sbcat ")'
4. 'Fldar = array ("sbcat", "sbid ")'
6. Call fcreaters (RS) 'Call the create recordset Function
7. With RS
8. . Open "select * From vt1", Conn
9. 'Assign the array value to the AR variable.
10. '''''''''''''''''''''''''''''''''''''''' ''''''''''
11. 'Ar =. getrows (10, fldar) '(select 10 records. [select all records for null values]. The function is unknown. Select an array of fields. [select all fields for null values])
12. AR =. getrows 'assigns the value obtained by getrows to the variable ar
13. '''''''''''''''''''''''''''''''''''''''' ''''''''''
14. End
15. Call fclosers (RS) 'Call to disable the recordset Function
17. Dim rs1_, rstotal
18. Rsund = ubound (AR, 1) 'indicates the total number of table fields, starting with 0.
19. Rstotal = ubound (AR, 2) 'indicates the total number of table records, starting with 0.
21. Response. Write "default by 0 <br/>"
22. Response. Write rs1_& "fields" & rstotal & "records <p/>" 'total number of printed fields and total number of records
24. Dim item, temp
25. For item = 0 to rstotal all records are output cyclically
26. Response. Write "line :"
27. Response. Write item
28. Response. Write "& nbsp ;"
29. For temp = 0 to rsrent' loop outputs data of all fields
30. Response. Write "field"
31. Response. Write temp
32. Response. Write ":"
33. Response. Write AR (temp, item) '(field number, row number)
34. If temp <rsrentthen response. Write "<font color =" red ">-|-</font>"
35. Next 'shawl. Qiu Code'
36. Response. Write "<br/>"
37. Next
39. Function fcreaters (RS)
40. Set rs = Createobject ("ADODB. recordset ")
41. End Function
43. Function fclosers (RS)
44. Rs. Close
45. Set rs = nothing
46. End Function
47. %>