利用随机函数获取某一范围的整数及其应用

新客网 XKER.COM 2003-04-16 来源： 收藏本文

[“酷闪”原创]

我们在编写ASP的过程中经常会遇到需要取得一个整数范围内的一个随机整数，利用VBScript内建的Rnd()函数可以很轻松
的得到这样的整数，假如要从[min,max]这个整数范围内随机抽取一个整数，具体公式如下：

随机整数=Int((max-min+1)*Rnd()+min)

仔细思考一下上面的公式，应该很快能理解其中的含义。

下面就以“酷闪”首页“自助链接”为例，来说明随机抽取整数在数据库查询中的一个用途。

构想


“酷闪”首页提供自助连接，允许自行加入某网站连接。
一般的“自助连接”只是在首页显示最新加入的若干个连接，然后另外提供一个浏览所有连接的页面，很多情况下，只有
不多的浏览者去打开该页去查询以前加入的连接，这样就使得比较早加入的连接基本没有被点击的机会。根据这种情况采
取以下方案：在首页显示10个连接，其中前3个是最新加入的连接，后7个从以前加入的连接中随机抽取7个显示。

具体实现


用Access数据库保存用户信息（网站名称，网址，简要说明），建立add.asp（加入操作页面），
改造首页加入显示程序段。这里只对显示程序段给以说明。
假设Access数据库文件为link.mdb，并已经有超过20个的连接信息，其中自助连接信息放在表selflink中，包含字段：
ID，网站名称，地址，简要说明，加入时间

程序代码

'首页打开数据库，并将所有记录按时间倒序排列，新加入的在前
set con=server.CreateObject("adodb.connection")
con.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("link.mdb")
set rst=server.createobject("adodb.Recordset")
rst.open "select * from selflink order by 加入时间desc",con,3,1,1

'显示最新加入的3个连接
rst.movefirst
for i=1 to 3
response.write "<a href="&rst("地址")&">"&rst("网站名称")&"</a><br>"
rst.movenext
next

'从第4个到第20个记录中随机抽取7个
randomize
for i=1 to 7
rndtemp=rst.recordcount-1
curorrnd=Int((rndtemp-3+1)*Rnd()+3))
rst.move curorrnd,1
response.write "<a href="&rst("地址")&">"&rst("网站名称")&"</a><br>"
next

'关闭数据库，清除内存
rst.close
con.close
set rst=nothing
set con=nothing

此例在WIN98+PWS上调试成功，但在NT+IIS时指令：rst.move curorrnd,1可能会遇到困难，可做如下改动：
rst.movefirst
rst.move curorrnd

怎么样不是很难吧，试试看吧！：）加上这段程序后，每次刷新首页都能看到不同的连接。因为随机函数的几率是一样
的，这样才使那些加入“自助连接”的朋友有了相同的对待。

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件