数据库里有5条记录，随机抽取4条。
code--------------------------------------<%'-------------------------数据库连接-----------------------Set objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_"Data Source=" & Server.MapPath("data.mdb")objConn.Open'-------------------------数据库连接-----------------------'-------------------------检索数据-----------------------strSQL = "SELECT id,DataColumn FROM DataTable" 'Sql语句，检索数据库Set objRS = Server.CreateObject("ADODB.Recordset")'创建记录集objRS.Open strSQL, objConn, 1, 1'执行检索Count=objRS.RecordCount'得到记录总数Item=4'显示记录数'-------------------------检索数据-----------------------
'-------------------------------------------------------------------------------redim a(Item, 2),t(Count)'定义2数组，数组a用来储存记录，数组t用来删选记录
'---------------------------------------'初始数组数值，目的为了插入数据以后和此值做比较for each j in tj=0next'---------------------------------------
'---------------------------------------' 随机抽取记录号Randomize timer'初始化随机数生成器for j=1 to Itemk=int(rnd*Count+1) '从总数里面随机取一条记录do while t(k)<>0'判断是否记录是否已经在数组中k=int(rnd*Item+1)loopt(k)=1'第k条记录被选中next'--------------------------------------j=1:i=1'定义下标
'--------------------------------------' 循环选取数据集objRS中的部分记录存放到数组中Do While Not objRS.Eofif t(j)=1 thena(i,1)=objRS("id")'记录ida(i,2)=objRS("DataColumn") '记录内容i=i+1end ifj=j+1objRS.MoveNextLoop'--------------------------------------'-------------------------------------------------------------------------------
'----------------------------显示内容--------------------for i=1 to ItemResponse.write "序号"&a(i,1)&"<br>"Response.write "内容"&a(i,2)&"<p>"next'----------------------------显示内容--------------------
'---------------------------'释放资源objRs.Closeset objRs=nothingobjConn.Closeset objConn=nothing'---------------------------%>
DataidDataColumn--------------------------1a2b3c4d5e
// SQL SERVER的话只需要newID()就行了，但ACCESS来说，它本身不提供newID()这个方法
