日期: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 |