<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需刷新才能执行]
如何从数据库中随机取出10条记录的方法
时间: 2024-09-20 01:25:15
如何从数据库中随机取出10条记录的方法的相关文章
如何从数据库中随机取出10条记录的方法_应用技巧
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
C#中从sqlserver数据库中随机提取一条记录并显示在不同的文本框中
问题描述 C#中从sqlserver数据库中随机提取一条记录并显示在不同的文本框中如图 解决方案 解决方案二:SQL:selecttop1姓名,学号,班级from表orderbynewid()C#对应上就好了.
从mysql数据表中随机取出一条记录
当然最后我的一段代码有错误的,并不是真正意义上的随机取数据.回到家,赶快百度,这才知道了如何随机取数据.. 其余代码不多说,这里就告诉你这句核心查找数据表代码: 代码如下 select * from 表名 order by rand( ) limit 1; //此处的1就是取出数据的条数 但这样取数据网上有人说效率非常差的,那么要如何改进呢 搜索Google,网上基本上都是查询max(id) * rand()来随机获取数据. 代码如下 SELECT * FROM `table`
从数据库中随机抽N条记录
数据|数据库|随机 Access:select top n * from table order by rnd(id)'id为数据库的自动编号字段 Sql Server:select top n * from tabl
从SQLSERVER/MYSQL数据库中随机取一条或者N条记录
原文:从SQLSERVER/MYSQL数据库中随机取一条或者N条记录 从SQLSERVER/MYSQL数据库中随机取一条或者N条记录 很多人都知道使用rand()函数但是怎麽使用可能不是每个人都知道 建立测试表 USE [sss] GO CREATE TABLE RANDTEST(ID INT DEFAULT RAND()*100,NAME NVARCHAR(200) DEFAULT 'nihao') GO CREATE INDEX IX_RANDTEST_ID ON RANDTEST(ID)
四种数据库随机获取10条数据的方法_Access
四种数据库随机获取10条数据的方法 SQL Server: 复制代码 代码如下: SELECT TOP 10 * FROM T_USER ORDER BY NEWID() ORACLE: 复制代码 代码如下: SELECT * FROM (SELECT * FROM T_USER ORDER BY DBMS_RANDOM.RANDOM()) WHERE RONUM <= 10 MySQL: 复制代码 代码如下: SELECT * FROM T_USER ORDER BY RAND() LIM
select-asp.net 从Access中随机读取5条记录
问题描述 asp.net 从Access中随机读取5条记录 我用的是 select top 5 * from Pro where TypeId =1 order by rnd(ID) 在数据库查询的时候是随机的5条 每次查询都会变 但是在网页绑定时一直不变总是那几条记录 是什么原因? 解决方案 Asp.net获取Access随机记录ASP.NET 2.0中随机读取Access数据库记录ASP.NET 2.0中随机读取Access数据库记录
代码-dreamweaver cs6 怎么在框架中显示数据库中的某一条记录?
问题描述 dreamweaver cs6 怎么在框架中显示数据库中的某一条记录? 我在制作网页的时候陷入了瓶颈,现在希望能在dreamweaver中实现这个功能:点开一个链接,直接显示出数据库中的某一条记录,并且在下面的"推荐项目"后随机显示出其他的条目. 如果要实现这个功能,代码应该怎么写 解决方案 通过javascript等来访问数据库,获取数据,然后再显示到html页面 http://www.jb51.net/article/42178.htm 解决方案二: Dreamweave
请教如何将数据库中的某一条记录的内容读到一个变量中?
问题描述 请教vb.net2005如何将数据库中的某一条记录的内容读到一个变量中?希望语句能有注释,谢谢!数据库为Access2003 解决方案 解决方案二:Access位置是否相对固定?如果相对固定又没有太多安全上的要求的话不用自己写代码就成.在项目中添加你那个Access文件,然后会在工程数据库中看到你添加的内容,把东西往窗体上一拖就成了,自动会在Load中添加代码.解决方案三:谢谢楼上的朋友回复,数据库的绑定.链接等等我知道,现在需要的是读某一条记录到一个变量中的方法!应该如何写语句?解决