首页
网页制作
网络编程
脚本专栏
数据库
网站运营
网络安全
平面设计
CMS教程
搜索
建站极客
网络编程
ASP编程
正文
如何从数据库中随机取出10条记录的方法
所属分类：
网络编程
/
ASP编程
阅读数： 386
收藏 0
赞 0
分享
<SCRIPT LANGUAGE=vbscript> function xipai(mystr) xipai="" if len(mystr)=0 then'如果是空的，那么初试化一付连续的牌 for i=1 to 52 mystr=mystr & "<" & i & "> " next end if dim i,x for i=1 to 52 myarry=split(mystr) 'myarry是下标52的数组，前0-51个有效 randomize x=cint(rnd*(ubound(myarry)-1))'前0-51个随便找一个 mystr=replace(mystr, myarry(x) & space(1),"")'从没发的牌中随便挑一张 xipai=xipai & myarry(x) & space(1) next end function function XP(n) mystr="xipai("""")" dim i for i=1 to n mystr="xipai(" & mystr & ")" next 'XP=eval(mystr) XP=eval(mystr) end function document.write "洗牌完美版" & "" document.write "洗一次牌:" & XP(1) & "" document.write "洗两次牌:" & XP(2) & "" document.write "洗三次牌:" & XP(3) & "" document.write "洗一百次牌:" & XP(100) & "" </SCRIPT>
[Ctrl+A 全选 注:
引入外部Js需再刷新一下页面才能执行
]
<SCRIPT LANGUAGE=vbscript> '洗牌 Dim N,S,D,P P=52'牌的数量 Set D = CreateObject("Scripting.Dictionary") do while D.Count<P Randomize N=Int(P * Rnd + 1) if not D.Exists(cstr(N)) then D.Add cstr(N),cstr(N) end if loop for each K in D.Keys S=S & K & " " next msgbox replace(trim(S)," ",",") </SCRIPT>
[Ctrl+A 全选 注:
引入外部Js需再刷新一下页面才能执行
]
更多精彩内容
其他人还在看
ASP编程入门进阶（廿一）：DAO SQL之建立数据库表
ASP编程入门进阶（廿一）：DAO SQL之建立数据库表
评论 0
收藏 0
赞 0
分享
ASP万用分页程序
这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委
评论 0
收藏 0
赞 0
分享
ASP项目中的公共翻页模块
ASP项目中的公共翻页模块
评论 0
收藏 0
赞 0
分享
asp实现批量录入数据的实现
asp实现批量录入数据的实现
评论 0
收藏 0
赞 0
分享
从文本文件中读取信息并存储入数据库
从文本文件中读取信息并存储入数据库
评论 0
收藏 0
赞 0
分享
在ASP中使用均速分页法提高分页速度
在ASP中使用均速分页法提高分页速度
评论 0
收藏 0
赞 0
分享
一些值得一看的代码asp
这篇文章主要介绍了一些值得一看的代码asp
评论 0
收藏 0
赞 0
分享
3种不同的方法生成文件
3种不同的方法生成文件
评论 0
收藏 0
赞 0
分享
校验算法与ASP程序
这篇文章主要介绍了校验算法与ASP程序
评论 0
收藏 0
赞 0
分享
ASP抽取数据的执行效率
ASP抽取数据的执行效率
评论 0
收藏 0
赞 0
分享
查看更多
网络赚钱
更多
揭秘朋友圈面膜：足不出户 国内生产俩月造出国际大牌
怎么进入微店买东西?微店购物流程图文介绍
做什么样的网站能赚钱?
SEO赚钱之道：11种可以让你盈利的SEO实业方法
2021年后通过网络、自媒体赚钱的几种方法
冲刺双十一 如何做好淘宝双11期间的推广及运营
站长故事
更多
为什么被黑的总是小米？
快播之死：中国互联网的政策红利期已结束
草根站长网站运营:运气创业,勤能过日子
一成不变的站长到底还能活多久？
我认识的互联网活化石金山劳模雷军
我对互联网VC的10点看法 知己知彼百战不殆
