利用asp的Randomize随机显示记录的一种方法

  • 内容
  • 评论
  • 相关

最近在给一个客户的网站做改动

想增加点内链接,就想到了通过随机显示一些文章,于是baidu了下
其实很简单

<%
Randomize ' 这句是非常重要的不可以去掉
sql="select  id,titie,tyename,addtime   from news order by rnd(-(Id+" & rnd() & "))"
%>

在Rnd之前一定要先执行Randomize语句

<%

 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

%>

评论

1条评论
  1. Gravatar 头像

    die_girlande

    I want to quote your post in my blog. It can?
    And you et an account on Twitter?

    [回复]

发表评论

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

click to change 看不清?点击换一张!