Analisis Metode Panggilan N secara Acak Pieces of Data

Langkah 1: SQL = "SelectIdfromTable" hasil dengan rs = conn.execute (sql)

Langkah 2: Hasilkan nomor acak dalam nilai maksimum Langkah1 (rs.recordcount) .n

kode:

<%Acak%>

<%

Dimr (10)

fori = 0toubound (r)

r (i) = int (rnd ()*100)

int (rnd ()*100)

%>

Langkah 3: Bergabunglah dengan array ke dalam "," split

<%Acak%>

<%

sql = "selectidfromtable"

RS = Conn.Execute (SQL)

maxRecord = rs.recordcount

Dimr (10)

fori = 0toubund (r)

r (i) = rs (int (rnd ()*maxrecord))

Berikutnya

s = gabung (r, ",")

sql = "pilih*fromtablewhereidin (" & s & ")"

newrs = conn.execute (sql)

%>