代码驿站移动版
频道导航
HTML/Xhtml
CSS
JavaScript
HTML5
PHP教程
ASP.NET
正则表达式
AJAX
ThinkPHP
Yii
MySQL
MariaDB
Oracle
MongoDB
Redis
DedeCMS
PHPCMS
帝国CMS
WordPress
Discuz
其它CMS
Zend Studio
Sublime
Notepad
Dreamweaver
Windows
Linux
Nginx
Apache
IIS
CentOS
Ubuntu
Debian
网站优化
工具资源
PHP源码
ASP.NET源码
其它源码
图标素材
按钮素材
字体素材
DedeCMS模板
帝国CMS模板
PHPCMS模板
WordPress模板
Discuz!模板
单页模板
开发软件下载
服务器软件下载
广告投放
联系我们
版权申明
软件编程
网页前端
移动开发
数据库
服务器
脚本语言
PHP代码
JAVA代码
Python代码
Android代码
当前位置：
主页
>
软件编程
>
ASP代码
>
如何从数据库中随机取出10条记录的方法
时间：2021-04-17 09:55:06 | 栏目：
ASP代码
| 点击：次
<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下过滤非法的SQL字符的函数代码
网站开发防止中文乱码需要了解的codepage的重要性小结
asp程序定义变量比不定义变量速度快一倍
asp数个使用技巧
asp实现生成由数字，大写字母，小写字母指定位数的随机数
相关文章
01-04
asp下sql和access数据库随机取10条记录的代码newid()
01-11
文件的读出 编辑 管理
12-30
asp在iis7报错行号不准问题的解决方法
11-11
再发几个ASP不错的函数
10-09
asp下为什么韩文字后面显示分号?
JQuery
VUE
AngularJS
MSSql
MySQL
MongoDB
Redis
Linux
Tomcat
Nginx
网站首页
广告投放
联系我们
版权申明
联系站长