Ëæ»ú·ÃÎÊRecordsetµÄÒ»Ìõ¼Ç¼

Ò¹Á÷±ù

¼ÙÉèÕâ¸öÊý¾Ý±íÓÐÒ»¸öΨһµÄID×ֶΣ¬²¢ÖÁÉÙÓÐÒ»Ìõ¼Ç¼¡£Ëæ»ú´æÈ¡ÆäÖÐÒ»Ìõ¼Ç¼µÄ·½·¨ÊǷdz£¼òµ¥µÄ£¬¿ÉÒÔ·ÖΪËIJ½£º
1¡¢È¡µÃ¼Ç¼×ÜÊýn¡£
2¡¢°ÑËùÓеÄIDºÅ´æ´¢µ½Ò»¸öÊý×éÖÐ
3¡¢²úÉúÒ»¸ö²»´óÓÚnµÄËæ»úÊým
4¡¢´ÓÊý×éÖÐÈ¡³öµÚm¸öIDºÅ£¬²éѯÊý¾Ý±í£¬È¡µÃ¼Ç¼Êý¾Ý¡£
¡¡¡¡ÏÂÃæÊDz¿·Ö´úÂ룺
$#@60;%
set conn = Server.CreateObject(¡®ADODB.Connection¡®)
conn.open ¡®$#@60;conn string$#@62;¡®


¡® ***** (step 1) *****

set rs = conn.execute(¡®Select count(id) from someTable¡®)
rCount = rs(0)

¡® ***** (step 2) *****

set rs = conn.execute(¡°select id from someTable¡±)
cnt = 1
dim RRs
redim RRs(rCount)
do while not rs.eof
RRs(cnt) = rs(0)
cnt = cnt + 1
rs.movenext
loop

¡® ***** (step 3) *****

randomize
currentRR = cLng(rnd*rCount+0.5)
ID = RRs(currentRR)

¡® ***** (step 4) *****

sql = ¡°select otherfield from someTable where id=¡± & ID
set rs = conn.execute(sql)
response.write ¡°ID # ¡± & ID & ¡° = ¡± & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing