导航
快车库
首页
编程
机器学习
Spark
Hadoop
Memcached
设计模式
ElasticSearch
Java
Scrapy
MongoDB
MySQL
Python
ASP.NET
休闲
花卉大全
养花知识
笑话
经管
标签
更新
如何从数据库中随机取出10条记录的方法
417 查看
<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页面动态Inclue文件？
一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)
捌度空间 缓存类
用ASP读取/写入UTF-8编码格式的文件
google sitemap.asp
atom_js.asp
atom2rss.asp
安全脚本程序的编写 V1.0第1/3页
VBS、ASP代码语法加亮显示的类
你可能感兴趣的文章
在线实时开通FTP&WEB
asp,VBscript语法错误,史上最全最详细最精确第1/3页
二级域名原理以及程序
写入文本文件的过程函数(ASP)
Access中使用Create Procedure创建存储过程第1/2页
多域名绑定到一个空间访问不同首页的技巧
在线修改Serv-U 4.2用户密码
Asp Conn.execute的参数与返回值总结
防止网站内容被小偷采集的ASP代码
一个非常简单的将半角转换为中文的函数
2024 - 快车库 - 我的知识库
重庆启连科技有限公司
渝ICP备16002641号-10
企客连连
表单助手
企服开发
榜单123
渝公网安备 50010702501581号
