<%@ Page Language="VB" %><%@ Import Namespace="System.Data.OleDb" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server"> Dim connstr As String Dim sql As String Dim mycommand As OleDbCommand Dim myread As OleDbDataReader Dim conn As OleDbConnection Sub page_load(ByVal sender As Object, ByVal e As EventArgs) connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("rizhi.mdb") & ";User Id=;Password=;" conn = New OleDbConnection(connstr) conn.Open() sql = "select * from rizhi" mycommand = New OleDbCommand(sql, conn) myread = mycommand.ExecuteReader() GridView1.DataSource = myread GridView1.DataBind() 'Dim i As Integer 'Do While myread.Read() ' i = i + 1 'Loop 'Response.Write(i) End Sub</script>
<html xmlns="http://www.w3.org/1999/xhtml" ><head runat="server"> <title>无标题页</title></head><body> <form id="form1" runat="server"> <div> <asp:GridView ID="GridView1" runat="server"> </asp:GridView> </div> </form></body></html>
