首页
网页制作
网络编程
脚本专栏
数据库
网站运营
网络安全
平面设计
CMS教程
搜索
建站极客
网络编程
ASP编程
正文
如何从数据库中随机取出10条记录的方法
所属分类：
网络编程
/
ASP编程
阅读数： 322
收藏 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中去除内容HTML标签的三个function函数
asp中去除内容HTML标签的三个function函数
评论 0
收藏 0
赞 0
分享
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解
评论 0
收藏 0
赞 0
分享
方便的大家admin及admin888 经过 md5加密后16位和32位代码
方便的大家admin及admin888 经过 md5加密后16位和32位代码
评论 0
收藏 0
赞 0
分享
可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
评论 0
收藏 0
赞 0
分享
asp动态级联菜单代码
asp动态级联菜单代码
评论 0
收藏 0
赞 0
分享
ASP中经常使用的SQL语句与教程说明
ASP中经常使用的SQL语句与教程说明
评论 0
收藏 0
赞 0
分享
实例分析之用ASP编程实现网络内容快速查找的代码
实例分析之用ASP编程实现网络内容快速查找的代码
评论 0
收藏 0
赞 0
分享
服务端 VBScript 与 JScript 几个相同特性的写法与示例
服务端 VBScript 与 JScript 几个相同特性的写法与示例
评论 0
收藏 0
赞 0
分享
ASP 环境下 VBS 事件应用 示例代码
ASP 环境下 VBS 事件应用 示例代码
评论 0
收藏 0
赞 0
分享
asp 之上传漏洞终结篇
asp 之上传漏洞终结篇
评论 0
收藏 0
赞 0
分享
查看更多
网络赚钱
更多
即使现在停产 微商面膜至少需需5年才能卖完
巴西世界杯复盘：七大移动营销案例图文解析
潘定国的粉丝经济学的重点：移动互联网核心是以人为本
怎么才能做好移动互联网营销？
Google
草根站长靠什么赚钱?什么样的人能成为赚钱的草根站长?
站长故事
更多
喜马拉雅创始人自述：网络电台一年半获取7000万用户
论诺基亚之死！
一问易答：为何小米4/魅族MX4不支持NFC？
从事SEO行业五年:我已经正在慢慢的走向衰亡
一成不变的站长到底还能活多久？
从月薪3500到身价3千万
