檢查了一些貼子對於MSSQL資料庫一般可以採用這樣的語句：
<%
select top 50 * from someTable order by NewID()
%>

　　但是如果是Access資料庫的話似乎沒有什麼好的解決方法。

　　方法一：有人用如下程式碼以記錄總數為極大值來首先提取出指定數量的隨機數，然後以這些隨機數做為記錄ID。
<%
dim n,j
dim su()
dim a,b,k
b=myrs.RecordCount
Randomize
redim su(index_N)
su(1)=Int((b * Rnd) + 1)
for n=2 to index_N
a=Int((b * Rnd) + 1)
for j=1 to n
do while a=su(j)
a=Int((b* Rnd) + 1)
j=1
loop
next
su(n)=a
next
%>

　　這種方式有一些問題，就是當ID不是連續的話，有可能某些隨機數不存在ID序列當中。另外ID的最大值與總的記錄值不一定相等，這樣有些記錄ID會永遠被忽略。

　　方法二：有人採用一條SQL語句解決此問題：
<%
select top 50 * from table order by int(rand()*50)
%>

　　如果這條語句可行的話是個不錯的方法。我測試這條語句並沒有通過，如果有人知道是哪有問題請告訴我，非常感謝。

　　方法三：有這樣一種方法，我覺的不錯：
<%
yourstr="*1*3*4*6*12*...."
sql="select top 10 * form yourdb where instr('*'&id&'*','"&yourstr&"')<>0"
%>

　　yourstr可以生成隨機數多一點大於所限定抽取的隨機數為好，這樣可以排除記錄不足的情況。

　　方法四：
<%
n=10 '取任意10條記錄
set rs = server.createobject ("adodb.recordset")
sql = "select * from table"
rs.open sql,conn,1,1
count=rs.recordcount '記錄總數
if count<>empty then
randomize
for i=1 to n '迴圈n次
num=fix(rnd*count) 'num便是隨機產生的記錄行數，用fix()，使其不會大於count值
rs.move num '移到改隨機行
response.write rs(0) '出該條記錄
rs.movefirst '別忘了再把指標移到第一條
next
end if
rs.close
set rs=nothing
%>