ASP.NET ??????

1
ASP.NET ?????? ???????

• ?9? ADO.NET ??????(?)

2
9-1 ADO.NET ????
3
ADO.NET ????
4
ADO.NET ?????? (1)
5
ADO.NET?????? (2)
6
????????
7
??????? (1)

• ADO.NET ???,DataSet ?????System.Data
  ????,??????????,???? System.Data ????,????

lt_at_ Import Namespace"System.Data" gt
8
??????? (2)

• ?Connection?Command?DataAdapter ? DataReader
  ??????System.Data.OleDb ? System.Data.SqlClient,??
  ????????,???? System.Data.OleDb ?
  System.Data.SqlClient ????,????

lt_at_ Import Namespace"System.Data.OleDb" gtlt_at_
Import Namespace"System.Data.SqlClient" gt
9
SqlClient ? OleDb ???

• System.Data.OleDb ???????????,????? Access?SQL
  Server?dBase?Excel???????,?System.Data.SqlClient
  ???? SQL Server ????????,??? SQL Server
  ???????????????
• ????,???? SQL Server ???,??? System.Data.SqlClient
  ???????,???? SQL Server ??????,????
  System.Data.OleDb ????????

10
???? (1)

• ?????????

11
???? (2)

• ??????????

' ??System.Data.OleDb???Dim conn As
OleDbConnectionDim cmd As OleDbCommandDim dr
As OleDbDataReaderDim adp As OleDbDataAdapter
' ??System.Data.SqlClient???Dim conn As
SqlConnectionDim cmd As SqlCommandDim dr As
SqlDataReaderDim adp As SqlDataAdapter
12
9-2 ???????
13
??? Connection - DataAdapter - DataSet -
DataGrid

• 1.Connection ???? Sample.mdb ????
• 2. DataAdapter ?????????????
• 3.DataSet ?????????????
• 4.DataGrid ???????????????
• 5.?? Sample.mdb ????

14
Route01.aspx ?? Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltscript
Language"VB" runat"server"gt   Sub
Page_Load(sender As Object, e As EventArgs)
' ??????? Dim Conn As OleDbConnection ' ????
Connection ?? Dim Adpt As OleDbDataAdapter '
???? DataAdapter ?? Dim Ds As DataSet '
???? DataSet ??
15
Route01.aspx ?? Part II
' Connection ???? Sample.mdb ??? Dim
Provider "ProviderMicrosoft.Jet.OLEDB.4.0"
Dim Database "Data Source" Server.MapPath(
"Sample.mdb" ) Conn New OleDbConnection(
Provider "" DataBase ) Conn.Open()
' DataAdapter ???????????? Dim SQL
"Select From ???" Adpt New
OleDbDataAdapter( SQL, Conn )
16
Route01.aspx ?? Part III
' DataSet???????????? Ds New Dataset()
Adpt.Fill(Ds, "???")   '
DataGrid?????????????? MyGrid.DataSource
Ds.Tables( "???" ).DefaultView
MyGrid.DataBind()   ' ??Sample.mdb???
Conn.Close() End Sub   lt/scriptgt
17
Route01.aspx
18
??????? (1)

• ???????????? -- Connection?DataAdapter?DataSet?Dat
  aGrid,?? DataGrid ???? HTML ????,??????????????,??
  ???

Dim Conn As OleDbConnection ' ???? Connection
?? Dim Adpt As OleDbDataAdapter ' ????
DataAdapter ?? Dim Ds As DataSet ' ???? DataSet
??
19
??????? (2)

• ?????OleDbConnection?OleDbDataAdapter ? DataSet
  ??????? System.Data.OldDb ? System.Data,??????????
  ?????????????,??

lt_at_ Import Namespace"System.Data" gtlt_at_ Import
Namespace"System.Data.OleDb" gt
20
Connection ???? Sample.mdb ???

• ????????????

Dim Provider "ProviderMicrosoft.Jet.OLEDB.4.0"
Dim Database "Data Source" Server.MapPath(
"Sample.mdb" ) Conn New OleDbConnection(
Provider "" DataBase ) Conn.Open()
21
DataAdapter ????????????

• ????????????

22
DataSet ????????????

• ????????????

Ds New Dataset()Adpt.Fill(Ds, "???")
23
DataGrid ??????????????

• ????????????

MyGrid.DataSource Ds.Tables( "???"
).DefaultViewMyGrid.DataBind()
24
?? Sample.mdb ???

• ??????????????

Conn.Close()
25
??? Connection - Command - DataReade

