首页
网页制作
网络编程
脚本专栏
数据库
网站运营
网络安全
平面设计
CMS教程
搜索
建站极客
网络编程
ASP编程
正文
如何从数据库中随机取出10条记录的方法
所属分类：
网络编程
/
ASP编程
阅读数： 373
收藏 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需再刷新一下页面才能执行
]
更多精彩内容
其他人还在看
IIS访问ASP页面时报错The requested resource is in use.的解决办法
IIS访问ASP页面时报错The requested resource is in use.的解决办法
评论 0
收藏 0
赞 0
分享
错误类型：Provider (0x80004005)未指定的错误 的一个处理方法
一般情况下asp可以正常运行,但只要连接数据库就提示,Microsoft JET Database Engine 错误'80004005'
评论 0
收藏 0
赞 0
分享
关于“未指定的错误”的问题 的比较正解的解决方法
关于“未指定的错误”的问题 的比较正解的解决方法
评论 0
收藏 0
赞 0
分享
关于asp+access的安全问题分析
关于asp+access的安全问题分析
评论 0
收藏 0
赞 0
分享
把RS.GetRows看得更清楚
把RS.GetRows看得更清楚
评论 0
收藏 0
赞 0
分享
ASP面向对象编程探讨及比较
ASP面向对象编程探讨及比较
评论 0
收藏 0
赞 0
分享
ASP错误处理
ASP错误处理
评论 0
收藏 0
赞 0
分享
web文件管理器的后续开发
web文件管理器的后续开发
评论 0
收藏 0
赞 0
分享
上一篇,下一篇过程代码
上一篇,下一篇过程代码
评论 0
收藏 0
赞 0
分享
一小偷类!!有兴趣的可以看看
一小偷类!!有兴趣的可以看看
评论 0
收藏 0
赞 0
分享
查看更多
网络赚钱
更多
抢孩子谣言发布者究竟是谁?运营80余公众号造谣吸粉月赚20万
网上怎么赚钱 网络赚钱需要注意哪些东西
巴西世界杯复盘：七大移动营销案例图文解析
站长故事实战：淘宝买关键词排名SEO服务攻略介绍
四年的网赚经验
google
站长故事
更多
站长故事 新站两个月权重上升到3的经验分享
一个年入80W的96年草根站长
站长们,就别在折腾你的用户了
浅谈：一个草根站长的服装论坛赚钱经验
十年了!一个依靠设计师们热情支撑起的网站
如何让自己的网站流量暴增并增加成交率
