生成不重复的随机数

<%
dim m,n,a,b,c

请问asp vbscript 的页面如何产生一个随机数x，
随机数x为1～n之间的数，并且要运行n遍，每次不能重复。
也就是产生n个数，范围为1～n，不能重复，
比如要产生1～3，其结果为：3、1、2，或者1、2、3或者……
结果要随机产生，不能重复，把n个数历遍。
<%
m=1
n=3
randomize

Do
a=Int((n - m + 1) * Rnd + m)
b=Int((n - m + 1) * Rnd + m)
c=Int((n - m + 1) * Rnd + m)
Loop until a<>c and b<>c and a<>b
%>

<%
Function getrndNo(n)

Redim a(n)
Randomize

for i = 1 to n
a(i) = i
next

for i = 1 to n
temp = a(i)
j = int(rnd * n + 1)
a(i) = a(j)
a(j) = temp
next

for i =1 to n
Response.Write a(i)&"<br>"
next
End Function

call getrndNo(3)
%>

<SCRIPT LANGUAGE=javascript>
<!--
var n=100;
var array1=new Array();
for(var i=0;i<n;i++){
array1[i]=i;
}
function getRndArray(arr0){
         //对输入数组进行随机排列
var len=arr0.length;
var rnd,swap;
for(var i=0;i<len;i++){
rnd=Math.floor(Math.random()*(len-i))+i;
swap=arr0[i];arr0[i]=arr0[rnd];arr0[rnd]=swap;
}
return arr0;
}

document.write(getRndArray(array1));
//-->
</SCRIPT>