• 1. Connection ???? Sample.mdb ????
• 2. Command ?????????????
• 3. DataReader ?????????????
• 4. ?? DataReader ???????????,???????????
• 5. ?? Sample.mdb ????

26
Route02.aspx ?? Part I
Sub Page_Load(sender As Object, e As EventArgs)
' ??????? Dim Conn As OleDbConnection ' ????
Connection ?? Dim Cmd As OleDbCommand ' ????
Command ?? Dim Rd As OleDbDataReader ' ????
DataReader ??   ' Connection ???? Sample.mdb
??? Dim Provider "ProviderMicrosoft.Jet.OLED
B.4.0" Dim Database "Data Source"
Server.MapPath( "Sample.mdb" ) Conn New
OleDbConnection( Provider "" DataBase )
Conn.Open()
27
Route02.aspx ?? Part II
' Command ???????????? Dim SQL "Select
From ???" Cmd New OleDbCommand( SQL, Conn
)   ' DataReader ???????????? Rd
Cmd.ExecuteReader()   ' ??DataReader???????????
,?????????? OutputToTable( Rd )   ' ??
Sample.mdb ??? Conn.Close() End Sub
28
Route02.aspx ?? Part III
Sub OutputToTable( Rd As OleDbDataReader ) Dim
I As Integer Dim row As TableRow Dim cell
As TableCell   ' ?????????????? row New
TableRow() row.BackColor Drawing.Color.Yellow
For I 0 To Rd.FieldCount - 1 cell
New TableCell() cell.Text Rd.GetName(I)
row.Cells.Add( cell ) Next
Table1.Rows.Add( row )
29
Route02.aspx ?? Part IV
' ???????,??????? While Rd.Read() row
New TableRow() For I 0 To Rd.FieldCount -
1 cell New TableCell()
cell.Text Rd.Item(I) row.Cells.Add(
cell ) Next Table1.Rows.Add( row )
End While End Sub
30
Route02.aspx
31
Command ????????????
32
9-3 DataReader ??
33
????????
34
Reader01.aspx Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltscript
Language"VB" runat"server"gt   Sub
Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection Dim Cmd As
OleDbCommand Dim Rd As OleDbDataReader
Dim I As Integer   Dim Provider
"ProviderMicrosoft.Jet.OLEDB.4.0" Dim
Database "Data Source" Server.MapPath(
"Sample.mdb" ) Conn New OleDbConnection(
Provider "" DataBase )
35
Reader01.aspx Part II
Conn.Open() Dim SQL "Select From
???" Cmd New OleDbCommand( SQL, Conn )
Rd Cmd.ExecuteReader()   Msg.Text
"???ltULgt" For I 0 To Rd.FieldCount - 1
Msg.Text "ltLIgt" Rd.GetName(I)
"lt/LIgt" Next Msg.Text "lt/ULgt"
Conn.Close() End Sub   lt/scriptgt
36
Reader01.aspx Part III
ltHtmlgt ltBody BgColor"White"gt ltH3gt?????????????,??
??????? ltHRgtlt/H3gt ltForm runat"server"gt ltaspLabel
runat"server" id"Msg" /gt lt/Formgt ltpgt ltHRgtlt/Body
gt lt/Htmlgt
37
???????????

• ?? DataReader ???????????????,?????????

????????????? Read(),?????,??? TrueWhile
DataReader.Read() ?? DataReader
??????????????????End While
38
Item ??(1)

• ? While ???,?????????,???? Item ??,Item
  ??????????????,?????

DataReader.Item(????) DataReader.Item(????)
39
Item ??(2)

• ?????????????????,?????

40
Item ??(3)

• ?????? Item ?????

DataReader.Item(0) ?? 850301DataReader.Item(1)
?? "???"DataReader.Item(2) ?? 90DataReader.Item(
3) ?? 76DataReader.Item(4) ?? 98DataReader.Item
("??") ?? 850301DataReader.Item("??") ??
"???"DataReader.Item("??") ?? 90DataReader.Item(
"??") ?? 76DataReader.Item("??") ?? 98
41
Reader02.aspx
42
Reader02.aspx Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltscript
Language"VB" runat"server"gt   Sub
Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection Dim Cmd As
OleDbCommand Dim Rd As OleDbDataReader
Dim I As Integer   Dim Provider
"ProviderMicrosoft.Jet.OLEDB.4.0" Dim
Database "Data Source" Server.MapPath(
"Sample.mdb" ) Conn New OleDbConnection(
Provider "" DataBase )
43
Reader02.aspx Part II
Conn.Open() Dim SQL "Select From
???" Cmd New OleDbCommand( SQL, Conn )
Rd Cmd.ExecuteReader()   While
Rd.Read() Msg.Text "ltULgt"
For I 0 To Rd.FieldCount - 1
Msg.Text "ltLIgt" Rd.GetName(I) " " _
Rd.Item(I)
"lt/LIgt" Next Msg.Text
"lt/ULgt" End While   Conn.Close()
End Sub   lt/scriptgt
44
Reader02.aspx Part III
ltHtmlgt ltBody BgColor"White"gt ltH3gt??????????? ltHRgt
lt/H3gt ltForm runat"server"gt ltaspLabel
runat"server" id"Msg" /gt lt/Formgt ltpgt ltHRgtlt/Bodygt
lt/Htmlgt
45
??????????

