• 技术文章排行榜

• 免费空间排行榜

asp随机不重复函数

• 任何写ASP随机而用不重复数字的函数呢？下面这个函数应该是可以。大家可以那去用用看。看是否成功！ <script language="vbscript">

  Function GetrndNumber(intStart,intEnd,intCount)
       Rem 取指定范围内不同的随机整数
       Rem intStart:起始值
       Rem intEnd:结束值
       Rem intCount:值个数
       Rem no_mIss
       Rem 调用:GetrndNumber(1,9,5)
       On error resume next
       Dim i,reValue,strreValue
       reValue = "" : strreValue = ","
       If Not isNumeric(intStart) or Not isNumeric(intEnd) _
             or Not isNumeric(intCount)  Then Response.write "参数错误!" : Response.End
       If intCount>(intEnd - intStart)+1 Then Response.write "参数错误!" : Response.End
       randomize
       For i = 0 to intCount - 1
             reValue = Int((intEnd - intStart + 1) * Rnd + intStart)
             If instr(strreValue,"," & reValue & ",")>0 Then
                   i = i - 1
             Else
                   strreValue = strreValue & reValue & ","
             End If
       Next
       strreValue = left(strreValue,len(strreValue) - 1)
       strreValue = Replace(strreValue,",","",1,1)
       GetrndNumber = strreValue
  End Function

  </script>
  

  
  
• [时间：2008-12-10 16:54:14][点击:]

上下篇文章加载中...