asp在access中随机抽取记录集

因为asp+access的模式下没有 sql server 中 select top 10 * from 表 order by newid();类似的方法。

所以要实现这东西显得比较麻烦。下面这个方法感觉不错。

<%

Dim Con,minPID,RS
Set Con= Server.CreateObject("ADODB.CONNECTION")
Con.ConnectionString = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("*.mdb")
Con.CommandTimeout = 20
Con.CursorLocation = 3
Con.OpenRandomize
Set RS = Con.Execute("SELECT TOP 3 [content_] FROM [T1] ORDER BY rnd(-(id_+" &amp;amp; rnd() & "))")
Do While Not RS.EOF
Response.Write RS.Fields("content_").Value & "<br />"
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Con.Close
Set Con = Nothing

%>

http://www.cnblogs.com/dsclub/archive/2005/01/06/87095.html