如何从数据库中随机取出10条记录的方法

答案：
 <SCRIPT LANGUAGE=vbscript>   
  function xipai(mystr)   
  xipai=""   
  if len(mystr)=0 then'如果是空的，那么初试化一付连续的牌   
  for i=1 to 52   
  mystr=mystr & "<" & i & "> "     
  next   
  end if   
  dim i,x   
  for i=1 to 52   
  myarry=split(mystr) 'myarry是下标52的数组，前0-51个有效   
  randomize   
  x=cint(rnd*(ubound(myarry)-1))'前0-51个随便找一个   
  mystr=replace(mystr, myarry(x) & space(1),"")'从没发的牌中随便挑一张   
  xipai=xipai &   myarry(x) & space(1)   
  next   
  end function   
    
  function XP(n)   
  mystr="xipai("""")"   
  dim i   
  for i=1 to n   
  mystr="xipai(" & mystr & ")"   
  next  
  'XP=eval(mystr)   
XP=eval(mystr)  
  end function   
  document.write   "洗牌完美版" & "
"   
  document.write   "洗一次牌:" & XP(1) & "
"   
  document.write   "洗两次牌:" & XP(2)   & "
"   
  document.write   "洗三次牌:" & XP(3) & "
"   
  document.write   "洗一百次牌:" & XP(100) & "
"   
  </SCRIPT>

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

<SCRIPT LANGUAGE=vbscript>  
'洗牌  
Dim N,S,D,P  
P=52'牌的数量  
Set D = CreateObject("Scripting.Dictionary")  
do while D.Count<P  
Randomize  
N=Int(P * Rnd + 1)  
if not D.Exists(cstr(N)) then  
D.Add cstr(N),cstr(N)  
end if  
loop  
for each K in D.Keys  
S=S & K & " "  
next  
msgbox replace(trim(S)," ",",")  
</SCRIPT>  

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

上一个：一种理论上最快的Web数据库分页方法
下一个：ASP提速技巧 推荐