ASP+Access隨機讀取數據庫記錄的方法
深山行者個人網站 2009/4/18 23:18:57 深山行者 字體:
大 中 小 瀏覽 16979
|
方法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>
|
- 相關閱讀
- div+css設置列表li超出部分顯示省略號
- MarkMan 馬克鰻，讓設計更有愛 (超級給力的頁面標注工具)
- 把網頁中的電話號碼生成圖片的ASP程序
- 凹陷文字
- 另類的誤刪資料恢復,不使用任何軟件恢復你誤刪除的資料
- 重慶長航江山國際旅行社
- 豎排的選項卡
- java探測頁面是否全屏，如果不是全屏則自動全屏
- 共有0條關于《ASP+Access隨機讀取數據庫記錄的方法》的評論
- 發表評論
蘇公網安備 32070502010230號