随机抽取不重复ID

<!--#include file="conn.asp" -->
<%
dim xx(1000),tt,tempstr1
TxSingle=""
Randomize timer
  sql="SELECT Id FROM Question_Single"
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open sql,conn,1,1
  tempstr1=rs.GetRows
      tt=true
      for i1=1 to 20
        do while tt
          yy=Cstr(int(rnd*Cint(rs.RecordCount)))
          tt=false
          for j=1 to i1
            if yy=xx(j) then
              tt=true
              exit for
            end if
          next
        loop
        xx(i1)=yy
        tt=true
      next

      for i1=1 to 20
        TxSingle=TxSingle+ Cstr(tempstr1(0,Cint(xx(i1))))+"|"+""&i1&""+"<br>"
        xx(i1)=0
      next
%>
<!--#include file="conn.asp" -->
<%
dim xx(1000)
TxSingle=""
randomize timer
  set rs=conn.execute("select id from question_single")
  c_rows=rs.getrows()
  c_count=ubound(c_rows,2)+1
  tt=true
  for i=1 to c_count
    do while tt
      yy=cstr(int(rnd*(c_count)))
      tt=false
      for j=1 to i
        if yy=xx(j) then
          tt=true
          exit for
        end if
      next
    loop
    xx(i)=yy
    tt=true
  next
  for i=1 to c_count
    TxSingle=TxSingle+cstr(c_rows(0,xx(i)))+"|"+""&i&""+"<br>"
  next
%>
<%= TxSingle %> <%= TxSingle %>