午夜A片理论片在线视频,国产精品亚洲第一区广西莫菁,国产精伦精品无线一线二线三线

主頁(yè) > 知識(shí)庫(kù) > asp下sql和access數(shù)據(jù)庫(kù)隨機(jī)取10條記錄的代碼newid()

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

MSSQL:select top 10 * from [table] order by newid()

ACCESS:

復(fù)制代碼代碼如下:

'以利用rs.move嘛   
'如隨機(jī)取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 '產(chǎn)生一個(gè)隨機(jī)數(shù)   
rs.Move ranNum '移動(dòng)游標(biāo)到隨機(jī)數(shù)位置   
response.write i  "-"  rs("title")  "br />" '輸出內(nèi)容   
rs.Move -ranNum   
next   
'……  

這樣就可以了，當(dāng)然這樣有可能會(huì)取到重復(fù)的記錄，那么把產(chǎn)生隨機(jī)數(shù)那句改下就可以了，聲明一個(gè)變量來存放已經(jīng)產(chǎn)生過的隨機(jī)數(shù)，在產(chǎn)生新的隨機(jī)時(shí)先判斷是否已經(jīng)產(chǎn)生過，若產(chǎn)生過則重新生成就是了，這個(gè)就比較簡(jiǎn)單了，用instr等就可以搞定了~~

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

復(fù)制代碼代碼如下:

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

rs.Move ranNum   
for i=1 to 10   
response.write i  "-"  rs("title")  "br />" '輸出內(nèi)容   
rs.MoveNext '挨著向下讀取   
next   
'……  

建議自己寫個(gè)簡(jiǎn)單的Function來產(chǎn)生和判斷不重復(fù)隨機(jī)數(shù)。

您可能感興趣的文章:

asp連接SQL和Access數(shù)據(jù)代碼(asp里的隨機(jī)函數(shù))
sql server中隨機(jī)函數(shù)NewID()和Rand()

標(biāo)簽：銅川那曲新鄉(xiāng) 河池蘇州優(yōu)質(zhì)小號(hào) 延邊電商邀評(píng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp下sql和access數(shù)據(jù)庫(kù)隨機(jī)取10條記錄的代碼newid()》，本文關(guān)鍵詞 asp,下,sql,和,access,數(shù)據(jù)庫(kù),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。