|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
无疑希望员工得到系统、有深度的培训,显然MySQL在这一点上还做得很不够。access|办理|随机|显现|反复看了良多人会商关于access随机取纪录的帖子,鄙人,写了一个随机显现纪录的办理办法,但愿人人斧正。数据库里有5笔记录,随机抽取4条。
code
--------------------------------------- <%-------------------------数据库毗连-----------------------SetobjConn=Server.CreateObject("ADODB.Connection")objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_"DataSource="&Server.MapPath("data.mdb")objConn.Open-------------------------数据库毗连------------------------------------------------检索数据-----------------------strSQL="SELECTid,DataColumnFROMDataTable"Sql语句,检索数据库SetobjRS=Server.CreateObject("ADODB.Recordset")创立纪录集objRS.OpenstrSQL,objConn,1,1实行检索Count=objRS.RecordCount失掉纪录总数Item=4显现纪录数-------------------------检索数据------------------------------------------------------------------------------------------------------redima(Item,2),t(Count)界说2数组,数组a用来贮存纪录,数组t用来删选纪录---------------------------------------初始数组数值,目标为了拔出数据今后和此值做对照foreachjintj=0next------------------------------------------------------------------------------随机抽取纪录号Randomizetimer初始化随机数天生器forj=1toItemk=int(rnd*Count+1)从总数内里随机取一笔记录dowhilet(k)0判别是不是纪录是不是已在数组中k=int(rnd*Item+1)loopt(k)=1第k笔记录被选中next--------------------------------------j=1:i=1界说下标--------------------------------------轮回拔取数据集objRS中的部分纪录寄存到数组中DoWhileNotobjRS.Eofift(j)=1thena(i,1)=objRS("id")纪录ida(i,2)=objRS("DataColumn")纪录内容i=i+1endifj=j+1objRS.MoveNextLoop-------------------------------------------------------------------------------------------------------------------------------------------------显现内容--------------------fori=1toItemResponse.write"序号"&a(i,1)&"<br>"Response.write"内容"&a(i,2)&"<p>"next----------------------------显现内容-----------------------------------------------开释资本objRs.ClosesetobjRs=nothingobjConn.ClosesetobjConn=nothing---------------------------%>
复制代码
Data- idDataColumn--------------------------1a2b3c4d5e
复制代码 由于在MySQL中有如此众多的额外功能可选,诸如存储引擎等,你可以选择最适合你公司的一个,或者尝试选用多个引擎。MySQL开始非常小巧,但是可以随着公司的成长而不断地变强大。 |
|