当前位置:首页 » 操作系统 » asp数据库随机

asp数据库随机

发布时间: 2024-11-13 12:00:03

‘壹’ asp随机调用数据库然后判断是否超过限制

给你一个函数你参考下。
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
DIM Appeared
Call DisRndRecord(10,rs.recordCount)'调用函数该位置显示记录
'################SUBS################
'#DisRndRecord(DisNum,rsBound)
'#参数DisNum:显示数量
'#参数rsBound:随机数产生范围
Sub DisRndRecord(DisNum,rsBound)
DIM i,ThisRnd
If rsBound < DisNum Then DisNum = rsBound'记录总数小于要抽取记录条数的情况
For i = 0 To DisNum - 1
ThisRnd = GetRnd(rsBound)'取得一个不重复的随机数
rs.Move(ThisRnd)'游标移动到随机数位置数读取
Response.Write("<br/>("&rs("id")&")"&rs("Title"))
rs.Move(-ThisRnd)
Next
End Sub
'# 函数GetRnd(bound)返回一个不重复的随机数字
'#参数bound:随机范围
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(Appeared,"["&ranNum&"]") Then '产生的随机数是否出现过
ranNum = getRnd(bound)
End If
Appeared = Appeared & "["&ranNum&"]" '记录已出现的随机数
GetRnd = ranNum
End Function

热点内容
安卓哪里可以听空间音频 发布:2024-11-14 13:39:39 浏览:481
什么软件查看手机配置 发布:2024-11-14 13:35:25 浏览:726
androidsql查询语句 发布:2024-11-14 13:35:09 浏览:893
linux查看线程数 发布:2024-11-14 13:34:21 浏览:771
如何在实验室搭建服务器 发布:2024-11-14 13:33:36 浏览:632
c语言多个条件 发布:2024-11-14 13:32:36 浏览:71
缓存行原理 发布:2024-11-14 13:08:56 浏览:432
简单的vb编程 发布:2024-11-14 13:06:45 浏览:523
绿色linux 发布:2024-11-14 12:56:11 浏览:350
游戏本缓存 发布:2024-11-14 12:55:28 浏览:650