学步园

DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

script runat="server">

  protected void Page_Load( object sender, EventArgs e )
  {
    Random rnd = new Random(unchecked((int)DateTime.Now.Ticks));
    int intRandomNumber = rnd.Next();
    string ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|aspxWeb.mdb;Persist Security Info=True";
    string sql = "select top 10 Title,objectGuid from Document  Order By  Rnd(" + (-1 * intRandomNumber) + "*id)";
    System.Data.OleDb.OleDbConnection cn = new System.Data.OleDb.OleDbConnection(ConnectionString);
    cn.Open();
    System.Data.OleDb.OleDbCommand cmd = new System.Data.OleDb.OleDbCommand(sql, cn);
    System.Data.OleDb.OleDbDataReader dr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection);
    GridView1.DataSource = dr;
    GridView1.DataBind();
    dr.Close();
    cmd.Dispose();
    cn.Dispose();
    cn = null;

  }
script>

html xmlns="http://www.w3.org/1999/xhtml">
head runat="server">
  title>随机读取Access数据库记录title>
head>
body>
  form id="form1" runat="server">
    div>
      asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="false">
        Columns>
          asp:HyperLinkField DataNavigateUrlFields="objectGuid" HeaderText="文章" DataTextField="Title"
            DataNavigateUrlFormatString="http://dotnet.aspx.cc/article/{0}/read.aspx" />
        Columns>
      asp:GridView>
    div>
  form>
body>
html>

DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

script runat="server">

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim TimeString As String = DateTime.Now.Ticks.ToString()
    Dim a As UInt32 = UInt32.Parse(TimeString.Substring(TimeString.Length - 8, 8))
    Dim b As Int32 = BitConverter.ToInt32(BitConverter.GetBytes(a), 0)
    Dim rnd As Random = New Random(b)
    Dim intRandomNumber As Integer = rnd.Next
    Response.Write(intRandomNumber)
    Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|aspxWeb.mdb;Persist Security Info=True"
    Dim sql As String = "select top 10 Title,objectGuid from Document Order By Rnd(" + (-1 * intRandomNumber).ToString() + "*id)"
    Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConnectionString)
    cn.Open()
    Dim cmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(sql, cn)
    Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
    GridView1.DataSource = dr
    GridView1.DataBind()
    dr.Close()
    cmd.Dispose()
    cn.Dispose()
    cn = Nothing
  End Sub
script>

html xmlns="http://www.w3.org/1999/xhtml">
head id="Head1" runat="server">
  title>随机读取Access数据库记录title>
head>
body>
  form id="form1" runat="server">
    div>
      asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="false">
        Columns>
          asp:HyperLinkField DataNavigateUrlFields="objectGuid" HeaderText="文章" DataTextField="Title"
            DataNavigateUrlFormatString="http://dotnet.aspx.cc/article/{0}/read.aspx" />
        Columns>
      asp:GridView>
    div>
  form>
body>
html>