{"id":23,"date":"2010-06-02T16:28:04","date_gmt":"2010-06-02T16:28:04","guid":{"rendered":"http:\/\/blog.yyhcw.com\/post\/23.html"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T07:54:17","slug":"","status":"publish","type":"post","link":"http:\/\/blog.yyhcw.com\/post\/23.html","title":{"rendered":"asp\u4ece\u6570\u636e\u5e93\u4e2d\u968f\u673a\u8bfb\u53d6\u4e0d\u91cd\u590d\u7684\u8bb0\u5f55"},"content":{"rendered":"

\u3000\u3000\u4eca\u5929\u65e9\u4e0a\u5728\u7ed9\u90d1\u5dde\u5bb6\u653f\u7f51<\/a>\u6dfb\u52a0\u65b0\u95fb\u8d44\u8baf\u7684\u65f6\u5019\u53d1\u73b0\u5199\u7684\u90a3\u4e2a\u8be6\u89e3\u79d1\u8bafCMS(KesionCMS) \u7684\u76f8\u5173\u6587\u7ae0<\/a>\u4e2d\u7684\u76f8\u5173\u6587\u7ae0\u8fd9\u5757\uff0c\u5f53\u6587\u7ae0\u6807\u7b7e\u76f8\u540c\u5e76\u4e14\u5f88\u591a\u7684\u65f6\u5019\uff0c\u4e0d\u77e5\u9053\u4e3a\u4ec0\u4e48\u51fa\u6765\u7684\u6587\u7ae0\u6ca1\u6709\u53d8\u5316\uff0c\u4e5f\u6ca1\u4ed4\u7ec6\u770b\uff0c\u8001\u611f\u89c9\u603b\u662f\u90a3\u4e48\u51e0\u7bc7\uff1b\u65e2\u7136\u8fd9\u6837\u5e72\u8106\u52a0\u4e2a\u968f\u673a\u663e\u793a(\u539f\u6765\u4f7f\u7528\u7684\u662fby ID DESC)<\/p>\n

\u968f\u673a\u51fd\u6570
<<\/span>%
<\/span>Function<\/span> MyRnd(NumMin,NumMax) 
<\/span>Randomize<\/span> 
MyRnd <\/span>=<\/span> <\/span>Int<\/span>(<\/span>Rnd<\/span> <\/span>*<\/span> (NumMax <\/span>-<\/span> NumMin <\/span>+<\/span> <\/span>1<\/span>)) <\/span>+<\/span> NumMin 
<\/span>End Function<\/span> 
%<\/span>><\/span><\/p>\n

\u539f\u6765\u5199\u8fc7\u4e00\u4e2a\u4f46\u662f\u73b0\u5728\u65f6\u95f4\u957f\u4e86\u4e5f\u5fd8\u4e86\uff0c\u5728\u7f51\u4e0a\u627e\u4e86\u4e00\u4e0b\u968f\u673a\u751f\u6210\u6761\u76ee\u7684\u529f\u80fd\uff0c\u5c31\u662f\u968f\u673a\u4ece\u6570\u636e\u5e93\u4e2d\u8bfb\u53d6n\u6761\u4e0d\u91cd\u590d\u7684\u4fe1\u606f,\u968f\u673a\u663e\u793a\u51fa\u6765,\u7f51\u4e0a\u641c\u4e86\u4e00\u4e0b\u5927\u4f53\u6709\u4ee5\u4e0b\u4e09\u79cd\u65b9\u6cd5,\u603b\u7ed3\u5982\u4e0b,\u4e2a\u4eba\u89c9\u5f97\u6700\u540e\u4e00\u79cd\u65b9\u6cd5\u6700\u597d\u7528\u6700\u7b80\u5355\uff1a<\/p>\n

\u65b9\u6cd5\u4e00\uff1a<\/span><\/p>\n

\u6570\u636e\u5e93\u6253\u5f00\u67e5\u8be2\u82e5\u5e72\uff0c\u7701\u7565... ...
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1<\/p>\n

DIM Appeared
Call DisRndRecord(10,rs.recordCount)'\u8c03\u7528\u51fd\u6570\u8be5\u4f4d\u7f6e\u663e\u793a\u8bb0\u5f55<\/p>\n

'################SUBS################
'#DisRndRecord(DisNum,rsBound)
'#\u53c2\u6570DisNum\uff1a\u663e\u793a\u6570\u91cf
'#\u53c2\u6570rsBound\uff1a\u968f\u673a\u6570\u4ea7\u751f\u8303\u56f4
Sub DisRndRecord(DisNum,rsBound)
DIM i,ThisRnd
If rsBound < DisNum Then DisNum = rsBound'\u8bb0\u5f55\u603b\u6570\u5c0f\u4e8e\u8981\u62bd\u53d6\u8bb0\u5f55\u6761\u6570\u7684\u60c5\u51b5
For i = 0 To DisNum - 1
ThisRnd = GetRnd(rsBound)'\u53d6\u5f97\u4e00\u4e2a\u4e0d\u91cd\u590d\u7684\u968f\u673a\u6570
rs.Move(ThisRnd)'\u6e38\u6807\u79fb\u52a8\u5230\u968f\u673a\u6570\u4f4d\u7f6e\u6570\u8bfb\u53d6
Response.Write("<br>("&rs("id")&")"&rs("Title"))
rs.Move(-ThisRnd)
Next
End Sub
'# \u51fd\u6570GetRnd(bound)\u8fd4\u56de\u4e00\u4e2a\u4e0d\u91cd\u590d\u7684\u968f\u673a\u6570\u5b57
'#\u53c2\u6570bound\uff1a\u968f\u673a\u8303\u56f4
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(Appeared,"["&ranNum&"]") Then'\u4ea7\u751f\u7684\u968f\u673a\u6570\u662f\u5426\u51fa\u73b0\u8fc7
ranNum = getRnd(bound)
End If
Appeared = Appeared & "["&ranNum&"]"'\u8bb0\u5f55\u5df2\u51fa\u73b0\u7684\u968f\u673a\u6570
GetRnd = ranNum
End Function<\/p>\n

\u65b9\u6cd5\u4e8c\uff1a<\/span><\/p>\n

\u53e6\u5916\u4e00\u4e2a\u66f4\u6709\u7528\u7684\u51fd\u6570\uff1aNewID\uff08\uff09\uff0c\u5b83\u8fd4\u56de\u4e00\u4e2aGUID\uff08\u5168\u5c40\u552f\u4e00\u6807\u5fd7\u7b26\uff09\u3002
Rand\uff08\uff09\u51fd\u6570\u7528\u5728SQL\u8bed\u53e5\u4e2d\u6ca1\u6709\u4f5c\u7528\u3002\u53ef\u80fd\u53ea\u80fd\u7528\u5728SQL SERVER\u4e2d\u3002<\/p>\n

\/\/\u968f\u673a\u8fd4\u56de10\u6761\u8bb0\u5f55
select top 10 <\/p>\n

newid() as row, productid, productname <\/p>\n

from Products <\/p>\n

order by row<\/p>\n

\u76f8\u5173\u53c2\u8003\uff1a
NEWID()\u53e6\u5916\u4e00\u4e2a\u5e94\u7528\u662f\u5728Select\u51fa\u8bb0\u5f55\u65f6\u968f\u5373\u9009\u51faN\u6761\u8bb0\u5f55
\u6bd4\u5982\uff1aSelect top 5 * from yourtable order by newid()\u8fd9\u6837\u5c31\u80fd\u4eceyourtable\u8868\u4e2d\u6bcf\u6b21\u968f\u673a\u5730\u9009\u51fa5\u6761\u8bb0\u5f55\uff0c\u8fd9\u5bf9\u4e8e\u968f\u673a\u663e\u793a\u65b0\u95fb\u7684\u5730\u65b9\u6bd4\u8f83\u6709\u7528<\/p>\n

\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d<\/p>\n

\u968f\u673a\u63d0\u53d610\u6761\u8bb0\u5f55\u7684\u4f8b\u5b50\uff1a
Sql server\uff1a<\/p>\n

select top 10 * from \u8868 order by newid()<\/p>\n

Access\uff1a<\/p>\n

Select top 10 * FROM \u8868 orDER BY Rnd(id) <\/p>\n

Rnd(id) \u5176\u4e2d\u7684id\u662f\u81ea\u52a8\u7f16\u53f7\u5b57\u6bb5\uff0c\u53ef\u4ee5\u5229\u7528\u5176\u4ed6\u4efb\u4f55\u6570\u503c\u6765\u5b8c\u6210<\/p>\n

\u6bd4\u5982\u7528\u59d3\u540d\u5b57\u6bb5(UserName)<\/p>\n

Select top 10 * FROM \u8868 orDER BY Rnd(len(UserName)) <\/p>\n

MySql\uff1a<\/p>\n

Select * From \u8868 order By rand() Limit 10<\/p>\n

\u8868 TestTable\uff0c\u6709\u81ea\u52a8\u7f16\u53f7\u5b57\u6bb5 TestID\uff0c\u6807\u9898\u5b57\u6bb5 TestTitle\uff0c\u968f\u673a\u53d6\u5f975\u6761\u7eaa\u5f55\uff0c\u7528\u4ee3\u7801\uff1a
Randomize
Select TOP 5 [TestTitle] FROM [TestTable] orDER BY Rnd(-(TestID+"&Rnd()&"))<\/p>\n

\u65b9\u6cd5\u4e09\uff1a<\/span><\/p>\n

asp\u4eceaccess\u6570\u636e\u5e93\u4e2d\u968f\u673a\u62bd\u53d6\u8bb0\u5f55
                                       <\/p>\n

'\u968f\u673a\u62bd\u53d6\u9009\u62e9\u9898
Set rs= Server.CreateObject("ADODB.Recordset")    
rs.open "Select id from [shiti] where type=1 order by Rnd(id)",conn,1,1
Count=rs.RecordCount   
redim a(xzcount),t(Count)
for each j in t
j=0
next
' \u968f\u673a\u62bd\u53d6\u8bb0\u5f55\u53f7
Randomize timer   '\u521d\u59cb\u5316\u968f\u673a\u6570\u751f\u6210\u5668
for j=1 to xzcount
     k=int(rnd*Count+1) '\u4ece\u603b\u6570\u91cc\u9762\u968f\u673a\u53d6\u4e00\u6761\u8bb0\u5f55
     do while t(k)<>0                  '\u5224\u65ad\u662f\u5426\u8bb0\u5f55\u662f\u5426\u5df2\u7ecf\u5728\u6570\u7ec4\u4e2d
       k=int(rnd*xzcount+1)
     loop
     t(k)=1    '\u7b2ck\u6761\u8bb0\u5f55\u88ab\u9009\u4e2d
next
j=1:i=1'\u5b9a\u4e49\u4e0b\u6807
' \u5faa\u73af\u9009\u53d6\u6570\u636e\u96c6rs\u4e2d\u7684\u90e8\u5206\u8bb0\u5f55\u5b58\u653e\u5230\u6570\u7ec4\u4e2d
do while not rs.Eof
    if t(j)=1 then
     a(i)=rs("id")            '\u8bb0\u5f55id
     i=i+1
   end if
   j=j+1
   rs.MoveNext
   Loop
   rs.close
  
   for i=1 to xzcount
   rs.open "select * from [shiti] where id="&a(i)&"",conn,1,1<\/p>\n

rnd(id)\u53ef\u4ee5\u6539\u53d8\u8bb0\u5f55\u7684\u987a\u5e8f<\/p>\n

\u4f46\u662f\u5728asp\u4e2d\u8fd0\u884c\u67e5\u51fa\u6765\u7684\u4e00\u6761\u6570\u636e\u603b\u662f\u4e0d\u4f1a\u6539\u53d8\uff01\uff01\u602a\u554a\uff0c\u6570\u636e\u5e93\u4e2d\u5374\u662f\u6ca1\u95ee\u9898\u7684\uff0c\u540e\u6765\u5c1d\u8bd5\u6700\u540e\u4e00\u79cd\u65b9\u6cd5\uff1a

\u65b9\u6cd5\u56db(\u8d85\u7ea7\u7b80\u5355\uff01)\uff1a<\/span><\/p>\n

Set Con= Server.CreateObject("ADODB.CONNECTION")
ConnString = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("myconnnnb.mdb")  
   Con.Open ConnString
   Randomize
   Set RS = Con.Execute("Select TOP 3 id FROM czfxx orDER BY rnd(-(id +" & rnd() & "))")
   Do While Not RS.EOF
    Response.Write RS.Fields("id").value & "<br \/>"
    RS.MoveNext
   Loop
   RS.Close
   Set RS = Nothing
   Con.Close
   Set Con = Nothing <\/p>\n

\u563f\uff0c\u8fd9\u6837\u5c31\u884c\u4e86\uff01<\/p>\n

\u4ee5\u4e0b\u662f\u6211\u4ece\u7f51\u4e0a\u627e\u5230\u7684\u4e00\u4e2a\u5df2\u7ecf\u5199\u597d\u7684asp\u968f\u673a\u8bfb\u53d6\u6570\u636e\u5e93<\/a>\u6e90\u7801\u7a0b\u5e8f\u63d0\u4f9b\u4e0b\u8f7d\u6d4b\u8bd5\u4f7f\u7528<\/p>\n

\u70b9\u6211\u4e0b\u8f7d<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\u3000\u3000\u4eca\u5929\u65e9\u4e0a\u5728\u7ed9\u90d1\u5dde\u5bb6\u653f\u7f51\u6dfb\u52a0\u65b0\u95fb\u8d44\u8baf\u7684\u65f6\u5019\u53d1\u73b0\u5199\u7684\u90a3\u4e2a\u8be6\u89e3\u79d1\u8bafCMS(KesionCMS) \u7684\u76f8\u5173\u6587\u7ae0\u4e2d\u7684\u76f8 \u00b7\u00b7\u00b7","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[],"views":251,"_links":{"self":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts\/23"}],"collection":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/comments?post=23"}],"version-history":[{"count":0,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts\/23\/revisions"}],"wp:attachment":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/media?parent=23"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/categories?post=23"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/tags?post=23"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}