当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何从数据库中随机取出10条记录的方法

技术文章搜索

关键字

ASP 中的 如何从数据库中随机取出10条记录的方法

---

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 80 ::
收藏到网摘: n/a

过滤掉危险的HTML标记：script,ifame,object 常用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 全选 提示:你可先修改部分代码,再按运行]

点击运行可以看到效果:<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 全选 提示:你可先修改部分代码,再按运行]

过滤掉危险的HTML标记：script,ifame,object 常用ASP函数集【经验才是最重要的】

评论 (0) All

登陆 还没注册？

设为首页 | 加入收藏 | 关于我们 | 联系我们 | 广告服务 | 网站地图 | 友情链接 | 在线帮助 | 免责声明 Sitemap W3school

如果您觉得本站不错，别忘了告诉您的同学和同事哟 ^_^

欢迎各网站转载我们的原创，转载时请注明出处。

All copyright is reserved by 软晨网（RuanChen.com）