日期:2011-12-25  浏览次数:20870 次

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