杭州设计公司,杭州广告设计公司
网页设计
ASP随机显示不重复记录
信息来源:未知     栏目类别: 网页设计     浏览次数:     发表评论 减小字体 增大字体

<%
'-------------------------数据库连接-----------------------
Set objCo**** = Server.CreateObject("ADODB.Co****ectio**")
objCo****.Co****ectio**Stri**g = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath("data.mdb")
objCo****.Ope**
&**bsp; '-------------------------数据库连接-----------------------

'-------------------------检索数据-----------------------
strSQL = "SELECT id,DataColum** FROM DataTable"&**bsp;&**bsp;&**bsp;
'Sql语句,检索数据库
Set objRS = Server.CreateObject("ADODB.Recordset")
'创建记录集 网页教学网
objRS.Ope** strSQL, objCo****, 1, 1&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;
'执行检索
Cou**t=objRS.RecordCou**t&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;
'得到记录总数
Item=4&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;
'显示记录数
'-------------------------检索数据-----------------------

'-------------------------------------------------------------------------------
redim a(Item, 2),t(Cou**t)
'定义2数组,数组a用来储存记录,数组t用来删选记录

'---------------------------------------
'初始数组数值,目的为了插入数据以后和此值做比较
for each j i** t
&**bsp;&**bsp;&**bsp; j=0
**ext
'---------------------------------------

'---------------------------------------
' 随机抽取记录号
Ra**domize timer&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; '初始化随机数生成器
for j=1 to Item
&**bsp;&**bsp;&**bsp; k=i**t(r**d*Cou**t+1)&**bsp;&**bsp;&**bsp; '从总数里面随机取一条记录
&**bsp;&**bsp;&**bsp; do while t(k)<>0&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; '判断是否记录是否已经在数组中
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; k=i**t(r**d*Item+1)
&**bsp;&**bsp;&**bsp; loop
&**bsp;&**bsp;&**bsp; t(k)=1&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; '第k条记录被选中
**ext
'--------------------------------------
j=1:i=1'定义下标

'--------------------------------------
' 循环选取数据集objRS中的部分记录存放到数组中
Do While Not objRS.Eof
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; if t(j)=1 the**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; a(i,1)=objRS("id")&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; '记录id
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; a(i,2)=objRS("DataColum**") '记录内容
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; i=i+1
&**bsp;&**bsp;&**bsp;&**bsp; e**d if
j=j+1
objRS.MoveNext
网页教学网

Loop
'--------------------------------------
'-------------------------------------------------------------------------------

'----------------------------显示内容--------------------
for i=1 to Item
&**bsp;&**bsp;&**bsp; Respo**se.write "序号"&a(i,1)&"<br>"
&**bsp;&**bsp;&**bsp; Respo**se.write "内容"&a(i,2)&"<p>"
**ext
'----------------------------显示内容--------------------

'---------------------------
'释放资源
objRs.Close
set objRs=**othi**g
objCo****.Close
set objCo****=**othi**g
'---------------------------
%>
本文来**:网页教学网(www.webjx.com)原文链接:http://www.webjx.com/ASP/asp_2007_11_28_1426.html

本文标签:把本文收藏到 网摘 博采 百度
上一篇:互动网页界面设计          回网页设计列表         下一篇:从网页设计开始
搜索本站其他内容: 百度一下:[ASP随机显示不重复记录]   Google搜索:[ASP随机显示不重复记录]
最新网友评论文章↓
1.靠2009-11-19 20:42:45
2.去2009-11-19 20:39:41
3.脑残还是变相炫富?2009-11-16 20:17:58
4.好感动哦2009-11-7 15:40:32
5.怎么学习2009-10-20 10:54:50

文章添加时间:2008-7-30,文件大小:20.24 KB,最近更新时间:2011-12-16 18:06:28 返回TOP↑            

本站文章搜集自网络;共享网络,共享快乐,我为人人,人人为我;如果您知道本站未知来源文章请告知本站谢谢!
文中及留言观点不代表本站;本站转载内容只是为了更好的交流;
若侵犯了您的版权请联系E-mail:有事儿,您Q我!,本站核实后立即处理!

  •             平面设计| 标志设计| 包装设计| 网页设计| 广告设计| VI设计| 画册设计| 专卖店设计| 展位设计| 名片设计| 网站地图|    建议使用IE5及以上1024*768分辨率
  •             友情链接 版权所有 © 杭州威迪广告公司 2008-2010 | TEL:0571-88385993 13296756810 浙ICP备09011107号