婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集

可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集

熱門標簽:常用地圖標注范圍點 蘭州智能語音電銷機器人功能 咸陽銷售外呼系統 離線電子地圖標注軟件注冊 外呼回撥系統圖片 為什么外呼系統需要預存話費呢 辦理400電話一年多少錢 企數外呼系統能用多久 寧夏怎么申請400電話
經腳本之家站長測試可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集
作用:
本函數適用于隨機顯示小數量的隨機不重復數字
本函數適用于顯示小數量的隨機不重復記錄集
為了不影響效率, 上限超過一千, 不建議使用本函數
shawl.qiu
2006-09-06
 http://blog.csdn.net/btbtd
主內容: 函數及應用函數隨機顯示100條記錄
linenum 
復制代碼 代碼如下:

%  
    dim rs, rNum  
    dim temp  
    set rs=createObject("adodb.recordset")  
        rs.open "select top 100 * from rnd_v1",conn,1  
        rNum=rs.recordCount-1  
        for each temp in fRndNoRpt(0,rNum)  
            rs.move temp  
            response.write rs("sbcat")  
            response.write "br/>"  
            rs.movefirst  
        next  
        rs.close  
    set rs=nothing 'shawl.qiu code'  
    function fRndNoRpt(lwNum,upNum)  
    ''''''''''''''''''''''''''''''''''''''''''''  
    ' ASP 無重復數字隨機函數, 數組實現, By shawl.qiu  
    ' 2006-09-06  
    '   http://blog.csdn.net/btbtd  
    '''''''''''''''''''''''''''''''''  
    ' 注意: 隨機數超過1000, 不建議使用本函數.  
    '''''''''''''''''''''''''''''''''  
    ' 參數說明:  
    '''''''''''''''''''''''''''''''''  
    ' lwNum 為 數字數組下限, 如: 1  
    ' upNum 為 數字數組上限, 如: 100  
    '''''''''''''''''''''''''''''''''  
    ' sample call:  
    '''''''''''''''''''''''''''''''''  
    '    dim t  
    '    for each t in fRndNoRpt(1,100)  
    '        response.write t"br/>"  
    '    next  
    ''''''''''''''''''''''''''''''''''''''''''''  
        if upNum1 or isNull(upNum) or upNum="" or isNumeric(upNum)=false then exit function  
        if lwNum0 or isNumeric(lwNum)=false then exit function  
        dim num, temp  
        dim ar()  
        redim ar(upNum)  
        dim j:j=0  
        for temp=lwNum to upNum  
            num=num"."temp"."  
        next  
        randomize      
        do until num=""  
                temp=int((upNum-lwNum+1)*rnd+lwNum)  
            if inStr(num,"."temp".")>0 then   
                num=replace(num,"."temp".","")  
                ar(j)=temp  
                j=j+1  
            end if  
        loop  
        fRndNoRpt=ar  
        erase ar  
    end function 'shawl.qiu code'  
    response.write "p/>使用隨機數函數顯示1至100的不重復隨機數 1:br/>-----------------------br/>"  
    for each temp in fRndNoRpt(1,100)  
        response.write temp"br/>"  
    next  
    response.write "p/>使用隨機數函數顯示1至100的不重復隨機數 2:br/>-----------------------br/>"  
    temp=join(fRndNoRpt(1,100),"-")  
    response.write mid(temp,1,len(temp)-1)  
%> 

標簽:昌都 咸陽 鐵嶺 家電維修 泰州 溫州 麗江 昆明

巨人網絡通訊聲明:本文標題《可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集》,本文關鍵詞  可,用的,ASP,無,重復,數字,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集》相關的同類信息!
  • 本頁收集關于可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 丹寨县| 正蓝旗| 马山县| 水城县| 武城县| 织金县| 都兰县| 淳安县| 吴堡县| 子长县| 蒙城县| 建德市| 洛阳市| 阳春市| 孟连| 蓬安县| 峨眉山市| 惠东县| 东城区| 仪征市| 德江县| 普兰店市| 社会| 临城县| 枞阳县| 财经| 克山县| 尉犁县| 通河县| 瑞安市| 安陆市| 洪湖市| 弥渡县| 宜丰县| 噶尔县| 晋江市| 舞阳县| 方城县| 仪陇县| 堆龙德庆县| 辽阳县|