• ?? Iten ????,??????????????????????????

46
GetDataTypeName ?? (1)

• ???????????,???????????,????????

47
GetDataTypeName ?? (2)

• ?? GetDataTypeName ????????

48
GetOrdinal ??

• ???????????????,???????????,???????????????0???1
  ???2???3???4?,??

DataReader.GetOrdinal("??") ?? 0 DataReader.GetOrd
inal("??") ?? 1 DataReader.GetOrdinal("??") ??
2 DataReader.GetOrdinal("??") ??
3 DataReader.GetOrdinal("??") ?? 4
49
IsDbNull ??

• ??????????? Null(?????? Null) ,???????????,???????
  ???,?????

DataReader.IsDbNull(0) ?? FalseDataReader.IsDbNul
l(1) ?? FalseDataReader.IsDbNull(2) ?? False
50
GetValues ??(1)

• ??????????Item???????????????,? GetValues
  ????????????????,????

' ??????,??????????????Dim Fields(DataReader.Fiel
dCount-1) ' ????????????DataReader.GetValues(Fi
elds)
51
GetValues ??(2)

• ???????????,??????????,?????????,Fields ?????

Fields(0) 850301Fields(1) "???"Fields(2)
90Fields(3) 76Fields(4) 98
52
GetValues ??(3)

• Reader03.aspx ??

Dim Fields(Rd.FieldCount-1)While Rd.Read()
Rd.GetValues(Fields) Msg.Text "ltULgt" For
I 0 To Rd.FieldCount - 1 Msg.Text
"ltLIgt" Rd.GetName(I) " " _
Fields(I) "lt/LIgt" Next
Msg.Text "lt/ULgt" End While
53
????? Table ?????(1)

• Route02.aspx ???? DataReader ??????,??????? Table
  ??????
• ? Route02.aspx ???,?? Table ?????????

ltaspTable runat"server" id"Table1" Border1
CellPadding2 CellSpacing1 /gt
54
????? Table ?????(2)

• ????????? DataTable ?????????

01 Sub OutputToTable( Rd As OleDbDataReader
) 02 Dim I As Integer 03 Dim row As
TableRow 04 Dim cell As TableCell 05 06
' ?????????????? 07 row New
TableRow() 08 row.BackColor
Drawing.Color.Yellow
55
????? Table ?????(3)
09 For I 0 To Rd.FieldCount - 1 10
cell New TableCell() 11 cell.Text
Rd.GetName(I) 12 row.Cells.Add( cell
) 13 Next 14 Table1.Rows.Add( row
) 15 16 ' ???????,??????? 17 While
Rd.Read() 18 row New TableRow() 19
For I 0 To Rd.FieldCount - 1 20 cell
New TableCell() 21 cell.Text
Rd.Item(I) 22 row.Cells.Add( cell ) 23
Next 24 Table1.Rows.Add( row ) 25
End While 26 End Sub
56
????? Table ?????(4)

• Table ?????????

57
9-4 ??????Select ??
58
??????Select ??
??? DataAdapter ????????????Dim SQL "Select
From ???"Adpt New OleDbDataAdapter( SQL, Conn
) ?? ? Command ????????????Dim SQL "Select
From ???" Cmd New OleDbCommand( SQL, Conn )
59
?????Select ???? From ???

• ?? ??????????????(??????????????????)??????,????
  ?????

60
??????? (1)

• ???????????????????????,??
• ?????????,??????????????,??

Select ??, ??, ??, ?? From ??? (?)Select ??, ??
From ??? ()
Select ??, ??, ??, ?? From ??? (?)Select ??, ??,
??, ?? From ??? (?)
61
??????? (2)
62
?????????? (1)
???1 As ??1, ???2 As ??2,

