ASP+Access随机读取数据库记录的方法

ASP&Access随机读取某段数据

在网上也搜索了很多,分享下我的方法...

以下是源代码：

Randomize(Timer())

SQL = "SELECT TOP 100 ID FROM table1 ORDER BY Rnd(-(ID + " & Int((10000 * Rnd) + 1) & "))"

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.Open SQL,Conn,1,1

If Not RS.EOF Then

       RS.MoveFirst

       For I = 1 To RS.RecordCount

              Response.Write RS(0) & "<br>"

              RS.MoveNext

       Next

End If

RS.Close

Set RS = Nothing