ASP+Access隨機(jī)讀取數(shù)據(jù)庫(kù)記錄的方法
深山行者個(gè)人網(wǎng)站 2009/4/18 23:18:57 深山行者 字體:
大 中 小 瀏覽 16983
|
方法01 以下是引用片段：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="qiconn.asp"-->
<%
Randomize(timer())
bgsql = "select top 5 fuid,id,lcolor,name from lei order by rnd(-(id + " & Int((10000 * Rnd) + 1) & "))"
set bgrs=server.CreateObject("adodb.recordset")
bgrs.open bgsql,conn,1,1
if bgrs.eof and bgrs.eof then
response.write ""
else
do until bgrs.eof
response.write bgrs("name") & "<br>"
bgrs.movenext
loop
end if
bgrs.closd
set bgrs=nothing
%>
</body>
</html>
|
|
方法02 以下是引用片段：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="qiconn.asp"-->
<%
dim rndnum
Randomize
Do While Len(rndnum)<2
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
Randomize
bgsql = "select * from lei where id>"& rndnum &" order by rnd(id) desc"
set bgrs=server.CreateObject("adodb.recordset")
bgrs.open bgsql,conn,1,1
if bgrs.eof and bgrs.eof then
response.write ""
else
do until bgrs.eof
response.write bgrs("name") & "<br>"
bgrs.movenext
loop
end if
bgrs.closd
set bgrs=nothing
%>
</body>
</html>
|
- 相關(guān)閱讀
- 網(wǎng)站頁(yè)面設(shè)計(jì)中的Css十大注意
- 深山留言板2.14情人節(jié)留言板模板v4.6
- CSS教程:CSS兼容的技巧
- 在未知圖片的寬度與高度時(shí)利用div+css將圖片居中
- 格式化金錢(qián)如果為0增加兩個(gè)小數(shù)點(diǎn)
- Instagram 廣告投放操作與技巧
- asp文章內(nèi)容自定義分頁(yè)
- windows2003的IIS文件上傳大小限制的解決方案
- 共有0條關(guān)于《ASP+Access隨機(jī)讀取數(shù)據(jù)庫(kù)記錄的方法》的評(píng)論
- 發(fā)表評(píng)論
蘇公網(wǎng)安備 32070502010230號(hào)