• ??

Select ???? As ID, ???? As Stock From ?????
63
?????????? (2)

• ??????????????????????????,??

Select ??, ??, ??, ??, ??, ?????? As ??? From
???
64
???? Select ???
65
?????Select...From...Where ?????
66
?????Select...From...Order By ????(1)

• ???????

67
?????Select...From...Order By ????(2)

• ???????

68
?????Select...From...Order By ????(3)

• ???????

69
?????Select...From...Order By ????(4)

• Order By ???? Where ?????,?? Order By ???? Where
  ??????,??

Select From ??? Where ?? gt 60 Order By ?? Desc
70
?????Select...From...Order By ????(5)

• ?Order By ??????????????????????,?????SQL??????
• ???????????????????,????????

Select ??, ?????? As ??? From ???Order By ???
()
Select ??, ?????? As ??? From ???Order By
?????? (?)
71
Select Top??????????

• ???????,?????????,??????,??
• ???????
• ?? Percent ?????????,??????????? 30
  ????,????????? 3 ?????

Select Top 10 From ??? Order By ?????? Desc
Select Top 10 Percent From ??? Order By
?????? Desc
72
???

• ??? Sample.mdb ???????????????,???? Select ??
• (1)?????????????? 3500?(2)???????????????
  3?(3)??????(??, ??, ?????????)?? 240?

73
???

• ???? Select ??
• (1) ?Sample.mdb?????????????,??????????????
  ??????,???????????,????????????(2) ? Sample.mdb
  ????????????,??????????,a. ??????(?????/???
  )b. ????????(?????(???-???)/??? )c.
  ???????(????, ???????????)

74
?Where ??????? --????

• ? Where ????,???????? " " ???? '
  '(???)??,??(???????????????????)

Select From ??? Where ?? '???' (??)Select
From ??? Where ?? "???" (??)
75
?Where ??????? -- ????

• ??????????????,????????
• ???????????? ? ?????,? ? ??????????????,?

Select From ??? Where ?? Like '?'
Select From ??? Where ?? Like '?'
76
?Where ??????? -- vs. _

• ?? 0N ???,? "_" ????????,??

"DATA" Like "DAT_" ???True"DAT" Like
"DAT_" ???False"DAT" Like "DAT ???True"DAT
ABASE" Like "DAT_" ???False"DATABASE" Like
"DAT" ???True
77
?Where??????? -- P. 396 ??

• ??? Sample.mdb ???????????????,???? Select ??
• (1)????????????????(2)?????????????????(3)?
  ???????????????(4)????????????????,???????????
  (5)?????????????????????????

78
Where ???? Between ?? And ??

• ???????????
• Where ???? gt ?? And
• ???? SQL ???????????? 50 ? 60 ??(?? 50 ? 60)????

Select From ??? Where ?? Between 50 And 60
79
Where ???? In (??, ??, )

• ???????? (??, ??, ) ???,?????,??

Select From ??? Where ?? In ('???', '???',
'???')
80
Where ???? Is Null / Where ???? Is Not Null

• ????????????????????,??????? Null
  ??,??????????????? Null ??? Null ?????

81
VB ?????

• ??
• ????????????????? "?" ?????

Select From ??? Where Mid(??, 2, 1) '?'
82
?Where??????? --P. 398 ??

• ??? Sample.mdb ???????????????,???? Select ??
• (1)?????????? 100 ? 200 ???(2)????????????????
  ??????????(3)????????????? 3?

83
????????? (1)

• ?????????

(1) V 200SQL "Select From ????? Where ???
gt V"Adpt New OleDbDataAdapter( SQL, Conn )
(2) SQL "Select From ????? Where ??? gt " V
(3) SQL "Select From ????? Where ??? gt 200"
84
????????? (2)

• ?????????

(5) V "2301"SQL1 "Select From ????? Where
???? '" V "'"V 07/02/1997SQL2
"Select From ???? Where ???? " V ""
(6) Select From ????? Where ????'2301'Select
From ???? Where ???? 1997/07/02
85
9-5 ?? DataTable ??
86
?? DataTable ??

• Select ???????

87
DataTable ???????(1)

• ?????,??? DataTable ? DefaultView.RowFilter
  ??,???????????????,???????
• ?? DataGrid ???????????????

Ds.Tables("???").DefaultView.RowFilter "?? gt
60"MyGrid.DataSource Ds.Tables("???").DefaultVi
ewMyGrid.DataBind()
88
DataTable ???????(2)

• RowFilter ?????????? Select??? Where
  ?????,?????????????

