随机数据库规则

多数的随机内容脚本包括数组加载来命令出你想输出的内容。正如你想随机增加显示的项目数字可能需要从数据库中为他们提供服务，而不是来自庞大的手动更新文本文件。下面的代码会选择一个来自Simpson’s的随机引用，以及显示规则数目和从查询中找到的规则总数。

<%
'创建数据库连接和选择有黑板的所有的规则
accessdb="simpsons" 
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select blackboard from shows where blackboard <> '' " 
rs.Open sql, cn, 1, 3


'设置能找到的规则总记录
total_records=rs.recordcount


'创建能找到的从1到总数的记录的随机数字
randomize 
random_number=int(rnd*total_records)+1


'移动第一个记录
rs.MoveFirst


'开始一个直到找到随机规则才继续的循环
do while not rs.eof and counter <> random_number


'计算出规则
counter = counter + 1 


'如果当前规则=随机数字
if counter= random_number then
response.write rs("blackboard") & "<br>"
response.write "Observation # " & random_number &" of " & total_records
end if ' end check for random observation


'移动下个记录
rs.movenext


'循环回到for语句
loop
%>