君泽君文化传媒机构

ASP程序建站实用技巧连载之： ASP随机产生不重复数字的函数

来源：WWW.E68CN.COM 作者：君泽君东莞网络公司 2008-07-11 点击：

【内容摘要】：网站建设 % DIM Appeared #DisRndRecord(DisNum,rsBound) #参数DisNum：显示数量 #参数rsBound：随机数产生范围 Sub DisRndRecord(DisNum,rsBound) DIM i,ThisRnd If rsBound DisNum Then DisNum = rsBound 记录总数小于要抽取记录条数的情况 For i = 0 To DisNu..

本文关键词：网站建设 网站 asp asp程序

东莞君泽君网络科技公司是东莞十佳网站设计公司之一，具有多年的先进的管理理念以及拥有一批长期从事网页设计的专业网页设计师。我们用精湛技术满足东莞中小企业的网站建设要求,网站设计我们用品牌和实力来说话,我们始终相信“诚信服务客户，专业缔造完美”，为您提供一流的网站制作与网站设计服务,如果客户您想做一个适合网络营销的好网站，那么请来电咨询：0769-89046712   13728246800

asp随机不重复函数的利用

网站建设 <% DIM Appeared
       ’#DisRndRecord(DisNum,rsBound)
        ’#参数DisNum：显示数量
        ’#参数rsBound：随机数产生范围
        Sub DisRndRecord(DisNum,rsBound)
         DIM i,ThisRnd
         If rsBound <DisNum Then DisNum = rsBound ’记录总数小于要抽取记录条数的情况
         For i = 0 To DisNum - 1
          ThisRnd = GetRnd(rsBound) ’取得一个不重复的随机数
       response.Write("<br>"&ThisRnd)
         Next
        End Sub
       ’ ’# 函数GetRnd(bound)返回一个不重复的随机数字
       ’ ’#参数bound：随机范围
        Function GetRnd(bound)
         DIM ranNum
         Randomize()
         ranNum=int(bound*rnd)
         If Instr(Appeared,"["&ranNum&"]") Then ’产生的随机数是否出现过
          ranNum = getRnd(bound)
         End If
         Appeared = Appeared & "["&ranNum&"]" ’记录已出现的随机数
         GetRnd = ranNum
        End Function 
        Call DisRndRecord(10,10)       ’调用函数该位置显示记录 %>

在asp网站中的应用

网站建设 DIM Appeared
       ’#DisRndRecord(DisNum,rsBound)
        ’#参数DisNum：显示数量
 

TAGS:网站建设 网站 asp asp程序

上一篇：ASP程序建站实用技巧连载之： ASP程序设计精华文摘收集　下一篇：ASP程序建站实用技巧连载之： ASP实现网页伪静态页源代码