菜鸟学堂在线工具

源代码

<HTML>
<HEAD></HEAD>

&lt;%@ Import Namespace="System.Data.OleDb" %&gt; &lt;script&nbsp; runat="server"> sub Page_Load dim dbconn,sql,dbcomm,dbread dbconn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("/db/northwind.mdb")) dbconn.Open() sql="SELECT * FROM customers" dbcomm=New OleDbCommand(sql,dbconn) dbread=dbcomm.ExecuteReader() customers.DataSource=dbread customers.DataBind() dbread.Close() dbconn.Close() end sub &lt;/script&gt; &lt;!DOCTYPE html> &lt;html> &lt;body> &lt;form runat="server"> &lt;asp:DataList id="customers" runat="server" cellpadding="2" cellspacing="2" borderstyle="inset" backcolor="#e8e8e8" width="100%" headerstyle-font-name="Verdana" headerstyle-font-size="12pt" headerstyle-horizontalalign="center" headerstyle-font-bold="True" itemstyle-backcolor="#778899" itemstyle-forecolor="#ffffff" footerstyle-font-size="9pt" footerstyle-font-italic="True"> &lt;HeaderTemplate> Customers Table &lt;/HeaderTemplate> &lt;ItemTemplate> &lt;%#Container.DataItem("companyname")%&gt;&nbsp; in &lt;%#Container.DataItem("address")%&gt;, &lt;%#Container.DataItem("city")%&gt; &lt;/ItemTemplate> &lt;FooterTemplate> Source: Northwind Database &lt;/FooterTemplate> &lt;/asp:DataList> &lt;/form> &lt;/body> &lt;/html> 
</HTML>

运行结果 在线运行