ASP 随机显示文章

Wolfit 设计开发

注意以下红字部份。。

以下是代码片段：
<%
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 to “ASP 随机显示文章”

  1. [URL]http://www.wilf.cn/post/Rndarticle.html[/URL]
    我给写成z-blog插件了，和上面的可能不一样。

    回复

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注