如何从数据库中随机取出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,PP=52"牌的数量Set D = CreateObject（"Scripting.Dictionary"）do while D.Count<PRandomizeN=Int（P * Rnd + 1）if not D.Exists（cstr（N）） thenD.Add cstr（N）,cstr（N）end ifloopfor each K in D.KeysS=S & K & " "nextmsgbox replace（trim（S）," ",","）</SCRIPT>
[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]