一个ASP随机不重复显示数据库记录的程序,ASP技术应用

Dim objConn, objRs, db, strSQL

Dim totalCount, rndArray, rsOutputMax, intI

'-----------------

'|连接数据库|

'-----------------

db = "db/dbname.mdb"

strSQL = "SELECT id,name FROM table_name"

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

Set objRs = Server.CreateObject("ADODB.Recordset")

objRs.Open strSQL, objConn, 1, 3

'--------------

'|读取数据|

'--------------

totalCount = objRs.RecordCount '生成随机数范围的上限

rsOutputMax = 10 '输出记录条数

rndArray = myRnd(rsOutputMax,totalCount,1)

Response.Write " id name"

Response.Write "------------------"

For intI = 1 To rsOutputMax

objRs.AbsolutePosition = rndArray(intI)

Response.Write " " & objRs("id") & " " & objRs("name") & "<br>"

'--------------

'|清理资源|

'--------------

Set objRs = Nothing

objConn.Close

Set objConn = Nothing

'--------------------------------------------------

'|生成指定范围内不重复随机数的函数|

'|nMax:输出随机数的个数 |

'|upper:指定范围上限 |

'|lower:指定范围下限 |

'--------------------------------------------------

Function myRnd(nMax,upper,lower)
Dim a(), i, j, k, reCount

ReDim a(nMax)
  Randomize Timer
  For i = 1 To nMax
    reCount = False
    k = Int((upper - lower + 1) * Rnd + lower)
    For j = 1 To i - 1
      If k = a(j) Then reCount = True : Exit For
    Next
    If reCount = True Then
      i = i - 1
    Else
      a(i) = k
    End If

Next
myRnd = a

End Function