[С µÜ ¹ò Çó]ÈçºÎËæ»úÈ¡³ö¼Ç¼²¢Í¬Ê±Âú×ãijÌõ¼þ?

Rain

ÈçºÎÈ¡³öijÊý¾Ý¿âËæ»úÒ»¼Ç¼,²¢ÇÒÒªÂú×ã¸Ã¼Ç¼×Ö¶Î1±ØÐë<10,ÕâÔõô×ö?

tpŒšŒš^¨­^

dim min,sql,rs,rndID,i
minValue = 10
Randomize
sql = "Select * FROM table1 WHERE col1<"&minValue
Set rs = server.createobject("ADODB.RecordSet")
rs.Open sql,dbc,adOpenForwardOnly,adLockReadOnly
If rs.Eof Then
rs.Close
Set rs = Nothing
'show error, or donothing
End If
rndID = int(rnd*rs.RecordCount)
for i=0 to rndID - 1
    rs.MoveNext
next

'now it is the random position, get data from rs
'do somthing you want
rs.Close
Set rs = Nothing

Çï·çɨÂäÒ¶

·è¿ñлл!