[小 弟 跪 求]如何随机取出记录并同时满足某条件?
如何取出某数据库随机一记录,并且要满足该记录字段1必须<10,这怎么做?谢谢!~
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
