asp抓阄随机分配号码源代码

<script language="vbscript" charset="utf-8">
Function rndint(byval MinNum,byval MaxNum)'asp生成整数之间的随机数函数
  dim tmp
  if MaxNum<MinNum then'交换大小值，防止传递时大小搞反
    tmp=MinNum:MinNum=MaxNum:MaxNum=tmp
  end if
  
  Randomize
  rndint=int(rnd *(MaxNum-MinNum+1)+MinNum)
End Function
max=15'假设有15个号码需要随机分配，其他数量修改这里就行了
dim arr()
redim arr(max)
for i=1 to max'生成1~15的号存入数组中，如果数组中的内容不是循序的，可以自行修改这里号码的生成
  arr(i)=i
next
function getindex(indexmax)'随机生成数组内的下标，注意从1开始下标，0下标不使用
  indexnum=rndint(1,indexmax)
  getindex=indexnum
end function
dim arrorder()
redim arrorder(max)'记录这15个人随机得到的序号
for i=15 to 1 step -1'从最后一个人开始分配，这样随机下标的最大值就可以通过i来得到
  indexnum=getindex(i)'随机得到数组下标
  arrorder(i)=arr(indexnum)'用心数据记录随机到的号
  if indexnum<>i then'如果随机到的不是最后一项，当前项用最后一项填充，相当于从数组中删除了随机到的项
    arr(indexnum)=arr(i)
  end if
  redim preserve arr(i-1)'由于最后一项已经随机到或者填充到前面的项中，所以可以使用redim删除最后一项，注意要加上preserve关键字保留数据的内容，要不全部清空了
next
s=""
for i=1 to max
  s=s&","&arrorder(i)
next
document.write "随机分配的号码："&s''''注意修改这里，如果是asp使用response.write，vbs文件用msgbox
</script>