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 |
