ASP 随机显示文章

注意以下红字部份。。

以下是代码片段:
<%
Dim Con,minPID,RS
Set Con= Server.CreateObject(“ADODB.CONNECTION”)
Con.ConnectionString = “Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=” & Server.MapPath(“*.mdb”)
Con.CommandTimeout = 20
Con.CursorLocation = 3
Con.Open

Randomize
Set RS = Con.Execute(“Select TOP 3 [content_] FROM [T1] orDER BY rnd(-(id_+” & rnd() & “))“)
Do While Not RS.EOF
Response.Write RS.Fields(“content_”).Value & “<br />”
RS.MoveNext
Loop
RS.Close
Set RS = Nothing

Con.Close
Set Con = Nothing
%>

2 thoughts on “ASP 随机显示文章

发表评论