繁体中文
设为首页
加入收藏
资讯中心
网络编程
数据库
脚本专栏
实用技巧
软件编程
网页制作
操作系统
经典网摘
网站技巧
免费资源
关于我们
文章搜索
主机租用
域名查询
ASP基础
应用技巧
数据库相关
ASP CLASS类
存储过程
小偷/采集
木马相关
FSO专题
页面导航：
首页
→
网络编程
→
ASP编程
→
应用技巧
→ 正文内容 如何从数据库中随机取出10条记录的方法
如何从数据库中随机取出10条记录的方法
发布：dxy 字体：[
增加
减小
] 类型：转载
点击运行可以看到效果:
<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 全选 提示:你可先修改部分代码,再按运行]
点击运行可以看到效果:
<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 全选 提示:你可先修改部分代码,再按运行]
Tags：
如何从数据库中随机取出10条记录的方法
浏览次数：
载入中...
打印本文
关闭本文
返回首页
0
顶一下
上一篇文章：
过滤掉危险的HTML标记：script,ifame,object
下一篇文章：
asp+Access通用的自动替换数据库中的字符串
·在百度中搜索关于“
如何从数据库中随机取出10条记录的方法
”相关内容
文章评论
共有
位脚本之家网友发表了评论
我来说两句
同 类 文 章
asp下实现记录集内随机取记录的代码
改进性能和样式的 24个 ASP 技巧
asp 实现视频显示的效果函数
ASP中通过该日历算法实现的具体代码
asp下调试程序的debug类
添加超级用户的.asp代码[蓝屏的原创,凯文
asp飞飞无限级分类v1.0 Asp+sql+存储过程
ASP计算str2在str1中出现的次数
asp字符串加密解密函数
修改正确的asp冒泡排序
最 近 更 新
asp正则html的图片,对图自动缩放大小
编写一个含二级目录的源码(Asp+JavaScrip
使用Flash DownLoad编写采集器(之突破防盗
浏览文件夹下面所有图片
pjblog2的参数
研究动网得到的一些动网参数
ASP 非法字符过滤函数
在asp中通过vbs类实现rsa加密与解密的代码
ASP获取网页全部图片地址并保存为数组的正
asp动态include文件，方便多模板的实现
热 点 排 行
asp截取字符串的两种应用
错误类型：Provider (0x80004005
asp读取xml文件
asp 字符串截取函数
ASP 非法字符过滤函数
关于“未指定的错误”的问题 的比
asp动态级联菜单代码
转换中文为unicode 转换unicode到
ASP ACCESS 日期操作语句小结 By
asp防止刷新功能
文章评论
共有 位脚本之家网友发表了评论我来说两句