用ASP获取指定范围内的一组不重复的随机整数

<%
'调用方法：
'获取10个1到100之间的整数
Response.Write GetrndNumber(1,100,10)

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
%>

<%
'获取10个1到100之间的整数
RndStr=GetrndNumber(1,100,10)  '这个函数在上面的例子中，你可以把上面的函数拷贝到这里来
Response.Write RndStr
Dim aData
aData = split(RndStr,",")
Call ResponseArray(QuickSort(aData),"从小到大排序")

Function QuickSort(a_Data)
    Dim i, j
    Dim bound, t
    bound = UBound(a_Data)

    For i = 0 To bound-1
        For j = i+1 To bound
            If Cint(a_Data(i)) > Cint(a_Data(j)) Then '这里的大于>如果改成小于< 则按照从大到小排序
                t = a_Data(i)
                a_Data(i) = a_Data(j)
                a_Data(j) = t
            End If
        Next
    Next

    QuickSort = a_Data
End Function

'输出数组
Sub ResponseArray(a_Data, str)
    Dim s
    s = ""
    Response.Write "<b>" & str & "：</b>"
    For i = 0 To UBound(a_Data)
        s = s & a_Data(i) & ","
    Next
    s = Left(s, Len(s)-1)
    Response.Write s
    Response.Write "<hr>"
End Sub
%>