案例:ASP.net案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<%@ Import Namespace="System.Data.OleDb" %>
3
4
<script  runat="server">
5
sub Page_Load
6
dim dbconn,sql,dbcomm,dbread
7
dbconn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("/db/northwind.mdb"))
8
dbconn.Open()
9
sql="SELECT * FROM customers"
10
dbcomm=New OleDbCommand(sql,dbconn)
11
dbread=dbcomm.ExecuteReader()
12
customers.DataSource=dbread
13
customers.DataBind()
14
dbread.Close()
15
dbconn.Close()
16
end sub
17
</script>
18
19
<html>
20
<body>
21
22
<form runat="server">
23
<asp:DataList
24
id="customers"
25
runat="server"
26
cellpadding="2"
27
cellspacing="2"
28
borderstyle="inset"
29
backcolor="#e8e8e8"
30
width="100%"
31
headerstyle-font-name="Verdana"
32
headerstyle-font-size="12pt"
33
headerstyle-horizontalalign="center"
34
headerstyle-font-bold="True"
35
itemstyle-backcolor="#778899"
36
itemstyle-forecolor="#ffffff"
37
footerstyle-font-size="9pt"
38
footerstyle-font-italic="True">
39
40
<HeaderTemplate>
41
Customers Table
42
</HeaderTemplate>
43
44
<ItemTemplate>
45
<%#Container.DataItem("companyname")%>  in
46
<%#Container.DataItem("address")%>, <%#Container.DataItem("city")%>
47
</ItemTemplate>
48