当前位置:首页 » 操作系统 » 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

热点内容
服务器屏蔽一段ip 发布:2024-11-25 08:52:06 浏览:99
售茶源码 发布:2024-11-25 08:37:29 浏览:462
压缩包改直链 发布:2024-11-25 08:34:33 浏览:610
安卓机的照片如何传送到苹果机上 发布:2024-11-25 08:32:48 浏览:916
手游服务器怎么找ip 发布:2024-11-25 08:23:10 浏览:751
c语言名次 发布:2024-11-25 08:04:22 浏览:56
新浪云服务器登录 发布:2024-11-25 08:04:21 浏览:853
工控机服务器电脑的区别 发布:2024-11-25 08:04:21 浏览:513
Python对比matlab 发布:2024-11-25 07:45:58 浏览:307
ovt机顶盒管理员密码多少 发布:2024-11-25 07:45:58 浏览:377