首页
网页制作
网络编程
脚本专栏
数据库
网站运营
网络安全
平面设计
CMS教程
搜索
建站极客
网络编程
ASP编程
正文
如何从数据库中随机取出10条记录的方法
所属分类：
网络编程
/
ASP编程
阅读数： 364
收藏 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需再刷新一下页面才能执行
]
更多精彩内容
其他人还在看
TsysV1.1 系统文件清单介绍
TsysV1.1 系统文件清单介绍
评论 0
收藏 0
赞 0
分享
好久没发布新玩意，完成了tsys的少年不在版
好久没发布新玩意，完成了tsys的少年不在版
评论 0
收藏 0
赞 0
分享
tsys _rss程序
tsys _rss程序
评论 0
收藏 0
赞 0
分享
TSYS 新闻列表JS调用下载
TSYS 新闻列表JS调用下载
评论 0
收藏 0
赞 0
分享
使用asp代码突破图片的防盗连
使用asp代码突破图片的防盗连
评论 0
收藏 0
赞 0
分享
一种理论上最快的Web数据库分页方法
一种理论上最快的Web数据库分页方法
评论 0
收藏 0
赞 0
分享
asp：debug类调试程序
asp：debug类调试程序
评论 0
收藏 0
赞 0
分享
如何增加Referer功能--反向链接插件
如何增加Referer功能--反向链接插件
评论 0
收藏 0
赞 0
分享
pjblog中清空引用的小程序
pjblog中清空引用的小程序
评论 0
收藏 0
赞 0
分享
光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
评论 0
收藏 0
赞 0
分享
查看更多
网络赚钱
更多
卡盟是怎么赚钱的?卡盟各个盈利模式介绍
打工妹网购6000多元丰胸产品 无效要求退款时又被骗10万元
巴西世界杯复盘：七大移动营销案例图文解析
google
淘宝评级规则详解
网站如何靠SEO盈利？先把网站包装成专卖店吧
站长故事
更多
传统地摊转型网络营销90后农村小伙子月入过万
2014，回顾互联网公司招聘的那些奇葩故事
其实并非所有草根站长都能驯服社区门户这匹马
大脚：一个老站长的垂死宣言
做好网站维护 持续吸引用户浏览
浅谈新手站长在网站运营中如何去养站？
