ASP 随机显示文章

1
<%
2
Dim Con, minPID, RS
3
Set Con = Server.CreateObject("ADODB.CONNECTION")
4
Con.ConnectionString = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("*.mdb")
5
Con.CommandTimeout = 20
6
Con.CursorLocation = 3
7
Con.Open
8
Randomize
9
Set RS = Con.Execute("Select TOP 3 [content_] FROM [T1] ORDER BY rnd(-(id_+" & rnd() & "))")
10
Do While Not RS.EOF
11
    Response.Write RS.Fields("content_").Value & "<br />"
12
    RS.MoveNext
13
Loop
14
RS.Close
15
Set RS = Nothing
16
Con.Close
17
Set Con = Nothing
18
%>