?? lt 60 ????????"?? lt 60 Or ?? lt
60" ???????????????"?? gt 80 And ?? gt 90" ??
gt80 ??? gt90 ???
89
Filter.aspx

• Filter.aspx ????? RowFilter ????????????

90
Filter.aspx Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltHtmlgt ltBody
BgColor"White"gt ltH3gtFilter.aspx -- ??
Default.RowFilter ????ltHRgtlt/H3gt ltForm
runat"server"gt ltaspTextBox runat"Server"
id"Filter" Size"40" /gt (???????)ltBrgt ltaspButton
runat"server" Text"??" OnClick"Button_Click"
/gt ltBlockquotegt
91
Filter.aspx Part II
ltaspDataGrid runat"server" id"MyGrid"
AllowPaging"True" PageSize"10"
OnPageIndexChanged"ChangePage"
PagerStyle-HorizontalAlign"Right"
PagerStyle-NextPageText"???"
PagerStyle-PrevPageText"???"
HeaderStyle-BackColor"AAAADD"
AlternatingItemStyle-BackColor"FFFFC0"
BorderColor"Black" CellPadding"2"
CellSpacing"0" /gtltpgt lt/Formgt lt/Blockquotegt ltHRgtlt/
Bodygt lt/Htmlgt
92
Filter.aspx Part III
ltscript Language"VB" runat"server"gt   Sub
OpenDataBase_And_BindToDataGrid() Dim Conn
As OleDbConnection Dim Adpt As
OleDbDataAdapter Dim Ds As DataSet  
Dim Provider "ProviderMicrosoft.Jet.OLEDB.4.0"
Dim Database "Data Source"
Server.MapPath( "Sample.mdb" ) Conn New
OleDbConnection( Provider "" DataBase )
Conn.Open() Dim SQL "Select
From ???" Adpt New OleDbDataAdapter(
SQL, Conn )
93
Filter.aspx Part IV
Ds New Dataset() Adpt.Fill(Ds, "???")  
Ds.Tables("???").DefaultView.RowFilter
Filter.Text MyGrid.DataSource
Ds.Tables("???").DefaultView
MyGrid.DataBind()   Conn.Close() End
Sub   Sub Page_Load(sender As Object, e As
EventArgs) If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid() End If
End Sub
94
Filter.aspx Part V
Sub Button_Click(sender As Object, e As
EventArgs) OpenDataBase_And_BindToDataGrid(
) End Sub   Sub SortPage(sender As Object,
e As EventArgs) OpenDataBase_And_BindToData
Grid() End Sub   Sub ChangePage(sender As
Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex e.NewPageIndex
OpenDataBase_And_BindToDataGrid() End
Sub lt/scriptgt
95
DataTable ?????????(1)

• DataTable ??????(DataRow ??)?????

96
DataTable ?????????(2)

• ??? DataRow ????????(Item)???,????????,???
  DataRow ?????????????????????????? 6????,?? I ?
  DataRow ????,?????????

97
NewField.aspx
98
NewField.aspx Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltscript
Language"VB" runat"server"gt   Sub
Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection Dim Adpt As
OleDbDataAdapter Dim Ds As DataSet  
99
NewField.aspx Part II
Dim Provider "ProviderMicrosoft.Jet.OLEDB.4.0"
Dim Database "Data Source"
Server.MapPath( "Sample.mdb" ) Conn New
OleDbConnection( Provider "" DataBase )
Conn.Open() Dim SQL "Select From ???"
Adpt New OleDbDataAdapter( SQL, Conn )
Ds New Dataset() Adpt.Fill(Ds,
"???")   ' ????????? Dim I Dim
Table1 As DataTable Ds.Tables( "???" )
Table1.Columns.Add(New DataColumn("???",
GetType(Integer)))
100
NewField.aspx Part III
' ?????? For I 0 To Table1.Rows.Count -
1 Dim ??? As Integer ???
Table1.Rows(I).Item("??") _
Table1.Rows(I).Item("??") _
Table1.Rows(I).Item("??")
Table1.Rows(I).Item("???") ??? Next  
MyGrid.DataSource Table1.DefaultView
MyGrid.DataBind() Conn.Close() End
Sub   lt/scriptgt
101
NewField.aspx Part IV
ltHtmlgt ltBody BgColor"White"gt ltH3gtNewField.aspx
-- ?? DataTable ??????????? ltHRgtlt/H3gt ltCentergt ltFo
rm runat"server"gt ltaspDataGrid runat"server"
id"MyGrid" HeaderStyle-BackColor"AAAADD"
AlternatingItemStyle-BackColor"FFFFC0"
BorderColor"Black" CellPadding"2"
CellSpacing"0" /gt lt/Formgt ltpgtlt/Centergt ltHRgtlt/Body
gt lt/Htmlgt
102
Select ??? DataTable ?????
103
9-6 Repeater ? DataList ????
104
Repeater ? DataList ????(1)

• ??????????????,??

105
Repeater ? DataList ????(1)

• ???????????,???????????????????,??

106
Repeater ????

• ?? Repeater ???? ,?Repeat1.aspx????

107
Repeat1.aspx Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltHtmlgt ltBody
BgColor"White"gt ltH3gtRepeater ?????????ltHRgtlt/H3gt lt
Blockquotegt ltForm runat"server"gt ltaspRepeater
runat"server" id"MyRepeater"gt ltItemTemplategt
ltBgtlt Container.DataItem("??") gt(lt
Container.DataItem("??") gt) lt/Bgt
108
Repeat1.aspx Part II
ltblockquotegt ?? lt Container.DataItem("??
") gt, ?? lt Container.DataItem("??")
gt, ?? lt Container.DataItem("??") gt
lt/blockquotegt lt/ItemTemplategt lt/aspRepeatergt lt/Fo
rmgt ltpgtlt/Blockquotegt ltHRgtlt/Bodygt lt/Htmlgt
109
Repeat1.aspx Part III
ltscript Language"VB" runat"server"gt   Sub
Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection Dim Adpt As
OleDbDataAdapter Dim Ds As DataSet  
Dim Provider "ProviderMicrosoft.Jet.OLEDB.4.0"
Dim Database "Data Source"
Server.MapPath( "Sample.mdb" ) Conn New
OleDbConnection( Provider "" DataBase )
Conn.Open()
110
Repeat1.aspx Part IV
Dim SQL "Select From ???" Adpt New
OleDbDataAdapter( SQL, Conn )   Ds New
Dataset() Adpt.Fill(Ds, "???")  
MyRepeater.DataSource Ds.Tables( "???"
).DefaultView MyRepeater.DataBind()  
Conn.Close() End Sub   lt/scriptgt
111
AlternatingItemTemplate ??

• ?????????????????????????????,??

112
Repeat2.aspx Part I
ltaspRepeater runat"server" id"MyRepeater"gt   ltI
temTemplategt ltpgtltTable Border"0" BgColor"Blue"
Width"300"gtltTrgtltTdgt ltFont Color"White"gt lt
Container.DataItem("??") gt(lt
Container.DataItem("??") gt)ltBrgt ?? lt
Container.DataItem("??") gt, ?? lt
Container.DataItem("??") gt, ?? lt
Container.DataItem("??") gt lt/Fontgt lt/Tdgtlt/Trgtlt/Ta
blegt lt/ItemTemplategt
113
Repeat2.aspx Part II
ltAlternatingItemTemplategt ltpgtltTable Border"0"
BgColor"Black" Width"300"gtltTrgtltTdgt ltFont
Color"White"gt lt Container.DataItem("??")
gt(lt Container.DataItem("??") gt)ltBrgt ??
lt Container.DataItem("??") gt, ?? lt
Container.DataItem("??") gt, ?? lt
Container.DataItem("??") gt lt/Fontgt lt/Tdgtlt/Trgtlt/Ta
blegt lt/AlternatingItemTemplategt   lt/aspRepeater
gt
114
SeparatorTemplate ??
115
Repeat3.aspx Part I
lt_at_ Import Namespace"System.Data" gt lt_at_ Import
Namespace"System.Data.OleDb" gt   ltHtmlgt ltBody
BgColor"White"gt ltH3gtRepeat3.aspx -- ??
SeparatorTemplate ??ltHRgtlt/H3gt ltBlockquotegt ltForm
runat"server"gt ltaspRepeater runat"server"
id"MyRepeater"gt   ltItemTemplategt ltTable
Border"0" Width"70"gtltTrgt ltTd
width"160"gt ltImg Src'lt
Container.DataItem("??") gt'gt lt/Tdgt
116
Repeat3.aspx Part II
ltTdgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gt lt/Tdgt lt/Trgtlt/Tablegt lt/ItemTemplategt  
ltSeparatorTemplategt ltHr Width"70"
Align"Left"gt lt/SeparatorTemplategt   lt/aspRepeate
rgt lt/Formgt ltpgtlt/Blockquotegt ltHRgtlt/Bodygt lt/Htmlgt
117
Repeat3.aspx Part III
ltscript Language"VB" runat"server"gt   Sub
Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection Dim Adpt As
OleDbDataAdapter Dim Ds As DataSet  
Dim Provider "ProviderMicrosoft.Jet.OLEDB.4.0"
Dim Database "Data Source"
Server.MapPath( "Sample.mdb" ) Conn New
OleDbConnection( Provider "" DataBase )
Conn.Open()
118
Repeat3.aspx Part IV
Dim SQL "Select From ????" Adpt New
OleDbDataAdapter( SQL, Conn )   Ds New
Dataset() Adpt.Fill(Ds, "????")  
MyRepeater.DataSource Ds.Tables( "????"
).DefaultView MyRepeater.DataBind()  
Conn.Close() End Sub   lt/scriptgt
119
ItemTemplate ?????

• ? ItemTemplate ????,?????????

120
?? bar.gif ????????
121
?? bar.gif ????????(2)

• ? Repeat4.aspx ???,SeparatorTemplate ???????

ltSeparatorTemplategt ltImg Src"bar.gif"gtlt/Separ
atorTemplategt
122
HeaderTemplate ? FooterTemplate ??
123
Repeat5.aspx ?? Part I
ltItemTemplategt ltBgtlt Container.DataItem("??")
gt(lt Container.DataItem("??") gt) lt/Bgt
ltblockquotegt ?? lt Container.DataItem("??"
) gt, ?? lt Container.DataItem("??") gt,
?? lt Container.DataItem("??") gt
lt/blockquotegt lt/ItemTemplategt   ltFooterTemplategt
ltTable Border"0" BgColor"Blue"gtltTrgtltTdgt
ltFont Color"White" Size"-1"gt??????????????????lt/
Fontgt lt/Tdgtlt/Trgtlt/Tablegt lt/FooterTemplategt
124
Repeat5.aspx ?? Part II
ltItemTemplategt ltBgtlt Container.DataItem("??")
gt(lt Container.DataItem("??") gt) lt/Bgt
ltblockquotegt ?? lt Container.DataItem("??"
) gt, ?? lt Container.DataItem("??") gt,
?? lt Container.DataItem("??") gt
lt/blockquotegt lt/ItemTemplategt
125
Repeat5.aspx ?? Part III
ltFooterTemplategt ltTable Border"0"
BgColor"Blue"gtltTrgtltTdgt ltFont Color"White"
Size"-1"gt??????????????????lt/Fontgt
lt/Tdgtlt/Trgtlt/Tablegt lt/FooterTemplategt   lt/aspRepea
tergt lt/Formgt ltpgtlt/Blockquotegt ltHRgtlt/Bodygt lt/Htmlgt
126
DataList ????

• ?? DataList ??????? Repeater ????,?????? DataList
  ???????Repeater ????,?????
• ??? DataList ?? Repeater,????????????????,?
  DataList ?????????? ltTablegt?ltTrgt ? ltTdgt
  ???,????????,? Repeater ????????,?????? HTML ???

127
Repeat1.aspx ?????
ltBgtlt Container.DataItem("??") gt(lt
Container.DataItem("??") gt) lt/Bgt ltblockquotegt
?? lt Container.DataItem("??") gt, ??
lt Container.DataItem("??") gt, ?? lt
Container.DataItem("??") gt lt/blockquotegt
128
Repeat1.aspx ??????? HTML ?
ltBgt???(850301) lt/Bgt ltblockquotegt ?? 90,
?? 76, ?? 98 lt/blockquotegt   ...(???)
129
DList1.aspx ?????
ltBgtlt Container.DataItem("??") gt(lt
Container.DataItem("??") gt) lt/Bgt ltblockquotegt
?? lt Container.DataItem("??") gt, ??
lt Container.DataItem("??") gt, ?? lt
Container.DataItem("??") gt lt/blockquotegt
130
Dlist1.aspx ??????? HTML ?
lttable id"MyDataList" cellspacing"0" border"0"
style"border-collapsecollapse"gt lttrgt lttdgt
ltBgt???(850301) lt/Bgt ltblockquotegt ??
90, ?? 76, ?? 98
lt/blockquotegt lt/tdgt lt/trgtlttrgt
lttdgt...(???)
131
?? Repeat1.aspx ? Dlist.aspx (1)

• DataList ??? ltTablegt?ltTrgt ? ltTdgt ???????,?
  Repeater ??????????,????????,?????? ltTablegt?ltTrgt
  ? ltTdgt ??????????????

132
?? Repeat1.aspx ? Dlist.aspx (2)
133
????????

• ? Repeater ??,???????????,??? DataList
  ??,?????????????

134
? DataList ????????
135
Dlist4.aspx ?? Part I
ltaspDataList id"MyDataList" runat"server"
RepeatDirection"Horizontal"
RepeatColumns"2" gt   ltItemTemplategt
ltTablegtltTrgt ltTdgt ltImg Src'lt
Container.DataItem("??") gt'gt lt/Tdgt
136
Dlist4.aspx ?? Part II
ltTdgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gtltbrgt ?? lt Container.DataItem("??")
gt lt/Tdgt lt/Trgtlt/Tablegt lt/ItemTemplategt  
lt/aspDataListgt
137
DataList ? RepeatColumns ??

• ??????????,??????? "2",?????????2????

138
DataList ? RepeatDirection ??(1)

• ???????,????? "Horizontal" ? "Vertical"?
• ???? Horizontal,???????????,????????
• ???? Vertical,???????????,????????

139
DataList ? RepeatDirection ??(2)

• ?????10???,? RepeatColumns ?????
  2?RepeatDirection ????? "Horizontal",???????

140
DataList ? RepeatDirection ??(3)

• ?? RepeatColumns ????? 2?RepeatDirection ?????
  "Vertical",???????

141
DataList ? RepeatDirection ??(4)
142
?? SelectedItemTemplate (?????)
143
?? DataList ??? (1)

• DataList ???????? DataGrid ????,?????

144
?? DataList ??? (2)

• ???????????????

ltaspDataList id"MyDataList" runat"server"
Border"1" BorderColor"Black"
CellPadding"2" CellSpacing"0"
HeaderStyle-BackColor"aaaadd"
AlternatingItemStyle-BackColor"lightgray"
SelectedItemStyle-BackColor"yellow"
OnItemCommand"DataList_ItemCommand" gt
145
?? DataList ??? - - HeaderTemplate

• ????,???? ,????

ltHeaderTemplategt ??(??)lt/HeaderTemplategt
146
?? DataList ??? -- ItemTemplate

• ????,?????????????,??
• ????

ltItemTemplategt lt Container.DataItem("??")gt
(lt Container.DataItem("??")gt)
ltaspLinkButton id"Detail" runat"server"
Text"????"/gtlt/ItemTemplategt
147
?? DataList ??? -- SelectedItemTemplate (1)

• ?????,??????????,????

ltSelectedItemTemplategt ?? lt
Container.DataItem("??")gtltBRgt ?? lt
Container.DataItem("??")gtltBRgt ?? lt
Container.DataItem("??")gtltBRgt ?? lt
Container.DataItem("??")gtltBRgt ?? lt
Container.DataItem("??")gtltBRgt ltaspLinkButton
id"Title" runat"server" Text"????"/gt lt/Selected
ItemTemplategt
148
?? DataList ??? -- SelectedItemTemplate (2)

• ??????????

149
?? DataList ??? -- SelectedItemTemplate (3)

• (1) ?? ltaspLinkButtongt ????,????????,????????
  ??? (2) ??????? ltaspDataListgt ?????
  SelectedItemStyle-BackColor ????

ltaspDataList id"DataList1" runat"server"
Border"1" BorderColor"Black"
CellPadding"2" CellSpacing"0"
HeaderStyle-BackColor"aaaadd"
AlternatingItemStyle-BackColor"lightgray"
SelectedItemStyle-BackColor"yellow"
OnItemCommand"DataList_ItemCommand" gt
150
????????????????? -- OnItemCommand ??

• ltaspDataListgt ? OnItemCommand ??????
  DataList_ItemCommand,???? ltaspDataListgt
  ????????,???? DataList_ItemCommand ?????

151
????????????????? -- ?????????(1)

• ltaspLinkButtongt ????)??????,???????Text??????
  "????"????????Text?????? "????",??

ltaspLinkButton id"Detail" runat"server"
Text"????"/gtltaspLinkButton id"Title"
runat"server" Text"????"/gt
152
????????????????? -- ?????????(2)

• ????? DataList_ItemCommand ???????????????????????
  ??????????

Sub DataList_ItemCommand(sender As Object, e As
DataListCommandEventArgs) If
e.CommandSource.Text "????" Then
DataList1.SelectedIndex e.Item.ItemIndex
ElseIf e.CommandSource.Text "????" Then
DataList1.SelectedIndex -1 End If
OpenDatabase_and_LinkToDataList() End Sub