การวิเคราะห์วิธีการแบบสุ่มเรียกชิ้นส่วนข้อมูล

ขั้นตอนที่ 1: ผลลัพธ์ SQL = "SelectIdFromTable" ด้วย rs = conn.execute (SQL)

ขั้นตอนที่ 2: สร้างหมายเลขสุ่มภายในค่าสูงสุดของขั้นตอนที่ 1 (Rs.RecordCount)

รหัส:

<%สุ่ม%>

-

Dimr (10)

fori = 0toubound (r)

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

int (rnd ()*100)

-

ขั้นตอนที่ 3: เข้าร่วมอาร์เรย์เป็น "," แยก

<%สุ่ม%>

-

SQL = "SelectIdFromTable"

rs = conn.execute (SQL)

MaxRecord = Rs.RecordCount

Dimr (10)

fori = 0toubund (r)

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

ต่อไป

S = เข้าร่วม (r, ",")

sql = "เลือก*fromtablewhereidin (" & s & ")"

newRs = conn.execute (SQL)

-