腾讯分分彩独胆二期
智軟工作室主要是為寧波公司提供寧波網站建設,寧波網站制作,寧波做網站公司,寧波外貿網站建設公司,寧波網站優化等項目,以優質的服務,優惠的價格,深的客戶信賴。相信有你的加入我們的明天會更有動力!期待與你合作!
  • 寧波智軟設計工作室,打造寧波網站制作工作室頂級品牌
  • 智軟擁有專業的設計團隊
  • 多年網站建設團隊為你服務
  • 智軟期待與你合作
  • 我們的技能
  • 我們掌握的技能有:dreamweaver,flash,photoshop
  • 寧波高端網站建設服務公司
    2014已經悄然到來,在新的一年我們恭賀所有客戶事業蒸蒸日上,同事慶祝智軟設計工作室成立5周年,在5周年為眾多客戶提供了保質量的網站設計與網站制作。 我們在新的一年質量與服務將會更加進一步為更多的客戶帶來高端的網站設計與服務!期待與你合作
  • 企業網站制作建設原因與服務介紹

    智軟設計工作室多年為寧波企業網站制作建設服務一直以來我們以最優惠價格,最優質的質量,最突出的設計!得到了客戶的一致認可,我們的服務包括:寧波網站設計,寧波網站建設,寧波網站制作,寧波網站優化,寧波英文網站制作我們會以優質的服務,最低的價格來報答客戶!

  • 點擊鏈接網站優化推廣介紹

    點擊連接網站優化推廣-對企業的網站優化和網站推廣--對企業的重要性-點擊進行詳細了解

  • 2014開幕,寧波網站設計服務全面優惠.

    2014開幕,寧波智軟設計為寧波企業提供更加優秀的設計和實惠的價格

  • 鏈接到網站案例展示平臺
    智軟設計工作為寧波客戶網站設計案例展示平臺-案例均為定期更新,讓新老客戶更好的看到我們做的案例,點擊查看我們做的網站案例吧!
  • 我們寧波網絡公司提供網站一站式解決方案
    智軟(寧波網絡公司)幫你輕松解決網絡問題,網站一站式解決方案
你當前的位置:智軟工作室 > 營銷與網絡 >

asp隨機取數據-asp隨機獲取數據庫

2011-12-06 15:57

asp隨機獲取數據庫這個問題今天眼睛了下。如果是php程序的話會簡單很多。英文mysql提供了我們隨機函數。但是AC數據庫是沒的。那么我們要怎么來實現這個隨機獲取數據的功能了。

首先說下思路,先取數據然后把數據隨機寫到到數組中 然后在去循環數據就可以了

一下是網絡上的具體實現代碼。思路就是我們上面寫的

 
 

<!--#include file="adoconn.asp"-->
<%
'-------------------------檢索數據-----------------------
strSQL = "SELECT * FROM [table]"   
'Sql語句,檢索數據庫
'Set objRS = Server.CreateObject("ADODB.Recordset")   
'創建記錄集
rs.Open strSQL,conn,1,1       
'執行檢索
Count=rs.RecordCount           
'得到記錄總數
Item=2                                                        
'顯示記錄數
'-------------------------檢索數據-----------------------

'-------------------------------------------------------------------------------
redim a(Item, 3),t(Count)
'定義2數組,數組a用來儲存記錄,數組t用來刪選記錄

'---------------------------------------
'初始數組數值,目的為了插入數據以后和此值做比較
for each j in t
    j=0
next
'---------------------------------------

'---------------------------------------
' 隨機抽取記錄號
Randomize timer        '初始化隨機數生成器
for j=1 to Item
    k=int(rnd*Count+1)    '從總數里面隨機取一條記錄
    do while t(k)<>0                    '判斷是否記錄是否已經在數組中
      k=int(rnd*Item+1)
    loop
    t(k)=1            '第k條記錄被選中
next
'--------------------------------------
j=1:i=1'定義下標

'--------------------------------------
' 循環選取數據集rs中的部分記錄存放到數組中
Do While Not rs.Eof
      if t(j)=1 then
          a(i,1)=rs("y_id")              '記錄id
          a(i,2)=rs("y_start") '字段1
    a(i,3)=rs("y_end") '字段2
          i=i+1
     end if
j=j+1
rs.MoveNext
Loop
'--------------------------------------
'-------------------------------------------------------------------------------
'----------------------------顯示內容--------------------
for i=1 to Item
    Response.write "序號"&a(i,1)&"<br>"
    Response.write "開始"&a(i,2)&"<br>"
 response.write "結束"&a(i,3)&"<p>"
next
'----------------------------顯示內容--------------------

'---------------------------
'釋放資源
rs.Close
set rs=nothing
Conn.Close
set Conn=nothing
'---------------------------
%>

adoconn.asp
<%
set rs=server.CreateObject("adodb.recordset")
db="aaa1.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
%>

更多

【責任編輯:小戴工程師】

關鍵字: asp隨機取數據

上一篇:15個國外設計師網頁ICON圖標運用成功的案例 下一篇:記錄:輕松解決:sql價格范圍-商品價格范圍查詢語句問題

最新文章

2011-12-06 15:57

相關文章

2011-12-06 15:57
網站制作咨詢:
QQ:277728291
電話:18668277799
郵箱:[email protected]
期待你來電咨詢
回頂部
Copyright 2010 智軟工作室 版權所有    智軟為寧波公司提供最優惠的網絡服務【寧波網站建設,寧波網站制作公司,寧波做網站公司,寧波外貿網站建設公司】我們竭誠為你服務!
腾讯分分彩独胆二期