随机数据库规则

多数的随机内容脚本包括数组加载来命令出你想输出的内容。正如你想随机增加显示的项目数字可能需要从数据库中为他们提供服务，而不是来自庞大的手动更新文本文件。下面的代码会选择一个来自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 thenresponse.write rs("blackboard") & "<br>"response.write "Observation # " & random_number &" of " & total_recordsend if ' end check for random observation'移动下个记录rs.movenext'循环回到for语句loop%>