最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp下sql和access數(shù)據(jù)庫隨機取10條記錄的代碼newid()

 更新時間:2007年12月19日 23:13:09   作者:  
利于搜索從表中隨機取幾條不重復記錄,一般都是10條,我就用了40條,大約的代碼就是下面的了
MSSQL:select top 10 * from [table] order by newid()

ACCESS: 

復制代碼 代碼如下:

'以利用rs.move嘛  
'如隨機取10條  
n = 10  
'先要判斷總記錄數(shù)是否少于10,若小于10,則有多少取多少 if n>10 rs.recordCount then n=rs.recordCount  
dim ranNum  
for i = 1 to n  
Randomize()  
ranNum = int(rs.recordCount*rnd)+1 '產生一個隨機數(shù)  
rs.Move ranNum '移動游標到隨機數(shù)位置  
response.write i & "-" & rs("title") & "<br />" '輸出內容  
rs.Move -ranNum  
next  
'……  
       
這樣就可以了,當然這樣有可能會取到重復的記錄,那么把產生隨機數(shù)那句改下就可以了,聲明一個變量來存放已經產生過的隨機數(shù),在產生新的隨機時先判斷是否已經產生過,若產生過則重新生成就是了,這個就比較簡單了,用instr等就可以搞定了~~ 

       思路是這樣,其它自己動手試試吧。 不重復讀取還有個辦法就是只產生一個隨機數(shù),然后挨著讀取這個隨機數(shù)后面的N條記錄。當然也要寫好判斷,隨機數(shù)要小于總記錄數(shù)-要讀取記錄數(shù)量。 

復制代碼 代碼如下:

'……  
dim n,ranNum  
n = 10  
Randomize()  
ranNum = rs.recordCount-n  
if ranNum<1 then ranNum=1  
ranNum = int(ranNum*rnd)+1  

rs.Move ranNum  
for i=1 to 10  
response.write i & "-" & rs("title") & "<br />" '輸出內容  
rs.MoveNext '挨著向下讀取  
next  
'……  
建議自己寫個簡單的Function來產生和判斷不重復隨機數(shù)。

相關文章

最新評論

墨玉县| 中超| 车险| 镶黄旗| 富平县| 鄂尔多斯市| 车致| 龙岩市| 京山县| 彰化市| 伊金霍洛旗| 达拉特旗| 延安市| 安西县| 鹤山市| 大港区| 铁岭市| 荣成市| 曲阜市| 高平市| 准格尔旗| 旬邑县| 会泽县| 凤凰县| 交口县| 广灵县| 谷城县| 英山县| 望奎县| 崇信县| 凤城市| 宜都市| 保康县| 香格里拉县| 枣庄市| 扎囊县| 祁东县| 孟村| 莱州市| 镇巴县| 湖南省|